La copia del código es la siguiente:
<%
'========================================================
ClassEngineSearch
'Laolong: [email protected]
': Simule XML para obtener recursos de etiqueta HTTP (sabrá por qué XML es útil después de usarlo :))
'Use la búsqueda del motor (muestra información o información del motor en su sitio web hiperconectado o información directamente relacionada en una página especificada, utilizando regulares y xmlhttp,
'El uso del programa necesita construir regularidad)
'---------------------------------------------------------------
privateReg, oxmlhttp'a regular, un Microsoft xmlhttp
'---------------------------------------------------------------
Publicsubclass_initialize () 'Disparador de creación de objetos
setreg = newregexp
Oreg.global = True
Oreg.ignorecase = True
setOxmlhttp = server.createObject ("Microsoft.xmlhttp")
Endsub
'---------------------------------------------------------------
Publicsubclass_terminate () 'Los desencadenantes de la destrucción de objetos
setreg = Nothing'tel objeto auto-construido en la clase debe liberarse manualmente, y ASP solo liberará automáticamente los objetos definidos por la clase.
satexmlhttp = nada
Iftypename (tempreg) <> "nada" entonces 'El método' libera recursos en el objeto en el cuerpo
setTempreg = nada
endif
Endsub
'---------------------------------------------------------------
'Búsqueda de nivel de motor
PublicFunctionEngineer (URL, Engineerreg)
'Introducción de la función: obtenga la información de retorno de la URL (generalmente utilizada para la búsqueda del motor), extraiga la información específica del ingeniero y devuelva la colección de coincidencias a
'Nombre de la función. Obtenga los resultados de la consulta de URL, busque los resultados definidos por la regularidad de EngineerRreg y genere una colección de coincidencias.
'Dado que es imposible crear una colección y operar el número de conjuntos (VBScript), es mejor atravesar el set usted mismo o considerar una matriz bidimensional
dimstrConent
strContent = oxmlhttp.open ("get", url, falso)
onerrorResumEnext
oxmlhttp.send ()
iferr.number <> 0then
extinción
endif
strContent = bytes2bstr (oxmlhttp.ResponseBody)
ifisnull (ingeniería) entonces
ingeniero = AbsoluteURL (StrContent, URL)
demás
Oreg.pattern = Engineerreg
setEngineer = oreg.execute (AbsoluteURL (strContent, url))
endif
Función final
'---------------------------------------------------------------
'Codificación de personajes chinos (persona en línea)
PublicFunctionBytes2BStr (VIN)
strreturn = ""
Fori = 1TolenB (vin)
ThisCharCode = ASCB (MidB (Vin, I, 1))
Ifthischarcode <& h80Then
strreturn = strreturn & chr (thisCharcode)
Demás
Nextcharcode = ascb (midb (vin, i+1,1))