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