บันทึกรูปภาพที่เกี่ยวข้องกับเนื้อหาบทความไปยังเซิร์ฟเวอร์ภายในเครื่องโดยอัตโนมัติ

-
const savepath = "tempfile /"

ฟังก์ชั่น myreplace (str)
ข่าว = STR
ตั้ง objregEx = RegExp ใหม่
objregEx.IgnoreCase = จริง
objregEx.Global = จริง
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*รอบ)+10000
ชื่อไฟล์=ปี(ตอนนี้)&เดือน(ตอนนี้)&วัน(ตอนนี้)&ชั่วโมง(ตอนนี้)&นาที(ตอนนี้)&วินาที(ตอนนี้)&ranNum&"."&temp(ubound(temp))
ตั้งค่า xmlhttp=server.createobject("Microsoft.XMLHTTP")
xmlhttp.open "get",url,false
xmlhttp.ส่ง
ถ้า xmlhttp.status<>200 แล้ว
บันทึก =""
อื่น
img=xmlhttp.ResponseBody
ตั้ง objAdostream=server.createobject("ADODB.Stream")
objAdostream.เปิด()
objAdostream.type=1
objAdostream.เขียน (img)
objAdostream.SaveToFile(server.mappath("./"&savepath&ชื่อไฟล์))
objAdostream.SetEOS
ตั้งค่า objAdostream=nothing
saveimg=savepath&ชื่อไฟล์
สิ้นสุดถ้า
ตั้งค่า xmlhttp=nothing
ฟังก์ชั่นสิ้นสุด
-