ASP를 사용하여 원격 웹 페이지의 지정된 내용을 얻으십시오.
코드는 다음과 같습니다.
<%
'ASP를 사용하여 원격 대상 웹 페이지의 지정된 컨텐츠를 얻으려면 Guangzhou 웹 사이트에서 코드가 제공하여 http://www.vevb.com을 구축합니다.
다음에 오류가 재개됩니다
Server.scriptTimeout = 9999999
기능 gethttppage (경로)
t = getbody (경로)
gethttppage = bytestobstr (t, gb2312)
엔드 기능
기능 뉴스 트링 (WSTR, strng)
Newstring = instr (lcase (wstr), lcase (strng))
Newstring <= 0 인 경우 Newstring = Len (WSTR)
엔드 기능
기능 bytestobstr (body, cset)
희미한 objstream
set 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 = 아무것도 설정하지 않습니다
엔드 기능
함수 getbody (URL)
다음에 오류가 재개됩니다
set retrieval = createobject (microsoft.xmlhttp)
검색과 함께
.opeen get, url, false ,,,,,,
.보내다
getbody = .ResponseBody
끝납니다
setRieval = 아무것도
엔드 기능
'ASP는 원격 웹 페이지 시작의 지정된 내용을 시작하여 시작합니다.
Dim WSTR, STR, URL, 시작, 오버, DTIME
a = 컨텐츠 시작 'ASP 대상 웹 페이지 컨텐츠를 얻고 시작 마킹 시작
b = 웹 컨텐츠 엔드 마크를 얻으려면 ansp 'ASP
url = http://sc.vevb.com/
wstr = gethttppage (url)
start = Newstring (WSTR, A)
Over = Newstring (WSTR, B)
Body = Mid (WSTR, 시작, 오버 스타트)
Response.Write & Body & '출력 획득 웹 페이지 컨텐츠
'ASP 원격 웹 페이지 종료의 지정된 컨텐츠 가져 오기
%>
위의 코드는 지정된 웹 페이지의 내용을 얻을 수 있습니다.
핵심 코드 :
'ASP는 원격 웹 페이지 시작의 지정된 내용을 시작하여 시작합니다.
Dim WSTR, STR, URL, 시작, 오버, DTIME
url = http://sc.vevb.com/
wstr = gethttppage (url)
Body = WSTR