O código para usar o asp para obter a lista de atualizações de segurança da Microsoft é, na verdade, um programa ladrão. O princípio é relativamente simples. Amigos que estão aprendendo o programa ladrão asp podem consultá-lo. Para um código melhor, você pode baixar o código-fonte fornecido pela Script House. Copie o código do código da seguinte forma:
<%
Função Bytes2bStr(vin,cSet)
Dim BytesStream,StringReturn
Definir 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.fechar
Definir BytesStream = Nada
Bytes2bStr = StringReturn
Função final
Definir xmlhttp = server.CreateObject(Msxml2.XMLHTTP)
m_queryURL = http://www.microsoft.com/china/technet/security/current.mspx
XMLHTTP.Open GET, m_queryURL, falso
XMLHTTP.send()
s = XMLHTTP.responseBody
aa = Bytes2bStr(s,GB2312)
Definir re = Novo RegExp
re.Pattern = <span class=label>.*?</span>
re.Global = Verdadeiro
re.IgnoreCase = verdadeiro
re.MultiLine = falso
definir correspondências = re.Execute (aa)
escurecer tmp
tmp =
para cada partida em partidas
tmp = tmp&correspondência.valor
próximo
tmp = Substituir(tmp,href=,target=_blank href=http://www.microsoft.com)
definir fso = server.CreateObject(scripting.filesystemobject)
definir f = fso.OpenTextFile(server.mappath(Microsoft.html),2,true)
escrever (tmp)
f.fechar
definir fso = nada
resposta.Redirecionar Microsoft.html
%>