以下是引用xxzz.asp片段: <%@LANGUAGE="VBSCRIPT" %>
<% Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "No-Cache"
Response.Clear if request.cookies("fuse")="" and request.cookies("kuse")="" then response.end end if dim url Dim fso,fl,flsize dim Dname Dim objStream,ContentType,flName,isre,url1 '*****************************-****************调用时传入的下载文件名 path="loads_file\"&request("f") set fs=server.CreateObject("scripting.filesystemobject") Dname=server.MapPath(path) '*****************************-******************************-******* If Dname<>"" Then '*****************************-*下载文件存放的服务端目录 url=Dname '*****************************-********************** End If
if fs.FileExists(url)=false then response.Write("<Script Language ='javascript'>alert('文件未找到,请重新操作!');</script>") %> <script language=javascript> window.close() </script> <% response.End end if
Set fso=Server.CreateObject("Scripting.FileSystemObject") Set fl=fso.getfile(url) flsize=fl.size flName=fl.name Set fl=Nothing Set fso=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 ".xls" ContentType = "application/msexcel" 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 Else ContentType = "application/octet-stream" End Select
Response.AddHeader "Content-Disposition", "attachment; filename=" & flName Response.AddHeader "Content-Length", flsize
Response.Charset = "UTF-8" Response.ContentType = ContentType
Response.BinaryWrite objStream.Read Response.Flush response.Clear() objStream.Close Set objStream = Nothing %> <script language=javascript> window.close() </script> |