asp破解图片盗链代码

 

源代码如下：

1. <%
2. '破解图片盗链
3. '使用方法:tu.asp?url=
4. 'tu.asp?url=http://hi.baidu.com/egergfdgregwe.jpg
6. Dim url, body, myCache
7. url = Request.QueryString("url")
9.   Set myCache = new cache
10.   myCache.name = "picindex"
11.   If myCache.valid Then
12.           body = myCache.value
13.   Else
14.           body = GetWebData(url)
15.           myCache.add body,dateadd("d",1,now)
16.   End If
18.   If Err.Number = 0 Then
19.         Response.CharSet = "UTF-8"
20.         Response.ContentType = "application/octet-stream"
21.         Response.BinaryWrite body
22.         Response.Flush
23.   Else
24.         Wscript.Echo Err.Description
25.   End if
27. '取得数据
28. Public Function GetWebData(ByVal strUrl)
29. Dim curlpath
30. curlpath = Mid(strUrl,1,Instr(8,strUrl,"/"))
31. Dim Retrieval
32. Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
33. With Retrieval
34. .Open "Get", strUrl, False,"",""
35. .setRequestHeader "Referer", curlpath
36. .Send
37. GetWebData =.ResponseBody
38. End With
39. Set Retrieval = Nothing
40. End Function
43. 'cache类
45. class Cache
46.         private obj                                'cache内容
47.         private expireTime                '过期时间
48.         private expireTimeName        '过期时间application名
49.         private cacheName                'cache内容application名
50.         private path                        'url
51.         
52.         private sub class_initialize()
53.                 path=request.servervariables("url")
54.                 path=left(path,instrRev(path,"/"))
55.         end sub
56.         
57.         private sub class_terminate()
58.         end sub
59.         
60.         public property get blEmpty
61.                 '是否为空
62.                 if isempty(obj) then
63.                         blEmpty=true
64.                 else
65.                         blEmpty=false
66.                 end if
67.         end property
68.         
69.         public property get valid
70.                 '是否可用(过期)
71.                 if isempty(obj) or not isDate(expireTime) then
72.                         valid=false
73.                 elseif CDate(expireTime)<now then
74.                                 valid=false
75.                 else
76.                         valid=true
77.                 end if
78.         end property
79.         
80.         public property let name(str)
81.                 '设置cache名
82.                 cacheName=str & path
83.                 obj=application(cacheName)
84.                 expireTimeName=str & "expires" & path
85.                 expireTime=application(expireTimeName)
86.         end property
87.         
88.         public property let expires(tm)
89.                 '重设置过期时间
90.                 expireTime=tm
91.                 application.lock
92.                 application(expireTimeName)=expireTime
93.                 application.unlock
94.         end property
95.         
96.         public sub add(var,expire)
97.                 '赋值
98.                 if isempty(var) or not isDate(expire) then
99.                         exit sub
100.                 end if
101.                 obj=var
102.                 expireTime=expire
103.                 application.lock
104.                 application(cacheName)=obj
105.                 application(expireTimeName)=expireTime
106.                 application.unlock
107.         end sub
108.         
109.         public property get value
110.                 '取值
111.                 if isempty(obj) or not isDate(expireTime) then
112.                         value=null
113.                 elseif CDate(expireTime)<now then
114.                         value=null
115.                 else
116.                         value=obj
117.                 end if
118.         end property
119.         
120.         public sub makeEmpty()
121.                 '释放application
122.                 application.lock
123.                 application(cacheName)=empty
124.                 application(expireTimeName)=empty
125.                 application.unlock
126.                 obj=empty
127.                 expireTime=empty
128.         end sub
129.         
130.         public function equal(var2)
131.                 '比较
132.                 if typename(obj)<>typename(var2) then
133.                         equal=false
134.                 elseif typename(obj)="Object" then
135.                         if obj is var2 then
136.                                 equal=true
137.                         else
138.                                 equal=false
139.                         end if
140.                 elseif typename(obj)="Variant()" then
141.                         if join(obj,"^")=join(var2,"^") then
142.                                 equal=true
143.                         else
144.                                 equal=false
145.                         end if
146.                 else
147.                         if obj=var2 then
148.                                 equal=true
149.                         else
150.                                 equal=false
151.                         end if
152.                 end if
153.         end function
154. end class
155. %>