Вы знаете, как реализовать код коллекции ASP? Сегодня редактор Foxin представит вам учебник по реализации коллекции кодов ASP. Заинтересованные друзья, следуйте шагам редактора, чтобы увидеть конкретный контент.
Коллекция начинается
Первый шаг - проанализировать страницу, которая будет собрана.
Используйте браузер, чтобы открыть страницу, которую вы хотите собрать (например: http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml, вы можете использовать другие страницы). После открытия щелкните правой кнопкой мыши, чтобы проверить исходный файл.
Второй шаг - найти местоположение контента, которое будет собрано.
Если я хочу собрать заголовок и контент на этой странице:
Название между <h1 id = "artibodytitle" style = "color:#03005c;"> и </h1>
Контент между контентом начинается -> и контентом заканчивается -> содержания текста
Обратите внимание на уникальность местоположения. После того, как вы найдете его, вы можете использовать поиск в редактировании, чтобы увидеть, является ли он уникальным и максимально уникальным. Если нет, то в первую очередь. Если это не работает, вы можете только заменить его.
Шаг 3: Напишите код
Кода -копия выглядит следующим образом:< %
'Функция: код коллекции ASP
Автор: Вангсдонг
'ПРИМЕЧАНИЕ: Поддержите оригинальные программы, пожалуйста, сохраните эту информацию, спасибо
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, "<!-текстовое содержимое начинается->", "<!-Текстовый контент конец->", 2)
response.write "Название новостей <br> <b>" & title & "</b> <br> <br> <br> <br> Новости: <br>" & Content
Функция gethttppage (url)
При ошибке резюме следующим
Dim http
Установить http = server.createObject ("microsoft.xmlhttp")
Http.open "Get", url, false
Http.send ()
Если http.readystate <> 4 то
Выходная функция
конец, если
gethttppage = bytestobstr (http.responsebody, "gb2312")
Установите http = ничего
Если err.number <> 0, тогда
Response.write "<p align = 'center'> <font color = 'red'> <b> Сервер ошибился при получении содержимого файла </b> </font> </p>"
Err.clear
Конец, если
Конечная функция
Функция Bytestobstr (тело, CSET)
Dim objstream
Установить objstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write Тело
objstream.position = 0
objstream.type = 2
objstream.charset = cset
Bytestobstr = objstream.readtext
objstream.close
установить objstream = ничего
Конечная функция
'Перехват строки, 1. включает в себя начальные и конечные символы, 2. Не включая
Функция Strcut (Strcontent, Startstr, Endstr, Cuttype)
Dim Strhtml, S1, S2
strhtml = strcontent
При ошибке резюме следующим
Выберите Case Cuttype
Случай 1
S1 = instr (strhtml, startstr)
S2 = instr (s1, strhtml, endstr)+len (endstr)
Случай 2
S1 = instr (strhtml, startstr)+len (startstr)
S2 = instr (s1, strhtml, endstr)
Конец выбора
Если ошибка, тогда
strcute = "<p align = 'center'> ничего не нашел, что нужно. </p>"
Err.clear
Выходная функция
Еще
strcut = mid (strhtml, s1, s2-s1)
Конец, если
Конечная функция
%>
Выше приведено учебник по реализации кода коллекции ASP. Теперь, когда редактор выводит содержимое, которое вы получаете, вы можете записать это содержимое в базу данных, и данные являются вашими собственными.