用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"

　　%>