Le code permettant d'utiliser asp pour obtenir la liste des mises à jour de sécurité Microsoft est en fait un programme voleur. Le principe est relativement simple. Les amis qui apprennent le programme voleur asp peuvent s'y référer. Pour un meilleur code, vous pouvez télécharger le code source fourni par Script House. Copiez le code comme suit :
<%
Fonction Octets2bStr(vin,cSet)
Dim BytesStream, StringReturn
Définir BytesStream = Server.CreateObject (ADODB.Stream)
OctetsStream.Type = 2
BytesStream.Open
BytesStream.WriteText vin
BytesStream.Position = 0
BytesStream.CharSet = cSet
BytesStream.Position = 2
StringReturn =BytesStream.ReadText
BytesStream.close
Définir BytesStream = Rien
Octets2bStr = StringRetour
Fonction de fin
Définir xmlhttp = server.CreateObject(Msxml2.XMLHTTP)
m_queryURL = http://www.microsoft.com/china/technet/security/current.mspx
XMLHTTP.Open GET, m_queryURL, faux
XMLHTTP.envoyer()
s = XMLHTTP.responseBody
aa = Octets2bStr(s,GB2312)
Définir re = Nouvelle RegExp
re.Pattern = <span class=label>.*?</span>
re.Global = Vrai
re.IgnoreCase = vrai
re.MultiLine = faux
définir les correspondances = re.Execute(aa)
faible tmp
tmp=
pour chaque match en matchs
tmp = tmp&match.value
suivant
tmp = Remplacer(tmp,href=,target=_blank href=http://www.microsoft.com)
set fso = serveur.CreateObject (scripting.filesystemobject)
set f = fso.OpenTextFile(server.mappath(Microsoft.html),2,true)
f.écrire(tmp)
f.fermer
définir fso = rien
réponse.Redirection Microsoft.html
%>