复制代码 代码如下:<% 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" %>

　　推荐阅读

　　ASP页面静态化批量生成代码分享(多种方法)

1、ASP两种简单的生成静态首页的方法 为什么要生成静态首页？ 1、如果你首页读取的数据库次数比较多，速度很慢，而且占用很多服务器资源。使用静态页面访问速度当然快多了 2、搜索引擎容易搜索到 3、如果程序出问题>>>详细阅读

本文标题：用asp获取微软安全更新列表的代码 小偷程序

地址：http://www.17bianji.com/kaifa2/ASP/31862.html

 1/2    1