Savez-vous comment implémenter le code de collecte ASP? Aujourd'hui, l'éditeur de Foxin vous présentera le tutoriel sur l'implémentation de la collection de code ASP. Amis intéressés, suivez les étapes de l'éditeur pour voir le contenu spécifique.
La collection commence
La première étape consiste à analyser la page à collecter.
Utilisez un navigateur pour ouvrir la page que vous souhaitez collecter (telle que: http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml, vous pouvez utiliser d'autres pages). Après l'ouverture, cliquez avec le bouton droit pour vérifier le fichier source.
La deuxième étape consiste à trouver l'emplacement du contenu à collecter.
Si je veux collecter le titre et le contenu sur cette page:
Le titre se situe entre <h1 id = "artibodytitle" style = "couleur: # 03005c;"> et </h1>
Le contenu est entre le contenu commence -> et la fin du contenu -> du contenu du texte
Faites attention au caractère unique de l'emplacement. Après l'avoir trouvé, vous pouvez utiliser la recherche dans l'édition pour voir si elle est unique et aussi unique que possible. Sinon, le premier possible. Si cela ne fonctionne pas, vous ne pouvez que le remplacer.
Étape 3: Écrivez le code
La copie de code est la suivante:<%
'Fonction: code de collecte ASP
'Auteur: Wangsdong
«Remarque: Soutenez les programmes originaux, veuillez conserver ces informations, merci
url = "http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml"
str = gethttppage (URL)
title = strcut (str, "<h1 id =" "artibodytitle" "style =" "Color: # 03005c;" ">", "</h1>", 2)
Content = strcut (str, "<! - Text Content Begin ->", "<! - Text Content End ->", 2)
Response.Write "Titre des nouvelles <br> <b>" & Title & "</b> <br> <br> <br> <br> Contenu des nouvelles: <br>" & Contenu
Fonction gethttppage (URL)
Sur l'erreur reprendre ensuite
DIM HTTP
Définir http = server.createObject ("Microsoft.xmlhttp")
Http.open "get", URL, faux
Http.send ()
Si http.readystate <> 4 alors
fonction de sortie
terminer si
GethTTPPAGE = BYTESTOBSTR (Http.ResponseBody, "GB2312")
définir http = rien
Si err.number <> 0 alors
Réponse.write "<p align = 'Center'> <font color = 'red'> <b> Le serveur erroné pour obtenir du contenu de fichier </b> </font> </p>"
Err.Clear
Terminer si
Fonction finale
Fonction bytestobstr (corps, cset)
objstream sombre
Définir objstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
OBJSTREAM.WRITE CORPS
objstream.position = 0
objstream.type = 2
objstream.charset = cset
ByTestObstr = objstream.readText
objstream.close
définir objstream = rien
Fonction finale
'Intercepting String, 1. Comprend des caractères de début et de fin, 2. Sans inclure
Fonction Strcut (StrContent, Startstr, Endstr, CutType)
Dim Strhtml, S1, S2
strhtml = strContent
Sur l'erreur reprendre ensuite
Sélectionnez Case CutType
Cas 1
S1 = instr (strhtml, startstr)
S2 = instant (S1, Strhtml, Endstr) + Len (ENDSTR)
Cas 2
S1 = instr (strhtml, startstr) + len (startstr)
S2 = instant (S1, Strhtml, Endstr)
Fin de sélection
Si err alors
strcute = "<p align = 'Center'> rien n'a trouvé ce qui est nécessaire. </p>"
Err.Clear
Fonction de sortie
Autre
strcut = mid (strhtml, s1, s2-s1)
Terminer si
Fonction finale
%>
Ce qui précède est le tutoriel sur l'implémentation du code de collecte ASP. Maintenant que l'éditeur publie le contenu que vous obtenez, vous pouvez écrire ces contenus dans la base de données et les données sont les vôtres.