Кода -копия выглядит следующим образом:
<%
'=================================================================================
ClassEngineerSearch
'Laolong: [email protected]
': Моделируйте XML для получения ресурсов тегов HTTP (вы узнаете, почему XML полезен после его использования :))
'Используйте поиск двигателя (отображает информацию или информацию о двигателе на своем веб -сайте Hyperconnected или непосредственно связанной информации на указанной странице, используя обычную и XMLHTTP,
«Использование программы должно построить регулярность)
'---------------------------------------------------------------
privateoreg, oxmlhttp'a right, microsoft xmlhttp
'---------------------------------------------------------------
publicsubclass_initialize () 'Триггер создания объекта
setreg = newRegexp
OREG.GLOBAL = TRUE
OREG.IgnoreCase = true
setoxmlhttp = server.createObject ("microsoft.xmlhttp")
заканчивая
'---------------------------------------------------------------
publicsubclass_terminate () 'Триггеры разрушения объекта
Setreg = Nothing's Self-построенный объект в классе должен быть выпущен вручную, и ASP будет автоматически отпустить объекты, определенные классом.
setoxmlhttp = ничего
Iftypename (Tempreg) <> «Ничего», затем метод выпускает ресурсы в объекте в теле
SetTemperge = ничего
эндиф
заканчивая
'---------------------------------------------------------------
'Поиск на уровне двигателя
publicFunctionEngineer (URL, инженеррег)
'Введение функции: Получите информацию о возврате URL (обычно используется для поиска двигателя), извлеките конкретную информацию инженером и возвращайте коллекцию матчей в
'Имя функции. Получите результаты запроса URL, найдите результаты, определенные инженерной регулярностью, и генерируйте коллекцию совпадений.
«Поскольку невозможно создать коллекцию и управлять количеством наборов (VBScript), лучше всего пройти набор или рассмотреть двухмерный массив
DimStronent
strcontent = oxmlhttp.open ("get", url, false)
OnerRorResumenext
oxmlhttp.send ()
iferr.number <> 0then
Выходная функция
эндиф
strcontent = bytes2bstr (oxmlhttp.responsebody)
ifisnull (инженерреги) тогда
Инженер = AbsoluteUrl (Strcontent, URL)
еще
OREG.PATTERN = EngineerREG
setengineer = oreg.execute (absoluteurl (strcontent, url))
эндиф
конечная функция
'---------------------------------------------------------------
'Кодирование китайского персонажа (онлайн -человек)
publicfunctionbytes2bstr (VIN)
strreturn = ""
Fori = 1tolenb (vin)
ThisChode = ASCB (MIDB (VIN, I, 1))
IfThischarcode <& H80Then
strreturn = strreturn & chr (this charcode)
Еще
NextChode = ASCB (MIDB (VIN, I+1,1)))