<%
const savepath="tempfile/"
函数 myreplace(str)
新闻str=str
设置 objregEx = 新正则表达式
objregEx.IgnoreCase = true
objregEx.Global = true
objregEx.Pattern = " http://(.+?).(jpg|gif|png|bmp )"
设置匹配= objregEx.execute(str)
比赛中的每场比赛
newstr=replace(newstr,match.value,saveimg(match.value))
下一个
myreplace=newstr
结束函数
function saveimg(url)
临时=分割（网址，“。”）
随机化
ranNum=int(90000*rnd)+10000
文件名=年(现在)&月(现在)&日(现在)&小时(现在)&分钟(现在)&秒(现在)&ranNum&"."&temp(ubound(temp))
设置 xmlhttp=server.createobject("Microsoft.XMLHTTP")
xmlhttp.open“获取”，url，false
xmlhttp.发送
如果 xmlhttp.status<>200 那么
保存图像=“”
别的
img=xmlhttp.ResponseBody
设置 objAdostream=server.createobject("ADODB.Stream")
objAdostream.Open()
objAdostream.type=1
objAdostream.Write(img)
objAdostream.SaveToFile(server.mappath("./"&savepath&文件名))
objAdostream.SetEOS
设置 objAdostream=无
saveimg=保存路径&文件名
结束如果
设置 xmlhttp=无
结束函数
%>