<%
'''''''''''''''Commentaires sur l'Épée Brisée''''''''''''''''''''''
''''strText est le contenu de la section à découper''''''''''''
''''strStarTag est le point de départ du contenu à couper''''''''''
''''strEndTag est la fin du contenu à couper''''''''''
''''La valeur de retour GetText est le contenu découpé''''''''''''''
''''''''''''''Fin du commentaire''''''''''''''''''''
Fonction GetText(strText, strStartTag, strEndTag)
dim intDébut
intStart = instr(strText, strStartTag)
si intStart alors
intStart = intStart + len(strStartTag)
intEnd = InStr(intStart, strText, strEndTag)
GetText = Mid(strText, intStart, intEnd - intStart)
autre
ObtenirTexte=
finir si
Fonction de fin
%>
<%
''''''''Commentaires sur l'épée brisée''''''''''
''''''''Les fonctions suivantes peuvent être ignorées'''''''''
''''''''Utilisez simplement la fonction d'entrée getHTTPPage'''''''
'''''''le chemin est l'adresse de la page Web à lire''''''''
''''''''getHTTPPage renvoie le contenu de la page Web lue''
''''''' Ce qu'il faut noter ici est gb2312 Si le code de la page web en cours de lecture est.
''Pour gb2312, utilisez gb2312. S'il s'agit de UTF-8, remplacez-le par UTF-8''''.
'''''''Fin du commentaire''''''''''
Fonction getHTTPage(Chemin)
t = ObtenirCorps(Chemin)
getHTTPPage=BytesToBstr(t,gb2312)
Fin de fonction
Fonction GetBody(url)
en cas d'erreur, reprendre ensuite
Définir la récupération = CreateObject (Microsoft.XMLHTTP)
Avec récupération
.Ouvrez get, url, False, ,
.Envoyer
GetBody = .ResponseBody
Terminer par
Définir la récupération = Rien
Fonction de fin
Fonction BytesToBstr(corps,Cset)
objstream obscur
définir objstream = Server.CreateObject (adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Ouvrir
objstream.Écrire le corps
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Fermer
définir objstream = rien
Fonction de fin
%>