本页内容是《文件下载代码》同时我们还提供济宁地区的网站建设,百度,雅虎,google的推广,点金,商友,等营销软件
请输入关键字:

标题搜索 内容搜索  

你现在所在的位置->首页->asp专区->文件下载代码

文件下载代码

时间:[2012-4-14 10:20:02]     作者:请作者尽快与我们联系。

<%
Function downloadFile(strFile)
strFilename = server.MapPath(strFile)
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> 文件不存在<p>")
Response.End
end if
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>Error: </h1>" & err.Description & "<p>")
Response.End
end if
Response.AddHeader "Content-Disposition", "attachment; filename=" &f.name
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite s.Read
Response.Flush
s.Close
Set s = Nothing
End Function

%>
  <p style="color:#FF0000;display : inline;">右击另存为下载<h3><a href="<%downloadFile("word/"&rs("title")&".doc")%>"><%=rs("title")%>.doc</a></h3></p>

【声明】本站刊载的《文件下载代码》一文如果有侵害你权益的情况,请联系我们。我们将及时采取措施。
QQ:44637339 Email:just6@163.com Tel:13355163107 Lining studios

友情链接

本页内容是《文件下载代码》 返回顶部
© 2001-2018 Lining studios 济宁速创科技有限公司, All Rights Reserved
 Processed Time:62.500ms