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 </th> </tr>", "</ table> <Table Border = 0 CellPadding = 5", 0)
List_pagecode = regexptext (list_pagecode, "<td align = left> <a href = '.. /", "'> <img border = 0 src = '.. / images / authortype0.gif'", 1) 'Obtenez le lien d'article de la page de liste actuelle pour le séparer pour le séparer en le sépare
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
'=================================================================.
Contenu_tempcode = regexptext (contenu_pagecode, "<a href =" "/ article /" "> tutoriel technique </a> >>", ">> contenu </td>", 0)
Content_categoryId = regexptext (content_pagecode, "<a href = '.. / class", "/'>", 1)
BorderId = Split (Content_CategoryId, ",") (0) 'Big Class ID
Classid = Split (content_categoryId, ",") (1) 'ID de sous-classe
'=============== Vérifiez s'il y a une catégorie majeure pour exister? ====================.
'S'il n'existe pas, entrez la base de données
'============== Vérifiez s'il y a une fin à la catégorie majeure ================
'Response.Write (BorderId & "," & Classid & "<Br />")
Content_categoryName = regexptext (contenu_pagecode, "/ '>", "</a>", 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 et commence =================
'S'il n'existe pas, entrez la base de données
'============= Vérifiez si la sous-classe existe et se termine =================.
'====================================================================.
'=====================================================================.