用asp取得微軟安全更新清單的程式碼小偷程序

用asp取得微軟安全更新清單的程式碼，其實就是小偷程序，原理比較簡單，學習asp小偷程式的朋友可以參考下。更好的程式碼可以下載腳本之家提供的原始碼。複製代碼代碼如下:

<%

Function Bytes2bStr(vin,cSet)

Dim BytesStream,StringReturn

Set BytesStream = Server.CreateObject(ADODB.Stream)

BytesStream.Type = 2

BytesStream.Open

BytesStream.WriteText vin

BytesStream.Position = 0

BytesStream.CharSet = cSet

BytesStream.Position = 2

StringReturn =BytesStream.ReadText

BytesStream.close

Set BytesStream = Nothing

Bytes2bStr = StringReturn

End Function

Set xmlhttp = server.CreateObject(Msxml2.XMLHTTP)

m_queryURL = http://www.microsoft.com/china/technet/security/current.mspx

XMLHTTP.Open GET, m_queryURL, false

XMLHTTP.send()

s = XMLHTTP.responseBody

aa = Bytes2bStr(s,GB2312)

Set re = New RegExp

re.Pattern = <span class=label>.*?<//span>

re.Global = True

re.IgnoreCase = true

re.MultiLine = false

set matches = re.Execute(aa)

dim tmp

tmp =

for each match in matches

tmp = tmp&match.value

next

tmp = Replace(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.write(tmp)

f.close

set fso = nothing

response.Redirect Microsoft.html

%>