利用asp获取微软安全更新列表的代码小偷程序

发布时间：2023-10-20 09:51:01 所属栏目：Asp教程来源：

导读：复制代码代码如下:
<%
Function Bytes2bStr(vin,cSet)
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
BytesStream.Type = 2
BytesStream.Open
BytesStream.WriteTex

复制代码代码如下:
<%
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获取微软安全更新列表的代码小偷程序