A cópia do código é a seguinte:
<%
'=======================================================
ClassEngineersearch
'Lalolong: [email protected]
': Simular XML para obter recursos de tag http (você saberá por que o XML é útil depois de usá -lo :))
'Use a pesquisa do mecanismo (exibe informações ou informações do mecanismo em seu site hiperconectado ou informações diretamente relacionadas em uma página especificada, usando regularmente e xmlHttp,
'O uso do programa precisa construir regularidade)
'-------------------------------------------------------------
privateoreg, oxmlHttp'a regular, um Microsoft XMLHTTP
'-------------------------------------------------------------
publicsubclass_initialize () 'Criação de objetos Trigger
setReg = newRegexp
Oreg.global = true
Oreg.ignorecase = true
ScetoxmlHttp = Server.CreateObject ("Microsoft.xmlHttp")
endsub
'-------------------------------------------------------------
publicsubclass_terminate () 'Destruição de objeto Gatedores
setReg = nada 'O objeto construído na classe deve ser liberado manualmente e o ASP liberará apenas automaticamente os objetos definidos pela classe.
SedexmlHttp = nada
IfTypeName (tempreg) <> "nada", então '' o método libera recursos no objeto no corpo
SettemPreg = nada
endif
endsub
'-------------------------------------------------------------
'Pesquisa no nível do motor
PublicFunctionEngineer (URL, Engineerreg)
'Função Introdução: Obtenha as informações de devolução do URL (geralmente usado para pesquisa do motor), extraia as informações específicas do engenheiro e retorne a coleção de correspondências para
'Nome da função. Obtenha os resultados da consulta de URL, pesquise os resultados definidos pela regularidade do engenheiro e gera uma coleção de correspondências.
'Como é impossível criar uma coleção e operar o número de conjuntos (VBScript), é melhor atravessar o conjunto ou considerar uma matriz bidimensional
DIMSTRONENT
strContent = oxmlhttp.open ("get", url, falso)
OnErrorReSumenext
oxmlHttp.send ()
iferr.number <> 0then
saída de saída
endif
strContent = bytes2bstr (oxmlhttp.Responsebody)
ifisnull (engenharia) então
Engenheiro = AbsolutoUrl (StrContent, URL)
outro
Oreg.Pattern = EngineerReg
setEngineer = Oreg.execute (absolutamenteurl (strContent, url))
endif
Função final
'-------------------------------------------------------------
'Codificação de caracteres chineses, (pessoa on -line)
PublicFunctionBytes2BStr (VIN)
strreturn = ""
Fori = 1tolenb (VIN)
ThisCharcode = ASCB (MIDB (VIN, i, 1))
IfthScharcode <& h80Then
strreturn = strreturn & ch (thischarcode)
Outro
NextcharCode = ASCB (MIDB (VIN, I+1,1))