CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章用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"  %> 。

最后此篇关于用asp获取微软安全更新列表的代码 小偷程序的文章就讲到这里了,如果你想了解更多关于用asp获取微软安全更新列表的代码 小偷程序的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。