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去前后空格函数trim,ltrim,rtrim 2012/05/11
• ASP获取ACCESS数据库表名和结构的代码 2012/05/11
• asp过滤HTML标签的函数 2012/05/11
• ASP在线备份与恢复sqlserver数据库 2012/05/11
• ASP伪静态下实现utf-8文件缓存 2012/05/11
• ASP用iframe批量生成静态页面的写法 2012/05/11
• ASP读取远程文件并保存到本地的代码 2012/05/11
• 出现msxml3.dll 错误 '800c0005'解决方法 2012/05/11
• ASP中获取当前页面的地址与参数的函数 2012/05/11
• ASP获取一个数字的个位、十位、百位的函数 2012/05/11