Obtain the content remotely and store the content on the local computer, including any files! Using xmlhttp and adodb. stream, cool

<%
'------------------------------------------------------------------------
'------------------- Boundless domain: http://www.5inet.net /---------------------
'----------------- Author: Hip hop Oh hey, webmaster@5inet.net -----------------
'---------- Obtain the content remotely and store the content on the local computer, including any files! ----------
'--------------- Using xmlhttp and adodb. stream, cool! Absolutely original! -----------------
'On Error Resume Next
'Set the content type to the specific type that you are sending.
'Response. ContentType = "IMAGE/JPEG"
'------------------------------- Define the output format -----------------------------
Path = request. querystring ("p ")
SPath = Path
If left (lcase (path), 7) <> "http: //" then
'------------- If there is no http before, it is a local file. Submit it to LocalFile for processing ------------
LocalFile (path)
Else
'------------------ Otherwise, the remote file will be handed to RemoteFile for processing ------------------
RemoteFile (Path)
End if
'Response. Write err. Description
Sub LocalFile (Path)
'------------------- If the file is a local file, you can simply jump to this page -------------------
Response. Redirect Path
End Sub
Sub RemoteFile (sPath)
'------------------------- Remote file processing function ------------------------------
FileName = GetFileName (sPath)
'------------- GetFileName is the process of converting an address to a qualified file name -------------
FileName = Server. MapPath ("/UploadFile/Cache/" & FileName)
Set objFso = Server. CreateObject ("Scripting. FileSystemObject ")
'Response. Write fileName
If objFso. FileExists (FileName) Then
'-------------- Check whether the file has been accessed. If yes, simply jump ------------
Response. Redirect "/uploadfile/cache/" & GetFileName (path)