N久沒搞ASP啦,今天一個(gè)網(wǎng)友問到這個(gè)問題.就在網(wǎng)上找了下.

也不知道這個(gè)有沒有錯(cuò)誤.

下載的基本思路是這個(gè)樣子的.

代碼如下:

<%Const USE_STREAM = 0 '0.不用流(Adodb.Stream)下載 1.用流下載Const ALLOW_FILE_EXT = "rar,zip,chm,doc,xls,swf,mp3,gif,jpg,jpeg,png,bmp" '允許下載的文件的擴(kuò)展名，防止源代碼被下載Dim sDownFilePath '下載文件路徑sDownFilePath = Trim(Request("FilePath"))'或者根據(jù)傳過來的文件ID從數(shù)據(jù)庫中獲取文件路徑'如果 sDownFilePath 為絕對(duì)路徑，一定要將 sDownFilePath 轉(zhuǎn)換為相對(duì) 本文件的相對(duì)路徑'sDownFilePath = "focus.swf"Call DownloadFile(sDownFilePath)Function DownloadFile(s_DownFilePath)'判斷有沒傳遞文件名If IsNull(s_DownFilePath) = True Or Trim(s_DownFilePath) = "" ThenOutputErr "錯(cuò)誤：先確定要下載的文件，下載失敗"End If'判斷擴(kuò)展名是否合法Dim s_FileExts_FileExt = Mid(s_DownFilePath, InstrRev(s_DownFilePath, ".")+1)If InStr("," & ALLOW_FILE_EXT & ",", "," & s_FileExt & ",") <= 0 ThenOutputErr "錯(cuò)誤：文件類型（" & s_FileExt & "）不允許被下載，下載失敗"End Ifs_DownFilePath = Replace(s_DownFilePath, "/", "/")'為了安全，某些目錄禁止下載文件，在這里處理''檢測(cè)服務(wù)器是否支持fsoDim o_FsoOn Error Resume NextSet o_Fso = Server.CreateObject("Scripting.FileSystemObject")If Err.Number <> 0 ThenErr.ClearOutputErr "錯(cuò)誤：服務(wù)器不支持fso組件，下載失敗"End If'取得文件名，文件大小Dim s_FileMapPathDim o_File, s_FileName, n_FileLengths_FileMapPath = Server.MapPath(s_DownFilePath)If (o_Fso.FileExists(s_FileMapPath)) = True ThenSet o_File = o_Fso.GetFile(s_FileMapPath)s_FileName = o_File.Namen_FileLength = o_File.Sizeo_File.CloseElseOutputErr "錯(cuò)誤：文件不存在，下載失敗"End IfSet o_Fso = Nothing'判斷是否下載的文件大小超過限制' '如果不是用流下載，直接轉(zhuǎn)到該文件If USE_STREAM = 0 ThenResponse.Redirect sDownFilePathResponse.endEnd If'檢測(cè)服務(wù)器是否支持Adodb.StreamOn Error Resume NextSet o_Stream = Server.CreateObject("Adodb.Stream")If Err.Number <> 0 ThenErr.ClearOutputErr "錯(cuò)誤：服務(wù)器不支持Adodb.Stream組件，下載失敗"End Ifo_Stream.Tyep = 1o_Stream.Openo_Stream.LoadFromFile s_FileMapPath Response.Buffer = TrueResponse.ClearResponse.AddHeader "Content-Disposition", "attachment; filename=" & s_FileNameResponse.AddHeader "Content-Length", n_FileLength Response.CharSet = "UTF-8" Response.ContentType = "application/octet-stream" Response.BinaryWrite o_Stream.ReadResponse.Flusho_Stream.CloseSet o_Stream = NothingEnd FunctionSub OutputErr(s_ErrMsg)Response.Write "<font color=red>" & s_ErrMsg & "</font>" Response.EndEnd Sub%>

轉(zhuǎn)載于:https://www.cnblogs.com/fengju/archive/2008/07/10/6174047.html

創(chuàng)作挑戰(zhàn)賽新人創(chuàng)作獎(jiǎng)勵(lì)來咯，堅(jiān)持創(chuàng)作打卡瓜分現(xiàn)金大獎(jiǎng)

總結(jié)

以上是生活随笔為你收集整理的asp 下载函数的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。