<%
const savepath="archivo temporal/"
función myreplace(cadena)
noticiastr=cadena
establecer objregEx = nueva RegExp
objregEx.IgnoreCase = verdadero
objregEx.Global = verdadero
objregEx.Pattern = " http://(.+?).(jpg|gif|png|bmp )"
establecer coincidencias = objregEx.execute(str)
para cada partido en partidos
newstr=reemplazar(noticiastr,match.value,saveimg(match.value))
próximo
myreplace=noticias
función final
función saveimg(url)
temperatura=dividir(url,".")
aleatorizar
númeroran=int(90000*rnd)+10000
nombre de archivo=año(ahora)&mes(ahora)&día(ahora)&hora(ahora)&minuto(ahora)&segundo(ahora)&ranNum&"."&temp(ubound(temp))
establecer xmlhttp=server.createobject("Microsoft.XMLHTTP")
xmlhttp.open "obtener",url,falso
xmlhttp.enviar
si xmlhttp.status<>200 entonces
guardarimg=""
demás
img=xmlhttp.ResponseBody
establecer objAdostream=server.createobject("ADODB.Stream")
objAdostream.Open()
objAdostream.tipo=1
objAdostream.Write(img)
objAdostream.SaveToFile(server.mappath("./"&savepath&filename))
objAdostream.SetEOS
establecer objAdostream=nada
saveimg=guardar ruta y nombre de archivo
terminar si
establecer xmlhttp=nada
función final
%>