Wissen Sie, wie Sie den ASP -Sammlungscode implementieren? Heute wird Ihnen der Herausgeber von Foxin das Tutorial zur Implementierung der ASP -Codesammlung vorstellen. Interessierte Freunde folgen Sie den Schritten des Editors, um den spezifischen Inhalt anzuzeigen.
Sammlung beginnt
Der erste Schritt ist die Analyse der zu gesammelten Seite.
Verwenden Sie einen Browser, um die Seite zu öffnen, die Sie sammeln möchten (z. B. http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml, Sie können andere Seiten verwenden). Klicken Sie nach dem Öffnen mit der rechten Maustaste, um die Quelldatei zu überprüfen.
Der zweite Schritt besteht darin, den Ort des zu erfassten Inhalts zu finden.
Wenn ich den Titel und den Inhalt auf dieser Seite sammeln möchte:
Der Titel ist zwischen <h1 id = "artibodytitle" style = "color:#03005c;"> und </h1>
Der Inhalt liegt zwischen dem Inhalt begin -> und dem Inhaltsende -> des Inhalts des Textes
Achten Sie auf die Einzigartigkeit des Ortes. Nachdem Sie es gefunden haben, können Sie die Suche in der Bearbeitung verwenden, um festzustellen, ob sie einzigartig und so einzigartig wie möglich ist. Wenn nicht, so zuerst wie möglich. Wenn es nicht funktioniert, können Sie es nur ersetzen.
Schritt 3: Schreiben Sie den Code
Die Codekopie lautet wie folgt:< %
'Funktion: ASP -Sammlungscode
'Autor: Wangsdong
'Hinweis: Unterstützen Sie Originalprogramme, behalten Sie diese Informationen, danke, danke
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, "<!-Textinhalt beginnt->", "<!-Textinhaltende->", 2)
Antwort.Write "News -Titel <br> <b>" & Titel & "</b> <br> <br> <br> <br> Nachrichteninhalt: <br>" & Inhalt
Funktion Gethttppage (URL)
Bei der nächsten Fehleraufnahme als nächstes
Dim Http
Setzen Sie http = server.createObject ("microsoft.xmlhttp").
Http.open "get", url, falsch
Http.send ()
Wenn http.readystate <> 4 dann
Ausgangsfunktion
Ende wenn
getttppage = byTestObstr (http.Responsebody, "GB2312")
Setzen Sie http = nichts
Wenn err.number <> 0 dann
Antwort.Write "<P Align = 'Center'> <font color = 'rot'> <b> Der Server, der beim Abrufen von Dateiinhalten fehlerhaft ist </b> </font> </p>"
Err.clear
Ende wenn
Endfunktion
Funktion byTestObstr (Körper, cset)
Dimer Objstream
Setzen Sie objstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write Body
objstream.position = 0
objstream.type = 2
objstream.charset = cset
ByTestObstr = objstream.readText
objstream.close
objstream einstellen = nichts
Endfunktion
'Abfangen von String, 1. Enthält Start- und Endzeichen, 2. Nicht einbezogen
FunktionsstrCut (StrContent, StartStr, Endstr, Cuttype)
Dim Strhtml, S1, S2
strhtml = strcontent
Bei der nächsten Fehleraufnahme als nächstes
Wählen Sie Case Cuttype
Fall 1
S1 = instr (strhtml, startstr)
S2 = Instrument (S1, strhtml, Endstr)+len (Endstr)
Fall 2
S1 = instr (strhtml, startstr)+len (startstr)
S2 = Instrument (S1, strhtml, Endstr)
Ende auswählen
Wenn irren
Strcute = "<P Align = 'Center'> Nichts fand, was benötigt wird. </p>"
Err.clear
Ausgangsfunktion
Anders
STRCUT = MID (strhtml, s1, s2-s1)
Ende wenn
Endfunktion
%>
Das obige ist das Tutorial zur Implementierung des ASP -Sammlungscode. Nachdem der Editor den Inhalt ausgibt, den Sie erhalten, können Sie diese Inhalte in die Datenbank schreiben, und die Daten sind Ihre eigenen.