<%
　　const savepath="tempfile/"

　　function myreplace(str)
　　newstr=str
　　set objregEx = new RegExp
　　objregEx.IgnoreCase = true
　　objregEx.Global = true
　　objregEx.Pattern = "http://(.+？).(jpg|gif|png|bmp)"
　　set matches = objregEx.execute(str)
　　for each match in matches
　　newstr=replace(newstr,match.value,saveimg(match.value))
　　next
　　myreplace=newstr
　　end function

　　function saveimg(url)
　　temp=split(url,".")
　　randomize
　　ranNum=int(90000*rnd)+10000
　　filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&temp(ubound(temp))
　　set xmlhttp=server.createobject("Microsoft.XMLHTTP")
　　xmlhttp.open "get",url,false
　　xmlhttp.send
　　if xmlhttp.status<>200 then
　　 saveimg=""
　　else
　　 img=xmlhttp.ResponseBody
　　 set objAdostream=server.createobject("ADODB.Stream")
　　 objAdostream.Open()
　　 objAdostream.type=1
　　 objAdostream.Write(img)
　　 objAdostream.SaveToFile(server.mappath("./"&savepath&filename))
　　 objAdostream.SetEOS
　　 set objAdostream=nothing
　　 saveimg=savepath&filename
　　end if
　　set xmlhttp=nothing
　　end function
　　%>