Некоторые люди - это сокровище, когда они ползают, но они все еще продают их за TND. Это действительно правда, что эти парни! Может быть, следующее немного плохо
Следующее не имеет функции записи в магазин, и она достигла этой точки. Функция входа очень проста. Пожалуйста, заполните это самостоятельно, если вам это нужно. Пожалуйста, улучшите другие функции самостоятельно! Скопируйте код и запустите его напрямую, чтобы увидеть эффект
DIM URL, list_pageCode, array_articleid, i, articleid
Dim content_pagecode, content_tempcode
Dim content_categoryid, content_categoryname, borderid, classid, bordername, classname
Dim articletitle, Articleauthor, статья от 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)' Получить ссылку на статью текущей страницы списка, чтобы разделить ее
Array_articleid = split (list_pageCode, ",") 'Создайте массив и сохраните идентификатор статьи
Для i = 0 до ubound (array_articleid) -1
Articleid = array_arrayid (i) 'arrayid
Content_pagecode = gethttppage ("http://www.webasp.net/article/" & articeid) 'Получите содержимое страницы статьи
'=================================================================================
Content_tempcode = regexptext (content_pagecode, "<a href =" "/article/" "> Технический учебник </a> >>", ">> content </td>", 0)
Content_categoryid = regexptext (content_pagecode, "<a href = '../class", "/'>", 1)
Borderid = split (content_categoryid, ",") (0) 'Большой идентификатор класса
Classid = split (content_categoryid, ",") (1) 'идентификатор подкласса
'================ Проверьте, существует ли существенная категория? ===================
'Если его не существует, введите базу данных
'=============== Проверьте, есть ли конец основной категории ==================
'Response.write (borderid & "," & classid & "<br />")
Content_categoryname = regexptext (content_pagecode, "/'>", "</a>", 1)
Bordername = split (content_categoryname, ",") (0) 'Название большого класса
Classname = split (content_categoryname, ",") (1) 'Имя подкласса
'============= Проверьте, существует ли подкласс и запускается ======================================
'Если его не существует, введите базу данных
'============= Проверьте, существует ли подкласс и заканчивается ==================================
'====================================================================
'====================================================================