Tutoriel sur l'implémentation de la collection de code ASP

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

<%

'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.