Die Codekopie lautet wie folgt:
<%
'==========================================================
cleasengineersearch
'LAOLONG: [email protected]
': Simulieren Sie XML, um HTTP -Tag -Ressourcen zu erhalten (Sie werden wissen, warum XML nach der Verwendung nützlich ist :))
„Verwenden Sie die Motorsuche (Zeigt Motorinformationen oder Informationen auf der hyperkonnitierten Website oder direkt verwandte Informationen auf einer bestimmten Seite mit regulärem und XMLHTTP an.
'Die Verwendung des Programms muss die Regelmäßigkeit konstruieren)
'-----------------------------------------------------------
privateoreg, oxmlhttp'a regulär, ein microsoft xmlhttp
'-----------------------------------------------------------
publicsubclass_initialize () 'Objekterstellung Trigger
setReg = newRegexp
oreg.global = true
Oreg.ignorecase = true
setoxmlHttp = server.createObject ("microsoft.xmlhttp")
Ende
'-----------------------------------------------------------
Publicsubclass_terminate () 'Objektzerstörung Trigger
setReg = nichts 'Das selbstgebaute Objekt in der Klasse muss manuell freigegeben werden, und ASP löst die von der Klasse definierten Objekte nur automatisch frei.
setoxmlhttp = nichts
IFtypename (tempreg) <> "nichts", dann gibt 'Methode Ressourcen im Objekt im Körper frei
settempreg = nichts
Endif
Ende
'-----------------------------------------------------------
'Motorstufe Suche
publicFunctionEngineer (URL, Ingenieurregion)
'Funktion Einführung: Ermitteln Sie die Rückgabeinformationen der URL (normalerweise für die Motorsuche verwendet), extrahieren Sie die spezifischen Informationen des Ingenieurregers und senden Sie die Übereinstimmungssammlung an die Übereinstimmungssammlung zurück zu
'Funktionsname. Rufen Sie die Ergebnisse der URL -Abfrage ab, suchen Sie nach den Ergebnissen, die durch die Regelmäßigkeit der Ingenieurregion definiert sind, und generieren Sie eine Übereinstimmungssammlung.
„Da es unmöglich ist, eine Sammlung zu erstellen und die Anzahl der Sets (VBScript) zu betreiben, ist es am besten, den Satz selbst zu durchqueren oder ein zweidimensionales Array zu berücksichtigen
DimstrConent
StrContent = oxmlhttp.open ("get", url, falsch)
onErrorresumeNext
oxmlhttp.send ()
Ifr.number <> 0Then
Ausgangsfunktion
Endif
StrContent = bytes2bstr (oxmlhttp.ResponseBody)
ifisnull (Ingenieurregion) dann
Ingenieur = Absoluteurl (StrContent, URL)
anders
oreg.pattern = Engineerreg
setEngineer = oreg.execute (Absoluteurl (StrContent, URL))
Endif
Endfunktion
'-----------------------------------------------------------
'Chinesische Charakter -Codierung (Online -Person)
publicFunctionBytes2bstr (vin)
Streturn = ""
Fei = 1tolenb (vin)
Thischarcode = ascb (Midb (vin, i, 1))
IFTHISCHARCODE <& H80Then
Streturn = Streturn & chrt (thisharcode)
Anders
NextCharcode = ASCB (Midb (Vin, I+1,1))