<%
const savepath="tempfile/"
function myreplace(str)
新しいstr=str
set 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)
temp=split(url,".")
ランダム化する
ranNum=int(90000*rnd)+10000
ファイル名=年(現在)&月(現在)&日(現在)&時間(現在)&分(現在)&秒(現在)&ranNum&"."&temp(ubound(temp))
set xmlhttp=server.createobject("Microsoft.XMLHTTP")
xmlhttp.open "get",url,false
xmlhttp.send
xmlhttp.status<>200 の場合
saveimg=""
それ以外
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
objAdostream=何も設定しない
saveimg=保存パス&ファイル名
終了する場合
xmlhttp=nothing を設定します
終了関数
%>