PHP version of the code is relatively simple:
Copy CodeThe code is as follows:
$p =$_get[' P '];
$pics =file ($p);
for ($i =0; $i < count ($pics); $i + +)
{
echo $pics [$i];
}
?>
How to use: Save files to i.php and upload them to the root directory
Can not be outside the chain image address to change to HTTP.//your domain name p.php?p= image address
ASP version, the use of more than the Internet
Copy CodeThe code is as follows:
<%
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
' Access to data
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
Class Cache
Private obj ' cache content
Private Expiretime ' expiry time
Private expiretimename ' expiry time application name
Private CacheName ' cache content application name
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
' Is empty
If IsEmpty (obj) Then
Blempty=true
Else
Blempty=false
End If
End Property
Public Property Get Valid
' is available (expired)
If IsEmpty (obj) or not isDate (expiretime) Then
Valid=false
ElseIf CDate (Expiretime) Valid=false
Else
Valid=true
End If
End Property
Public Property Let name (str)
' Set the cache name
CACHENAME=STR & Path
Obj=application (CacheName)
EXPIRETIMENAME=STR & "Expires" & Path
Expiretime=application (Expiretimename)
End Property
Public Property Let expires (tm)
' Reset Expiration Time
Expiretime=tm
Application.Lock
Application (Expiretimename) =expiretime
Application.UnLock
End Property
Public Sub Add (Var,expire)
' Assigned value
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
' Take value
If IsEmpty (obj) or not isDate (expiretime) Then
Value=null
ElseIf CDate (Expiretime) Value=null
Else
Value=obj
End If
End Property
Public Sub Makeempty ()
' Release application
Application.Lock
Application (CacheName) =empty
Application (Expiretimename) =empty
Application.UnLock
Obj=empty
Expiretime=empty
End Sub
Public function equal (VAR2)
' Comparison
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
%>
How to use: Save files to i.asp and upload them to the root directory
Can not be outside the chain image address to change to HTTP.//your domain name/p.asp?url= image address
For the convenience of everyone to use, copy the code, prone to errors. Special Package Download
http://www.bkjia.com/PHPjc/322110.html www.bkjia.com true http://www.bkjia.com/PHPjc/322110.html techarticle PHP version of the code is relatively simple: Copy the code as follows: PHP $p =$_get[' P '], $pics =file ($p); for ($i =0; $i count ($pics); $i + +) {echo $pics [$i];}? How to use: Save the file as an I ...
