<% Response.Buffer=true 取得要下载的文件，如果不为空。就下载 dim url,trueurl url="下载文件路径和下载文件名" fname=Request("filename") if fname<>"" then trueurlurl=server.MapPath("/") &url end if set objFso=server.CreateObject("scripting.filesystemobject") set fn=objFso.GetFile(trueurl) flsize=fn.size flname=fn.name set fn=nothing set objFso=nothing
set objStream=server.CreateObject("adodb.stream") objStream.Open objStream.Type=1 objStream.LoadFromFile url
select case lcase(right(flname,4)) case ".asf" ContentType="video/x-ms-asf" case ".avi" ContentType="video/avi" case ".doc" ContentType="application/msword" case ".zip" ContentType="application/zip" case ".xls" ContentType="application/vnd.ms-excel" case ".gif" ContentType="image/gif" case ".jpg","jpeg" ContentType="image/jpeg" case ".wav" ContentType="audio/wav" case ".mp3" ContentType="audio/mpeg3" case ".mpg", "mpeg" ContentType="video/mpeg" case ".rtf" ContentType="application/rtf" case ".htm","html" ContentType="text/html" case ".txt" ContentType="text/plain" Case ".ASP", ".ASA", "ASPX", "ASAX", ".MDB" Response.Write "受保护文件,不能下载." Response.End case else ContentType="appliation/octet-stream" end select
精品推荐