|
|
 邯郸网站建设：asp实现文件下载，而不是打开 |
| 邯郸网站建设：asp实现文件下载，而不是打开 |
| 发布日期：2013-6-4 21:28:11 浏览次数：1448次 二维码分享
|
|
|
Dim strFilename,S,Fso,F,intFilelength
strFilename = Server.MapPath(Trim(Request("File")))
Response.Buffer = True
Response.Clear
Set S = Server.CreateObject("ADODB.Stream")
S.Open
S.Type = 1
On Error Resume Next
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
If Not Fso.FileExists(strFilename) Then
Response.Write("<h1>Error:</h1>"&strFilename&"你要下载的文件不存在！<p>")
Response.End
End If
Set F = Fso.GetFile(strFilename)
intFilelength = F.Size ’获取文件大小
S.LoadFromFile(strFilename)
If Err Then
Response.Write("<h1>Error： </h1>Unknown Error！<p>")
Response.End
End If
Response.AddHeader "Content-Disposition","attachment;filename="&F.name
Response.AddHeader "Content-Length",intFilelength
Response.CharSet = "GB2312"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite S.Read
Response.Flush
S.Close
Set S = Nothing
|
| 作者：邯郸网站建设 |
上一条: 邯郸公司建站：怎样控制图片自适应大小
|
| 来源：邯郸网络公司 |
下一条: 邯郸公司建站：常见密码的MD5解密
|
|
|
