ASP 수집 코드를 구현하는 방법을 알고 있습니까? 오늘 Foxin의 편집자는 ASP 코드 수집 구현에 대한 자습서를 소개합니다. 관심있는 친구, 편집자의 단계를 따라 특정 콘텐츠를보십시오.
컬렉션이 시작됩니다
첫 번째 단계는 수집 할 페이지를 분석하는 것입니다.
브라우저를 사용하여 수집하려는 페이지를 열려면 (예 : http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml, 다른 페이지를 사용할 수 있음). 열면 마우스 오른쪽 버튼을 클릭하여 소스 파일을 확인하십시오.
두 번째 단계는 수집 할 내용의 위치를 찾는 것입니다.
이 페이지에서 제목과 컨텐츠를 수집하려면 다음과 같습니다.
제목은 <h1 id = "artibodytitle"style = "color :#03005c;"> 및 </h1> 사이입니다
내용은 텍스트 내용의 내용이 시작되고 컨텐츠 종료 -> 사이에 있습니다.
위치의 독창성에주의하십시오. 그것을 찾은 후에는 편집에서 검색을 사용하여 가능한 한 독특하고 고유한지 확인할 수 있습니다. 그렇지 않다면 가능한 한 먼저. 작동하지 않으면 교체 할 수 있습니다.
3 단계 : 코드를 작성하십시오
코드 사본은 다음과 같습니다.< %
'기능 : ASP 수집 코드
'저자 : Wangsdong
'참고 : 원본 프로그램 지원,이 정보를 보관하십시오. 감사합니다.
url = "http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml"
str = gethttppage (url)
title = strcut (str, "<h1 id =" "artibodytitle" "style =" "색상 :#03005c;" ">", "</h1>", 2)
content = strcut (str, "<!-텍스트 내용 시작->", "<!-텍스트 내용 종료->", 2)
응답. "뉴스 제목 <br> <b>"& title & "</b> <br> <br> <br> <br> 뉴스 내용 : <br>"& content
기능 gethttppage (URL)
다음에 오류가 재개됩니다
희미한 HTTP
set http = server.createobject ( "microsoft.xmlhttp")
http.open "get", url, false
http.send ()
http.readystate <> 4 인 경우
종료 기능
끝 If
gethttppage = bytestobstr (http.responsebody, "gb2312")
HTTP = 아무것도 설정하지 않습니다
err.number <> 0 인 경우
response.write "<p align = 'center'> <font color = 'red'> <b> 파일 내용을 얻는 데 오류가 오류 </b> </font> </p>"
err.clear
끝 If
엔드 기능
기능 bytestobstr (body, cset)
희미한 objstream
set 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 = 아무것도 설정하지 않습니다
엔드 기능
'가로 채기 문자열, 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)
끝 If
엔드 기능
%>
위는 ASP 컬렉션 코드 구현에 대한 자습서입니다. 편집기가 얻은 내용을 출력하여 이러한 내용을 데이터베이스에 쓸 수 있으며 데이터는 귀하의 것입니다.