<%
const savepath="tempfile/"
fungsi pengganti saya(str)
beritatr=str
atur objregEx = RegExp baru
objregEx.IgnoreCase = benar
objregEx.Global = benar
objregEx.Pattern = " http://(.+?).(jpg|gif|png|bmp )"
setel kecocokan = objregEx.execute(str)
untuk setiap pertandingan dalam pertandingan
newstr=ganti(newstr,match.value,saveimg(match.value))
Berikutnya
pengganti saya=newstr
fungsi akhir
fungsi simpanimg(url)
suhu=pisah(url,".")
mengacak
ranNum=int(90000*rnd)+10000
nama file=tahun(sekarang)&bulan(sekarang)&hari(sekarang)&jam(sekarang)&menit(sekarang)&detik(sekarang)&ranNum&"."&temp(ubound(temp))
atur xmlhttp=server.buat objek("Microsoft.XMLHTTP")
xmlhttp.buka "dapatkan", url, salah
xmlhttp.kirim
jika xmlhttp.status<>200 maka
simpanimg=""
kalau tidak
img=xmlhttp.ResponseBody
setel objAdostream=server.createobject("ADODB.Stream")
objAdostream.Buka()
objAdostream.type=1
objAdostream.Tulis(img)
objAdostream.SaveToFile(server.mappath("./"&savepath&nama file))
objAdostream.SetEOS
atur objAdostream=tidak ada
saveimg=savepath&namafile
berakhir jika
atur xmlhttp=tidak ada
fungsi akhir
%>