? asp.net亚博足球娱乐场注册--任意三数字加yabo.com直达官网之ASP实现文件直接下载 亚博足球娱乐场注册,亚博娱乐全天彩,亚博官网赢钱不给
VB.net 2010 视频亚博足球娱乐场注册--任意三数字加yabo.com直达官网 VB.net 2010 视频亚博足球娱乐场注册--任意三数字加yabo.com直达官网 VB.net 2010 视频亚博足球娱乐场注册--任意三数字加yabo.com直达官网
SQL Server 2008 视频亚博足球娱乐场注册--任意三数字加yabo.com直达官网 c#入门经典亚博足球娱乐场注册--任意三数字加yabo.com直达官网 Visual Basic从门到精通视频亚博足球娱乐场注册--任意三数字加yabo.com直达官网
当前位置:
首页 > 网站开发 > ASPnet >
  • asp.net亚博足球娱乐场注册--任意三数字加yabo.com直达官网之ASP实现文件直接下载

  • 2017-06-11 20:12 来源:未知
在IE进行文档链接时,如果遇到OLE支持的文档,IE会自动调用相应程序打开它,有时候这种功能并不是我们所需的,虽然我们可以提醒用户用鼠标右键-->"目标另存为...."命令来下载文档,但这样毕竟不太友好,本文描述了利用FSO及Stream方法实现IE直接下载文档.

<%@ language=vbscript codepage=65001%>

<%?
''Filename must be input
if Request("Filename")="" then
response.write "

Error:

Filename is empty!

"
else
call??downloadFile(replace(replace(Request("Filename"),"\",""),"/",""))????

Function??downloadFile(strFile)????
''??make??sure??you??are??on??the??latest??MDAC??version??for??this??to??work????
''??get??full??path??of??specified??file????
strFilename??=??server.MapPath(strFile)????

''??clear??the??buffer????
Response.Buffer??=??True????
Response.Clear????

''??create??stream????
Set??s??=??Server.CreateObject("ADODB.Stream")????
s.Open????

''??Set??as??binary????
s.Type??=??1????

''??load??in??the??file????
on??error??resume??next????

''??check??the??file??exists
Set??fso??=??Server.CreateObject("Scripting.FileSystemObject")????
if??not??fso.FileExists(strFilename)??then????
Response.Write("

Error:

"&strFilename&" does not exists!

")????
Response.End????
end??if

''??get??length??of??file????
Set??f??=??fso.GetFile(strFilename)????
intFilelength??=??f.size????

s.LoadFromFile(strFilename)????
if??err??then????
Response.Write("

Error:

Unknown Error!

")????
Response.End?
end??if??

''??send??the??headers??to??the??users??Browse
Response.AddHeader??"Content-Disposition","attachment;??filename="&f.name????
Response.AddHeader??"Content-Length",intFilelength????
Response.CharSet??=??"UTF-8"????
Response.ContentType??=??"application/octet-stream"????

''??output??the??file??to??the??browser????
Response.BinaryWrite??s.Read????
Response.Flush????

''??tidy??up????
s.Close????
Set??s??=??Nothing????

End??Function????
end if
%> ? ? ?

相关亚博足球娱乐场注册--任意三数字加yabo.com直达官网