<%
const savepath = "tempfile/"
função myreplace (str)
newstr=str
definir objregEx = novo RegExp
objregEx.IgnoreCase = verdadeiro
objregEx.Global = verdadeiro
objregEx.Pattern = " http://(.+?).(jpg|gif|png|bmp )"
definir correspondências = objregEx.execute (str)
para cada partida em partidas
newstr=substituir(newstr,match.value,saveimg(match.value))
próximo
meusubstituir=newstr
função final
função saveimg(url)
temp=dividir(url,".")
randomizar
numRan=int(90000*rnd)+10000
filename=ano(agora)&mês(agora)&dia(agora)&hora(agora)&minuto(agora)&segundo(agora)&ranNum&"."&temp(ubound(temp))
definir xmlhttp=server.createobject("Microsoft.XMLHTTP")
xmlhttp.open "get",url,falso
xmlhttp.send
se xmlhttp.status<>200 então
salvarimg=""
outro
img=xmlhttp.ResponseBody
definir objAdostream=server.createobject("ADODB.Stream")
objAdostream.Open()
objAdostream.type=1
objAdostream.Write(img)
objAdostream.SaveToFile(server.mappath("./"&savepath&nome do arquivo))
objAdostream.SetEOS
definir objAdostream = nada
saveimg=savecaminho&nome do arquivo
terminar se
definir xmlhttp = nada
função final
%>