Big Gray Wolf's ASP toolbox -- Automatic remote image acquisition # Write By Jaron

Program implementation function: Automatically Downloads images from files on the remote page to the local server
'Save the following as save2local. asp
'Test: save2local. asp? Url = http://ent.sina.com.cn/s/m/2003-11-11/1411231388.html
<%
'Parameter settings start
Url = request ("url ")
Localaddr = server. MapPath ("images_remote/") 'is saved to the local directory.
Localdir = "images_remote/" 'relative path of http access
AllowFileExt = "jpg | bmp | png | gif" 'supported file name formats
'Parameter set
If createdir (localaddr) = false then
Response. Write "failed to create directory. Please check the directory permission"
Response. End
End if
Response. Write Convert2LocalAddr (url, localaddr, localdir)
Function Convert2LocalAddr (url, localaddr, localdir)
'Parameter description
'URL page address
'Localaddr saves the local physical address
'Localdir relative path
StrContent = getHTTPPage (url)
Set objRegExp = New Regexp
ObjRegExp. IgnoreCase = True
ObjRegExp. Global = True
ObjRegExp. Pattern = " "
Set Matches = objRegExp. Execute (strContent)
For Each Match in Matches
RetStr = RetStr & GetRemoteImages (Match. Value)
Next
ImagesArray = split (RetStr, "| ")
RemoteImage = ""
LocalImage = ""
For I = 1 to ubound (ImagesArray)
If ImagesArray (I) <> "" and instr (RemoteImage, ImagesArray (I) <1 then
Fname = baseurl & cstr (I & mid (ImagesArray (I), limit Rev (ImagesArray (I ),".")))
ImagesFileName = ImagesArray (I)
AllowFileExtArray = split (AllowFileExt, "| ")
IsGetFile = false
For tmp = 0 to ubound (AllowFileExtArray)
If lcase (GetFileExt (ImagesFileName) = ALlowFileExtArray (tmp) then
IsGetFile = True
End if
Next
If isGetFile = true then