Kode penggunaan asp untuk mendapatkan daftar update keamanan Microsoft sebenarnya adalah program pencuri. Prinsipnya relatif sederhana. Teman-teman yang sedang mempelajari program pencuri asp bisa merujuknya. Untuk kode yang lebih baik, Anda dapat mengunduh kode sumber yang disediakan oleh Script House. Copy kode kodenya sebagai berikut:
<%
Fungsi Bytes2bStr(vin,cSet)
Redupkan BytesStream,StringReturn
Setel BytesStream = Server.CreateObject(ADODB.Stream)
BytesStream.Jenis = 2
BytesStream.Buka
BytesStream.WriteText vin
BytesStream.Posisi = 0
BytesStream.CharSet = cSet
BytesStream.Posisi = 2
StringReturn =BytesStream.ReadText
BytesStream.tutup
Setel BytesStream = Tidak Ada
Bytes2bStr = StringReturn
Fungsi Akhir
Setel xmlhttp = server.CreateObject(Msxml2.XMLHTTP)
m_queryURL = http://www.microsoft.com/china/technet/security/current.mspx
XMLHTTP.Buka GET, m_queryURL, salah
XMLHTTP.kirim()
s = XMLHTTP.responseBody
aa = Byte2bStr(s,GB2312)
Setel re = RegExp Baru
re.Pattern = <span class=label>.*?<//span>
re.Global = Benar
re.IgnoreCase = benar
re.MultiLine = salah
atur kecocokan = re.Execute(aa)
redup tmp
tmp=
untuk setiap pertandingan dalam pertandingan
tmp = tmp&cocokkan.nilai
Berikutnya
tmp = Ganti(tmp,href=,target=_blank href=http://www.microsoft.com)
set fso = server.CreateObject(scripting.filesystemobject)
set f = fso.OpenTextFile(server.mappath(Microsoft.html),2,true)
f.tulis(tmp)
f.tutup
atur fso = tidak ada
respon.Redirect Microsoft.html
%>