PHP version of the code is relatively simple:
Copy Code code as follows:
<?php
$p =$_get[' P '];
$pics =file ($p);
for ($i =0; $i < count ($pics); $i + +)
{
echo $pics [$i];
}
?>
How to: Save a file as a i.php upload to the root directory
Will not be outside the chain of the picture address changed to http://your domain name p.php?p= picture address
ASP version, the online use of a relatively many
Copy Code code 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
' Get the 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 ' Expiration time
Private Expiretimename ' Expired 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) <now Then
Valid=false
Else
Valid=true
End If
End Property
Public Property Let name (str)
' Set 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)
' Assign 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) <now Then
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: Save a file as a i.asp upload to the root directory
Will not be outside the chain of the picture address changed to http://your domain name/p.asp?url= picture address
For the convenience of everyone to use, copy the code, prone to errors. Special Package Download
