일기 예측 캡처를위한 예제 분석 프로그램 튜토리얼

권장 : ASP는 문자열의 마지막 위치를 반환합니다
% dwwwst = divdwww.cn/divdivwwww.dwww.cn/div 디자인 홈 dwwwstrev = instrev (dwwwstr,/div) response.write dwwwstr % instrev 설명 다른 문자열에 나타나는 문자열의 끝에서 위치를 반환합니다. Syntax Instrev (String1, String2 [, start [, Compare]]) instre

나는 아침에 회사에서 일할 때, 나는 2008 년의 첫 눈이 조금 늦었다. .

그래서 나는 일기 예보 절차를 작성하는 방법을 찾았고 QQ의 일기 예보가 상당히 좋다는 것을 알았습니다. . 헤헤. . 나는 당신을 잡을 것입니다!

그림과 같이 :

암호:

<%

'오류로 이력서에 다음에

'저자 : Wuqing 출처 : 재판 할 때 출처를 유지하십시오

응답 .ContentType = 텍스트/html;

날씨에 전화 ()

하위 날씨 ()

url = http : //weather.news.qq.com/inc/07_ss252.htm '상하이의 날씨

isobjinstalled (microsoft.xmlhttp)

weatherstr = gethttppage (url)

weatherstr =라면

응답. 죄송합니다. 일기 예보가로드되지 않았습니다!

또 다른

Reg = New Regexp를 설정합니다

reg.multiline = true

reg.global = false

reg.ignorecase = true

reg.pattern = <td height = 77 class = wht2 lk37> ((. |/n)*?) </td>

매치 세트 = reg.Execute (weatherstr)

일치하는 각 경기에 대해

weatherstr = match1.value

다음

일치 = 아무것도 설정하지 않습니다

reg = 아무것도 설정하지 않습니다

악기 (weatherstr, 찾을 수 없음)> 0이면

응답. 죄송합니다. 일기 예보가로드되지 않았습니다!

또 다른

weatherstr = replace (weatherstr, <td height = 77 class = wht2 lk37>,)

weatherstr = replace (weatherstr, <div class = txbd>,)

weatherstr = replace (weatherstr, </div>,)

weatherstr = replace (weatherstr, </td>,)

응답. 상하이 일기 예보 : & Weatherstr &

끝 If

끝 If

종료 서브

'// microsoft.xmlhttp 구성 요소를 사용하여 데이터를 수집하십시오

기능 gethttppage (URL)

'오류로 이력서에 다음에

희미한 HTTP

set http = server.createobject (microsoft.xmlhttp)

http.open get, url, false

http.send ()

http.readystate <> 4 인 경우

종료 기능

끝 If

gethttppage = bytes2bstr (http.responsebody)

HTTP = 아무것도 설정하지 않습니다

err.number <> 0 인 경우 err.clear

엔드 기능

공유 : ASP 구현 DIG 프로그램의 투표 분석
ASP는 DIG 프로그램에서 투표를합니다 (일부는 TOP 및 Step ON이라고합니다). 코드가 길어 지므로 핵심 부분 만 게시합니다. 투표 부분은 투표 부분을 표시합니다. viseresult.