Der Code zum Abrufen der Microsoft-Sicherheitsupdateliste ist eigentlich ein Diebprogramm. Das Prinzip ist relativ einfach. Freunde, die das ASP-Diebprogramm lernen, können darauf zurückgreifen. Für besseren Code können Sie den von Script House bereitgestellten Quellcode herunterladen. Kopieren Sie den Codecode wie folgt:
<%
Funktion Bytes2bStr(vin,cSet)
Dimmen Sie BytesStream,StringReturn
Setze 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
Setzen Sie BytesStream = Nothing
Bytes2bStr = StringReturn
Funktion beenden
Setze 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)
Setze re = New RegExp
re.Pattern = <span class=label>.*?<//span>
re.Global = True
re.IgnoreCase = true
re.MultiLine = false
set matches = re.Execute(aa)
dimmte Temperatur
tmp=
für jedes Spiel in Spielen
tmp = tmp&match.value
nächste
tmp = Ersetzen(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.schließen
setze fso = nichts
Antwort.Redirect Microsoft.html
%>