| 以下是代碼片段： <% Dim Stream Dim Contents Dim FileName Dim FileExt Const adTypeBinary = 1 FileName = Request.QueryString("FileName") if FileName = "" Then Response.Write "無效文件名." Response.End End if ’ 下面是不希望下載的文件 FileExt = Mid(FileName, InStrRev(FileName, ".") 1) Select Case UCase(FileExt) Case "ASP", "ASA", "ASPX", "ASAX", "MDB" Response.Write "受保護文件,不能下載." Response.End End Select ’ 下載這個文件 Response.Clear Response.ContentType = "application/octet-stream" Response.AddHeader "content-disposition", "attachment; filename=" & FileName Set Stream = server.CreateObject("ADODB.Stream") Stream.Type = adTypeBinary Stream.Open Stream.LoadFromFile Server.MapPath(FileName) While Not Stream.EOS Response.BinaryWrite Stream.Read(1024 * 64) Wend Stream.Close Set Stream = Nothing Response.Flush Response.End %> 使用：Download.asp?FileName=/Files/MY.doc 把你的DOC文件放到根目錄Files下，你也可以放到其它地方了。 |
新聞熱點
疑難解答
