复制代码 代码如下:

<%

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 = "<spanlabel"">.*?</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"

%>