La copie de code est la suivante:
<%
'=================================================================.
ClassEngineersearch
'Laolong: [email protected]
': Simuler XML pour obtenir des ressources de balise HTTP (vous saurez pourquoi XML est utile après l'avoir utilisé :))
«Utilisez la recherche de moteur (affiche des informations ou des informations sur le moteur sur son site Web hyperconnecté ou des informations directement liées sur une page spécifiée, en utilisant régulièrement et XMLHTTP,
«L'utilisation du programme doit construire la régularité)
'---------------------------------------------------------------
Privateoreg, oxmlhttp'a régulier, un Microsoft XMLHTTP
'---------------------------------------------------------------
PublicsubClass_Initialize () 'Défide de création d'objets
setreg = newregexp
oreg.global = true
oreg.ignorecase = true
setOxMlhttp = server.createObject ("Microsoft.xmlhttp")
fin
'---------------------------------------------------------------
PublicsUbclass_termine () 'déclenche de destruction d'objets
setReg = Rien de l'objet auto-construit dans la classe doit être libéré manuellement, et ASP ne libérera automatiquement que les objets définis par la classe.
setOxmlhttp = rien
IfTyPename (tempreg) <> "rien" alors 'la méthode libère des ressources dans l'objet dans le corps
setempreg = rien
endire
fin
'---------------------------------------------------------------
'Recherche au niveau du moteur
PublicFunctionNengineer (URL, ingénieur)
«Fonction Introduction: obtenir les informations de retour de l'URL (généralement utilisées pour la recherche de moteur), extraire les informations spécifiques du ingénieur et renvoyer la collection de matchs à
'Nom de la fonction. Obtenez les résultats de la requête URL, recherchez les résultats définis par la régularité de l'ingénieur et générez une collection de correspondances.
'Puisqu'il est impossible de créer une collection et d'exploiter le nombre d'ensembles (VBScript), il est préférable de traverser l'ensemble vous-même ou d'envisager un tableau bidimensionnel
mât
strContent = oxmlhttp.open ("get", url, false)
onerrorresumenext
oxmlhttp.send ()
iFerr.Number <> 0THEN
sortie
endire
strContent = bytes2BSTR (oxmlhttp.ResponseBody)
ifisnull (ingénieur) puis
ingénieur = AbsoluteUrl (strContent, URL)
autre
oreg.pattern = ingénieur
setEngineer = oreg.execute (AbsoluteUrl (strContent, URL))
endire
finition de fin
'---------------------------------------------------------------
«Encodage de caractère chinois, (personne en ligne)
PublicFonctionBytes2BSTR (VIN)
strreturn = ""
Fori = 1Tolenb (vin)
ThisCharcode = ASCB (midb (vin, i, 1))
Ifthischarcode <& h80Then
Streturn = Strreturn & Chr (ThisCharcode)
Autre
NextCharcode = ASCB (Midb (Vin, I + 1,1))