首页 | 心情日记 | 建站心得 | 编程技术 | 大盘分析 | 股市信息 | 学习园地 | 电脑技巧 | 物流外贸 | 另类其它 | 站长推荐 | 给我留言 | 相册

用户登陆
用户:
密码:
 
不保存保存一天
保存一月保存一年

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新评论

日志搜索

 标题   内容


ASP下载系统防盗链方法 网站图片防被盗的方法汇总
未知 ASP二进制流方法隐藏图片文件真实地址   [ 日期:2010-01-20 18:30:59 ]   [ 来自:本站原创 ]

海外邮件中继,海外退信中继,美国高速VPS,不限流量VPN,邮局维护和管理,邮件网关,EMOS邮件中继,POSTFIX邮件中继,Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店:http://shantan.taobao.com 云邮科技官网:www.yunrelay.com

【字体设置:
功能描述:上传图片文件到指定目录后,在本文件根据URL传入的文件名加上文件所在目录根据文件完整路径。再将该文件二进制数据流写入服务页面,从而达到隐藏图片真实地址防止外部引用图片的效果。


程序代码:[ 复制代码到剪贴板 ]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<% 
Option Explicit 

Const SysUrl="http://www.80Boby.com/uImg/" 
Function ReadBinFile(fileName) 
 Dim objStream,bin 
 Set objStream = Server.CreateObject("ADODB.Stream") 
 objStream.Open 
 objStream.Type = 1 
 objStream.LoadFromFile fileName  
    bin = objStream.Read 
 objStream.Close 
 ReadBinFile = bin 
End Function 
Function isSelfRefer()  
Dim sHttp_Referer, sServer_Name  
sServer_Name = CStr(Request.ServerVariables("HTTP_REFERER"))  
if instr(sServer_Name,"80boby.com")<>0 or instr(sServer_Name,"freeat63.cn")<>0 then 
IsSelfRefer = True  
Else  
IsSelfRefer = False  
End If  
End Function  
if request.QueryString("Mark")="getPic" then 
 Dim RealUrl,fso 
 Dim uFileName:uFileName=Request.QueryString("x") 
 RealUrl=Server.MapPath("文件真实路径"&uFileName) 
 Set fso = Server.CreateObject("Scripting.FileSystemObject") 
 if Not(fso.FileExists(RealUrl)) then RealUrl=Server.MapPath("logo.gif") 
  
 if Not(isSelfRefer) then 
 RealUrl=Server.MapPath("logo.gif") 
 end if 
 response.contenttype = "image/jpeg"  
 response.BinaryWrite ReadBinFile(RealUrl) 
 response.end 
end if 
%>


暂时没有评论
   发表评论 - 不要忘了输入验证码哦!
作者: 用户:  密码:  我要注册 验证码: 
为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
确定发布?
最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!
 
   

CopyRight © 2008-2010 广东金融学院030904班 All Rights Reserved
Powered by www.030904.com