El código para usar asp para obtener la lista de actualizaciones de seguridad de Microsoft es en realidad un programa ladrón. El principio es relativamente simple. Los amigos que estén aprendiendo el programa asp ladrón pueden consultarlo. Para obtener un mejor código, puede descargar el código fuente proporcionado por Script House. Copie el código de código de la siguiente manera:
<%
Función Bytes2bStr(vin,cSet)
Dim BytesStream,StringReturn
Establecer BytesStream = Server.CreateObject(ADODB.Stream)
BytesStream.Tipo = 2
BytesStream.Open
BytesStream.WriteText vin
BytesStream.Posición = 0
BytesStream.CharSet = cSet
BytesStream.Posición = 2
StringReturn =BytesStream.ReadText
BytesStream.cerrar
Establecer BytesStream = Nada
Bytes2bStr = StringReturn
Función final
Establecer xmlhttp = servidor.CreateObject(Msxml2.XMLHTTP)
m_queryURL = http://www.microsoft.com/china/technet/security/current.mspx
XMLHTTP.Abrir GET, m_queryURL, falso
XMLHTTP.enviar()
s = XMLHTTP.responseBody
aa = Bytes2bStr(s,GB2312)
Establecer re = Nueva expresión regular
re.Patrón = <span class=label>.*?<//span>
re.Global = Verdadero
re.IgnoreCase = verdadero
re.MultiLine = falso
establecer coincidencias = re.Execute(aa)
tmp tenue
tmp=
para cada partido en partidos
tmp = tmp&match.valor
próximo
tmp = Reemplazar (tmp,href=,target=_blank href=http://www.microsoft.com)
establecer fso = servidor.CreateObject(scripting.filesystemobject)
establecer f = fso.OpenTextFile(server.mappath(Microsoft.html),2,true)
f.escribir(tmp)
f.cerrar
establecer fso = nada
respuesta.Redirigir Microsoft.html
%>