可以用流下载(耗内存,少用)或直接转到该文件.
%
Const USE_STREAM = 0 '0.不用流(Adodb.Stream)下载 1.用流下载
Const ALLOW_FILE_EXT = "rar,zip,chm,doc,xls,swf,mp3,gif,jpg,jpeg,png,bmp" '允许下载的文件的扩展名,防止源代码被下载
Dim sDownFilePath '下载文件路径
sDownFilePath = Trim(Request("FilePath"))
'或者根据传过来的文件ID从数据库中获取文件路径
'如果 sDownFilePath 为绝对路径,一定要将 sDownFilePath 转换为相对 本文件的相对路径
'sDownFilePath = "focus.swf"
Call DownloadFile(sDownFilePath)
Function DownloadFile(s_DownFilePath)
'判断有没传递...[ 查看全文 ]