用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

%>