会员登陆
登录加载中...
超级搜索
栏  目  
类  别  
关键词  
 站内搜索   网络搜索
  
 当前位置:文章首页>>网页编程>>ASP实例>>ASP隐藏真实文件的下载功能实现代码
推荐给你的朋友阅读:

ASP隐藏真实文件的下载功能实现代码

来源:ASP之家 发表日期: 2011-09-20 16:19:58

    格式:Download.asp?FileName=要下载的文件名

代码如下:

Dim Stream 

Dim Contents 
Dim FileName 
Dim FileExt 
Const adTypeBinary = 1 
FileName = Request.QueryString("FileName") 
if FileName = "" Then 
Response.Write "无效文件名." 
Response.End 
End if 
' 下面是不希望下载的文件 
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1) 
Select Case UCase(FileExt) 
Case "ASP", "ASA", "ASPX", "ASAX", "MDB" 
Response.Write "受保护文件,不能下载." 
Response.End 
End Select 
' 下载这个文件 
Response.Clear 
Response.ContentType = "application/octet-stream" 
Response.AddHeader "content-disposition", "attachment; filename=" & FileName 
Set Stream = server.CreateObject("ADODB.Stream") 
Stream.Type = adTypeBinary 
Stream.Open 
Stream.LoadFromFile Server.MapPath(FileName) 
While Not Stream.EOS 
Response.BinaryWrite Stream.Read(1024 * 64) 
Wend 
Stream.Close 
Set Stream = Nothing 
Response.Flush 
Response.End 

0
0
[作者:匿名 关键词:隐藏真实文件 录入:raincity 责编:raincity 阅读次数:6574]

相关文章 相关新闻 相关软件 相关教程 公共评论 发表评论

  • ·暂无相关内容
  • ·暂无相关内容
  • ·暂无相关内容
  • ·暂无相关内容
    评论载入中...
    您的称呼  验 证 码   
    您的评论 [ 最多字数:  已用字数:剩余字数:]

     
COPYRIGHT 2003-2010 创意飞腾科技有限公司(The Feitec LTD.) ALL RIGHTS RESERVED .
官方咨询官方咨询4376161 官方咨询526743959 技术支持:FeitecCMS5366464
页面加载时间:78.13ms Powered By:FeitecCMS V4.0(Build1101)
[蜀ICP备05000881]