返回首页 设为首页 文件存储 在线客服
本站公告: erewr
关键字:
产品分类
电脑配件
生活电器
化妆美容
居家日用
歌曲视频
付费资料
水果海鲜
各种服务
各种家具
灯饰照明
热门产品
海康 DS-7
石泉移动宽带价格表
石泉联想电脑维修
美肤宝护肤品套装女补水保
石泉惠普电脑维修
2016最新热门商品邑国
惠普(HP)DeskJe
爱华扩音器s-168扩音
石泉旺牛斋老坛酸菜140
小天鹅 TG7
联系我们
网址:我的小店
房产新闻 交谊舞曲
我的网店 本地视频 
联系电话:15129705896
6217997900052585360
最新添加
Malata/万利达&n
changhong/长虹
长虹电磁炉家用智能触屏电
SAST/先科 
山水SA1户外广场舞音响
柏林声801 
中华复印纸 A
万利达X19广场舞音响摆
爱华轰8广场舞音响8寸消
正泰开关插座 
产品展示

   电脑配件 >> 破解图片防盗链的代码(asp/php)测试通过
 

转账后请联系:15129705896 发货

产品编号:
12320291716
产品名称:
破解图片防盗链的代码(asp/php)测试通过
单  价:
¥免费
产品类别:
电脑配件 产品出自:admin
   产 品 说 明
许多的网站图片都加了防盗链措施,常见的新浪博客、网易相册、百度空间、QQ空间都不能外链图片,如果要先把图片保存到本地再上传,不免显得麻烦。
php版的代码比较简单:
复制代码 代码如下:

<?php 
$p=$_GET['p']; 
$pics=file($p); 
for($i=0;$i< count($pics);$i++) 

echo $pics[$i]; 

?> 


使用方法:将文件保存成i.php上传到根目录 
将不能外链的图片地址改成http://你的域名p.php?p=图片地址 

asp版,网上用的比较多的
复制代码 代码如下:

<% 
Dim url, body, myCache 
url = Request.QueryString("url") 
Set myCache = new cache 
myCache.name = "picindex"&url 
If myCache.valid Then 
body = myCache.value 
Else 
body = GetWebData(url) 
myCache.add body,dateadd("d",1,now) 
End If 
If Err.Number = 0 Then 
Response.CharSet = "UTF-8" 
Response.ContentType = "application/octet-stream" 
Response.BinaryWrite body 
Response.Flush 
Else 
Wscript.Echo Err.Description 
End if 
'取得数据 
Public Function GetWebData(ByVal strUrl) 
Dim curlpath 
curlpath = Mid(strUrl,1,Instr(8,strUrl,"/")) 
Dim Retrieval 
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP") 
With Retrieval 
.Open "Get", strUrl, False,"","" 
.setRequestHeader "Referer", curlpath 
.Send 
GetWebData =.ResponseBody 
End With 
Set Retrieval = Nothing 
End Function 
'cache类 
class Cache 
private obj 'cache内容 
private expireTime '过期时间 
private expireTimeName '过期时间application名 
private cacheName 'cache内容application名 
private path 'url 
private sub class_initialize() 
path=request.servervariables("url") 
path=left(path,instrRev(path,"/")) 
end sub 
private sub class_terminate() 
end sub 
public property get blEmpty 
'是否为空 
if isempty(obj) then 
blEmpty=true 
else 
blEmpty=false 
end if 
end property 
public property get valid 
'是否可用(过期) 
if isempty(obj) or not isDate(expireTime) then 
valid=false 
elseif CDate(expireTime)<now then 
valid=false 
else 
valid=true 
end if 
end property 
public property let name(str) 
'设置cache名 
cacheName=str & path 
obj=application(cacheName) 
expireTimeName=str & "expires" & path 
expireTime=application(expireTimeName) 
end property 
public property let expires(tm) 
'重设置过期时间 
expireTime=tm 
application.lock 
application(expireTimeName)=expireTime 
application.unlock 
end property 
public sub add(var,expire) 
'赋值 
if isempty(var) or not isDate(expire) then 
exit sub 
end if 
obj=var 
expireTime=expire 
application.lock 
application(cacheName)=obj 
application(expireTimeName)=expireTime 
application.unlock 
end sub 
public property get value 
'取值 
if isempty(obj) or not isDate(expireTime) then 
value=null 
elseif CDate(expireTime)<now then 
value=null 
else 
value=obj 
end if 
end property 
public sub makeEmpty() 
'释放application 
application.lock 
application(cacheName)=empty 
application(expireTimeName)=empty 
application.unlock 
obj=empty 
expireTime=empty 
end sub 
public function equal(var2) 
'比较 
if typename(obj)<>typename(var2) then 
equal=false 
elseif typename(obj)="Object" then 
if obj is var2 then 
equal=true 
else 
equal=false 
end if 
elseif typename(obj)="Variant()" then 
if join(obj,"^")=join(var2,"^") then 
equal=true 
else 
equal=false 
end if 
else 
if obj=var2 then 
equal=true 
else 
equal=false 
end if 
end if 
end function 
end class 
%>

使用方法:将文件保存成i.asp上传到根目录 
将不能外链的图片地址改成http://你的域名/p.asp?url=图片地址 
为方便大家使用,复制的代码,容易出现错误。特打包下载

猜你喜欢

aspupload&
asp随机抽奖程序&
数字万用表笔&nbs
wifi万能钥匙密码
全国包邮厂家步阳防盗
KACO 
美赛图免会员去广告高
国内香港独立云虚拟主
HPP液晶电视32H
爱大爱手机眼镜
SAST/先科&nb
HYC H
点击数:100  录入时间:2019/1/23 【打印此页】 【产品图片】 【关闭

友情链接: 石泉平价茶行   石泉人   缴费系统   组装电脑配置清单   2345网址导航   毒霸网址大全   电脑技术网  
网站首页 | 关于我们 | 新闻中心 | 企业荣誉 | 产品展示 | 营销网络 | 人才招聘  | 在线留言 | 联系我们 | 在线客服|热门新闻|大家都在搜站长快车采集器

石泉蓝天数码科技 2016 版权所有 COPYRIGHT 2008-2014 sxdh.org ALL RIGHTS RESRVED
通讯地址:陕西省安康市石泉县蓝天数码科技 联系电话:15129705896  联系QQ:503707720

免责声明:本文仅代表作者个人观点,与蓝天数码科技无关。其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。