用asp獲取微軟安全更新列表的代碼 小偷程序
更新時(shí)間：2011年01月20日 00:15:58 作者：
用asp獲取微軟安全更新列表的代碼，其實(shí)就是小偷程序，原理比較簡單，學(xué)習(xí)asp小偷程序的朋友可以參考下。更好的代碼可以下載腳本之家提供的源碼。
復(fù)制代碼 代碼如下:
<%
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"
%>
相關(guān)文章
用xmlhttp編寫web采集程序...2006-12-12
通過XML中的XMLHTTP組件調(diào)用其它網(wǎng)站上的網(wǎng)頁，然后批量截取或替換原有的信息使其轉(zhuǎn)化成變量后再一一儲存到數(shù)據(jù)庫中。2009-11-11
小偷&小偷入庫&采集入庫...2006-07-07
MSXML4.0 版中的新增功能...2006-08-08
用XML+FSO+JS實(shí)現(xiàn)服務(wù)器端文件的選擇效果
用XML+FSO+JS實(shí)現(xiàn)服務(wù)器端文件的選擇效果實(shí)現(xiàn)代碼，需要的朋友可以參考下2006-06-06
獨(dú)孤劍寫的馬克斯迅雷片庫采集插件1.4 官方最新版提供下載了
非常不錯(cuò)的采集迅雷插件，經(jīng)本人測試非常不錯(cuò)，而且作者很熱心，是個(gè)好人，希望大家支持下，不要拿去賣了。2008-01-01
asp讀取遠(yuǎn)程文件并保存到本地代碼...2007-03-03
自動(dòng)采集程序...2006-10-10
自己做采集程序...2006-06-06
如果你不會寫asp采集，那么代碼你可能不懂，那就不是我這次發(fā)帖所討論了，希望對大家有用。2008-10-10