沈阳营销型网站建设 网站优化 seo优化 网络营销 就选同胜科技
咨询热线:024-83810631
首页 关于我们 成功案例 网站建设 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服务,网站维护终身免费,让您最大程度上拥有成功网站优势!网站地图 快速通道

 

 
·SEO站内优化有哪些手法[2018-06-11]
·如何降低网站改版对网站的影响[2018-06-11]
·seo网站建设前需要注意的优化点[2018-06-11]
·在做网站优化时网页的标题标签太[2018-06-11]
·做SEO时需要在每个网页标题加网站[2018-06-11]
·seosem是什么意思?[2018-06-11]
·史上最齐全关键词排名下降的原因[2018-06-11]
·老站优化长尾关键词的技术分享[2018-06-11]
·网站关键词11-50名快速进入首页的[2018-06-11]
·网站关键词排名怎么去优化到百度[2018-06-11]
·目标关键词定位核心思想[2018-06-11]
·做好这三点,为关键词优化减负![2018-06-11]
·网络营销之网站优化推广难点[2018-03-01]
·网站优化中SEO关键词密度到底多少[2018-03-01]
 
  "用 诚心做好服务,用实力做好质量!   网 站地图  快速通道      电话:024-83810631   手机:13840407908
点击这里给我发消息
点击这里给我发消息