저는 지역 포털에서 일하고 있는데, 웹사이트의 날씨는 매일 업데이트되어야 합니다. 시간이 지날수록 꽤 번거로워져서 예정된 뉴스도둑을 작성했습니다. 게시 후 시스템 요구사항을 참조하세요. 지원 FSO, 서버 UDP TCP/IP
다음은 도둑의 내용입니다.
파일 이름 TianQi.asp
작성자: Nioked QQ408611119
www.downcodes.com
<%
시(현재)=9이고 분(현재)<30이면
getCategories()
종료하면
함수 getCategories()
오류 발생 시 다음 재개
Dim oXMLHTTP '객체로
Dim oCategories '를 개체로
DimBody텍스트
희미한 위치, 위치1
oXMLHTTP = CreateObject("Microsoft.XMLHTTP") 설정
'--- XMLHTTP 호출을 설정하고 전송을 발행합니다(범주로 parm 없음).
'---가 URL에 포함되어 있습니다.
oXMLHTTP.open "GET"," http://weather.china.com.cn/travel_gntq.php?cityid=56196&cityname =Mianyang",False '이 장소를 자신의 주소로 바꾸세요
oXMLHTTP.send
'--- 카테고리 데이터 아일랜드에 응답을 로드합니다.
BodyText=oXMLHTTP.responsebody
BodyText=BytesToBstr(BodyText,"gb2312")
Pos=Instr(BodyText,"<body")
pos1=Instr(BodyText,"</body>")
BodyText=mid(BodyText,pos,pos1)
BodyText=split(BodyText,"<테이블")
Pos=Instr(BodyText(4),"<tr")
pos1=Instr(BodyText(4),"</tr>")
본문=mid(BodyText(4),pos,len(BodyText(4))-pos)
body=split(body,"</table>")
body1=split(replace(replace(replace(body(0),"<br>",""),"</td>",""),"</tr>",""),"날씨" )
i= 1에서 ubound(body1)까지
body3=split(body1(i),"<td")
Weather=weather & "document.write("""& i&"$" & "날씨" & HTMLEncode(trim(body3(0))) & """);"
다음
Weather=replace(weather,"1$","<FONT color=#ffffff>【오늘】</FONT>")
Weather=replace(weather,"2$","<FONT color=#ffffff>【내일】</FONT>")
Weather=replace(weather,"3$","<FONT color=#ffffff>【모레】</FONT>")
fs = CreateObject("Scripting.FileSystemObject") 설정
f = fs.CreateTextFile(request.ServerVariables("APPL_PHYSICAL_PATH")& "tq.js", True) 설정
f.write("document.write('면양 일기예보:');" &vbcrlf & replacement(weather,"<BR>",""))
f.닫기
f = 없음으로 설정
fs = 아무것도 설정하지 않음
response.write "면양 일기 예보:"& 날씨
oXMLHTTP = 없음으로 설정
err.number<>0이면
response.write "오류가 발생했습니다. 오류 설명:"&err.description & "<br>오류 소스"& err.source
응답.끝()
종료하면
끝 함수
함수 BytesToBstr(body,Cset)
희미한 객체 스트림
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write 본문
objstream.위치 = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
objstream = 아무것도 설정하지 않음
기능 종료
공개 함수 HTMLEncode(fString)
IsNull(fString)이 아니면
fString = 대체(fString, ">", ">")
fString = 대체(fString, "<", "<")
fString = 바꾸기(fString, CHR(32), " ") '
fString = 바꾸기(fString, CHR(9), " ") '
fString = 바꾸기(fString, CHR(34), """)
fString = 바꾸기(fString, CHR(39), "'") '작은따옴표 필터링
fString = 바꾸기(fString, CHR(13), "")
fString = 바꾸기(fString, CHR(10) & CHR(10), "</P><P> ")
fString = 바꾸기(fString, CHR(10), "<BR> ")
HTMLEncode = fString
종료 조건
기능 종료
%>