รหัสสำหรับการใช้ asp เพื่อรับรายการอัปเดตความปลอดภัยของ Microsoft นั้นเป็นโปรแกรมขโมยจริงๆ เพื่อโค้ดที่ดีกว่า คุณสามารถดาวน์โหลดซอร์สโค้ดที่ Script House ให้มาได้ คัดลอกรหัสรหัสดังต่อไปนี้:
-
ฟังก์ชั่น Bytes2bStr (vin, cSet)
Dim BytesStream, StringReturn
ตั้งค่า BytesStream = Server.CreateObject (ADODB.Stream)
BytesStream.Type = 2
BytesStream.Open
BytesStream.WriteText วิน
BytesStream.Position = 0
BytesStream.CharSet = cSet
BytesStream.Position = 2
StringReturn =BytesStream.ReadText
BytesStream.close
ตั้งค่า BytesStream = ไม่มีเลย
Bytes2bStr = StringReturn
ฟังก์ชันสิ้นสุด
ตั้งค่า xmlhttp = server.CreateObject(Msxml2.XMLHTTP)
m_queryURL = http://www.microsoft.com/china/technet/security/current.mspx
XMLHTTP.Open GET, m_queryURL, เท็จ
XMLHTTP.ส่ง()
s = XMLHTTP.responseBody
aa = Bytes2bStr(s,GB2312)
ตั้งใหม่ = RegExp ใหม่
re.Pattern = <span class=label>.*?</span>
re.Global = จริง
re.IgnoreCase = จริง
re.MultiLine = เท็จ
ตั้งค่าการจับคู่ = re.Execute (aa)
เวลาสลัว
ทีเอ็มพี=
สำหรับแต่ละนัดในการแข่งขัน
tmp = tmp&match.value
ต่อไป
tmp = แทนที่ (tmp,href=,target=_blank href=http://www.microsoft.com)
ตั้งค่า fso = server.CreateObject (scripting.filesystemobject)
ตั้งค่า f = fso.OpenTextFile (server.mappath (Microsoft.html), 2, จริง)
ฉ. เขียน (tmp)
ฉ.ปิด
ตั้งค่า fso = ไม่มีเลย
การตอบสนอง เปลี่ยนเส้นทาง Microsoft.html
-