沈阳营销型网站建设 网站优化 seo优化 网络营销 就选AG游戏大厅
咨询热线:024-31656768
首页 关于我们 成功案例 网站建设 SEO优化 全网营销 新闻资讯 联系我们
 

ASP实现文件直接下载

日期:2013年02月06日 来源:沈阳AG游戏大厅(www.cheeme.com)

 

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

主程序代码如下:
--------------------------------------------------------------------------------
'定义所有需要使用的变量 
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


沈阳网站建设选择我们就没错,提供全套的一条龙网站建设和沈阳seo服务,网站维护终身免费,让您最大程度上拥有成功网站优势!网站地图 快速通道

 

 
·网络营销之网站优化推广难点[2018-03-01]
·网站优化中SEO关键词密度到底多少[2018-03-01]
·网站seo黑帽优化手法到底是什么呢[2018-03-01]
·企业公司网站优化四大基本优化准[2018-03-01]
·电商网站优化难度高?支招8点SEO技[2018-03-01]
·网站SEO优化要注意的6个问题[2018-02-01]
·如何对网站栏目进行优化[2018-02-01]
·如何才能加快网站文章的收录[2018-02-01]
·将来网站内容优化的四个方向[2018-02-01]
·网站内容优化建设需要关注的几个[2018-02-01]
·企业网址制作的基本流程[2018-01-24]
·企业网站标题优化注意事项[2018-01-24]
·影响企业网站制作质量的主要因素[2018-01-24]
·要客观认识seo的作用与效果[2018-01-18]
 
  "用诚心做好服务,用实力做好质量!   网站地图  快速通道     电话:024-31656768   手机:13840407908
点击这里给我发消息
点击这里给我发消息