用asp获取微软安全更新列表的代码 小偷程序
2018-09-06 11:48
复制代码 代码如下:
<%
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 =
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=, href=
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
%>