Код для использования asp для получения списка обновлений безопасности Microsoft на самом деле является программой-вором. Принцип относительно прост. Друзья, изучающие программу-вор, могут обратиться к нему. Чтобы получить более качественный код, вы можете загрузить исходный код, предоставленный Script House. Скопируйте код кода следующим образом:
<%
Функция Bytes2bStr(vin,cSet)
Тусклый байтовый поток, StringReturn
Установить BytesStream = Server.CreateObject(ADODB.Stream)
БайтесСтрим.Тип = 2
БайтесСтрим.Открыть
Вин BytesStream.WriteText
БайтесСтрим.Позиция = 0
BytesStream.CharSet = cSet
БайтесСтрим.Позиция = 2
StringReturn = BytesStream.ReadText
БайтесСтрим.закрыть
Установить BytesStream = Ничего
Bytes2bStr = Возврат строки
Конечная функция
Установите xmlhttp = server.CreateObject(Msxml2.XMLHTTP)
m_queryURL = http://www.microsoft.com/china/technet/security/current.mspx
XMLHTTP.Open GET, m_queryURL, false
XMLHTTP.отправить()
s = XMLHTTP.responseBody
аа = Bytes2bStr(s,GB2312)
Установить re = Новое регулярное выражение
re.Pattern = <span class=label>.*?</span>
re.Global = Истина
re.IgnoreCase = правда
re.MultiLine = ложь
установить совпадения = re.Execute(aa)
тусклый темп
tmp=
за каждый матч в матчах
tmp = tmp&match.value
следующий
tmp = Заменить(tmp,href=,target=_blank href=http://www.microsoft.com)
установите fso = server.CreateObject(scripting.filesystemobject)
установите f = fso.OpenTextFile(server.mappath(Microsoft.html),2,true)
f.write(tmp)
е.закрыть
установить fso = ничего
ответ.Перенаправить Microsoft.html
%>