<%
const savepath="tempfile/"
함수 myreplace(str)
뉴스스트=스트
objregEx = 새로운 RegExp 설정
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
함수 종료
함수 saveimg(url)
임시=분할(url,".")
무작위화하다
ranNum=int(90000*rnd)+10000
filename=연도(현재)&월(현재)&일(현재)&시간(현재)&분(현재)&초(현재)&ranNum&"."&temp(ubound(임시))
xmlhttp=server.createobject("Microsoft.XMLHTTP") 설정
xmlhttp.open "get",url,false
xmlhttp.send
xmlhttp.status<>200이면
저장img=""
또 다른
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=아무것도 설정하지 마세요
함수 종료
%>