<%
const savepath="tempfile/"
функция myreplace(str)
newstr=str
установить objregEx = новое RegExp
objregEx.IgnoreCase = правда
objregEx.Global = правда
objregEx.Pattern = " http://(.+?).(jpg|gif|png|bmp )"
установить совпадения = objregEx.execute(str)
за каждый матч в матчах
newstr=replace(newstr,match.value,saveimg(match.value))
следующий
myreplace=newstr
завершения функции
saveimg(url)
temp=split(url,".")
рандомизировать
ranNum=int(90000*rnd)+10000
имя_файла=год(сейчас)&месяц(сейчас)&день(сейчас)&час(сейчас)&минуту(сейчас)&секунду(сейчас)&ranNum&"."&temp(ubound(temp))
set xmlhttp=server.createobject("Microsoft.XMLHTTP")
xmlhttp.open "получить", URL, ложь
xmlhttp.send
если xmlhttp.status<>200, то
сохранитьимг=""
еще
img=xmlhttp.ResponseBody
set objAdostream=server.createobject("ADODB.Stream")
objAdostream.Open()
objAdostream.type=1
objAdostream.Write(img)
objAdostream.SaveToFile(server.mappath("./"&savepath&имя файла))
objAdostream.SetEOS
установить objAdostream=ничего
saveimg=путь сохранения&имя файла
конец, если
установить xmlhttp=ничего
конечная функция
%>