Cet article présente le partage du tutoriel de la page de la liste des lots. Jetons un coup d'œil au tutoriel détaillé ci-dessous. Les amis qui en ont besoin peuvent y faire référence.
Certaines personnes sont un trésor lorsqu'ils rampent des programmes, mais ils les vendent toujours pour TND. C'est vraiment vrai que ces gars-là le sont! Peut-être que la chose suivante est un peu mauvaise
Les éléments suivants n'ont pas de fonction d'écriture sur le magasin, et il a atteint ce point. La fonction d'entrée est très simple. Veuillez le terminer vous-même si vous en avez besoin. Veuillez améliorer les autres fonctions par vous-même! Copiez le code et exécutez-le directement pour voir l'effet
URL DIM, list_pagecode, array_articleid, i, articleId
Dim content_pagecode, content_tempcode
Dim content_categoryId, content_categoryName, borderId, classid, bordername, className
DIM ARTICLETITLE, ARTICLEAUTHOR, Article de, ArticleContent
Url = "http://www.webasp.net/article/class/1.htm"
List_pagecode = gethttppage (URL)
List_pagecode = regexptext (list_pagecode, "print", "
List_pagecode = regexptext (list_pagecode, "'Obtenez le lien de l'article de la page de liste actuelle pour le séparer
Array_articleId = Split (list_pagecode, ",") 'Créer un tableau et stocker l'ID de l'article
Pour i = 0 à ubound (array_articleid) -1
ArticleId = array_arrayid (i) 'arrayid
Content_pageCode = GethTTPPAGE ("http://www.webasp.net/article/" & articleId) 'Obtenez le contenu de la page de l'article
'==============================================.
Content_tempcode = regexptext (content_pagecode, "tutoriel technique >>", ">> contenu", 0)
Content_categoryId = regexptext (contenu_pagecode, "", 1)
BorderId = Split (Content_CategoryId, ",") (0) 'Big Class ID
Classid = Split (content_categoryId, ",") (1) 'ID de sous-classe
'============= Vérifiez si la catégorie principale existe. Start =================
'S'il n'existe pas, entrez la base de données
'============== Vérifiez si la catégorie majeure existe End =================.
'Response.Write (BorderId & "," & Classid & "
")
Content_categoryName = regexptext (contenu_pagecode, "/ '>", "", 1)
BorderName = Split (Content_CategoryName, ",") (0) 'Nom de grande classe
ClassName = Split (Content_CategoryName, ",") (1) 'Nom de la sous-classe
'============== Vérifiez si la sous-classe existe démarrez ================
'S'il n'existe pas, entrez la base de données
'============== Vérifiez si la sous-classe existe End ================
'==============================================.
'===================================================================.
ArticleTitle = regexptext (contenu_pagecode, " ", " ", 0)
ArtiCleAuthor = regexptext (content_pagecode, "auteur:", "", 0)
ArticleFrom = regexptext (content_pagecode, "Source:", "", 0)
ArtiCleContent = regexptext (content_pagecode, "", "" & vbcrlf & "" & vbcrlf & "", 0)
'====================================================================.
Response.Write (Aticletitle & "
")
Réponse.flush ()
Suivant
Plusieurs fonctions sont attachées:
Fonction gethttppage (URL)If (isObjinStalled ("Microsoft.xmlhttp") = false) puis
Réponse.WRITE "
Le serveur ne prend pas en charge le composant Microsoft.xmlhttp "
Err.Clear
Réponse.
Terminer si
Sur l'erreur reprendre ensuite
DIM HTTP
Set http = server.createObject ("msxml2.xmlhttp")
Http.open "get", URL, faux
Http.send ()
If (http.readystate4) alors
Fonction de sortie
Terminer si
GethTTPPAGE = BYTESTOBSTR (Http.ResponseBody, "GB2312")
Définir http = rien
If (err.number0) alors
Réponse.WRITE "
Une erreur s'est produite lors de l'obtention du contenu du fichier "
'Response.end
Err.Clear
Terminer si
Fonction finale
Fonction byTestObstr (codebody, codeset)
Objstream sombre
Définir objstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write Codebody
objstream.position = 0
objstream.type = 2
objstream.charset = codeset
ByTestObstr = objstream.readText
objstream.close
Définir objstream = rien
Fonction finale
'=========================================================.
'Fonction: vérifiez si le composant a été installé
'Valeur de retour: vrai ---- installé
'FAUX --- non installé
'=========================================================.
Fonction isOBjinstalled (objname)
Sur l'erreur reprendre ensuite
IsObjinstalled = false
Err = 0
Testobj DIM
SET TESTOBJ = Server.CreateObject (objname)
If (0 = err) alors isObjinStalled = true
Définir TestObj = Rien
Err = 0
Fonction finale
Fonction regexptext (strng, strStart, strend, n)
Dim Regex, Match, Matches, retstr
Définir regex = new regexp
regex.pattern = strStart & "([/ s / s] *?)" & Stran
regex.ignorecase = true
regex.global = true
Set Matchs = Regex.ExECUTE (Strng)
Pour chaque match dans les matchs
Si (n = 1) alors
Retstr = retstr & regex.replace (match.value, "1 $") & ","
AUTRE
Retstr = retstr & regex.replace (match.value, "1 $")
Terminer si
Suivant
Regexptext = retstr
Définir Regex = rien
Ce qui précède est l'introduction de l'ensemble du contenu du partage du didacticiel du lot rampant dans une certaine page de liste. J'espère que les connaissances et les matériaux pertinents compilés par l'éditeur vous seront utiles. Pour plus de contenu, veuillez continuer à prêter attention au site Web de la chaîne technologique Wuxin!