The code for using asp to obtain the Microsoft security update list is actually a thief program. The principle is relatively simple. Friends who are learning the asp thief program can refer to it. For better code, you can download the source code provided by Script House. Copy the code code as follows:
<%
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
%>