getfile.asp
<%
''xmlhttp 구성 요소를 사용하여 원격 파일을 가져와 현재 공간에 저장합니다.
''이것은 웹사이트 구축의 예입니다. 웹페이지 콘텐츠를 원격으로 얻고 관련 날씨 데이터를 필터링할 수 있습니다. 물론 로컬 파일 저장을 건너뛰고 데이터를 얻을 수도 있습니다.
''xoyu의 기능을 참조했습니다. 여기에 감사드립니다.
fileurl=" http://www.hbqx.gov.cn/other/tqyb/inc_city_hb.asp "
dotloc=InStrRev(파일URL,".")
filepath="thistest"&mid(fileurl,dotloc) ''동일한 형식의 파일 이름 만들기
''filepath="thistest.htm"
saveRemoteFile(filepath,fileurl)
하위 SaveRemoteFile(LocalFileName,RemoteFileUrl)
호출
희미한 광고, 검색, GetRemoteData
검색 설정 = Server.CreateObject("Microsoft.XMLHTTP")
검색 포함
.Open "Get", RemoteFileUrl, False, "", ""
.보내다
GetRemoteData = .ResponseBody
'' GetDetail = .ResponseText ''텍스트 파일의 내용을 직접 얻을 수 있지만 중국어를 지원하지 않습니다. 어떻게 해결해야 할지 모르겠습니다.
으로 끝남
= 없음
''RESPONSE.WRITE GetDetail
Set Ads = Server.CreateObject("Adodb.Stream") ''해당 파일 생성
광고 포함
.유형 = 1
.열려 있는
.GetRemoteData 쓰기
.SaveToFile 서버.MapPath(LocalFileName),2
.취소()
.닫다()
끝
광고 설정 = 없음
end sub
''위는 파일의 원격 저장을 완료하고 다음은 텍스트 파일 작업에만 적용됩니다 www.downcodes.com
set fso=server.createobject("scripting.filesystemobject") ''파일 내용 읽기
fileout=fso.opentextfile(server.mappath(filepath),1) 설정
내용=fileout.readall
파일 출력=아무것도 설정하지 않음
fso=아무것도 설정하지 않음
''response.write
contentarr=split(content,"<td") ''콘텐츠를 기반으로 필터링
i=1에서 ubound(contentarr)까지
if instr(contentarr(i),"Enshi") 그러면 thisloc=i
다음
딤쑤(5)
j=0~4인 경우
con1=콘텐츠arr(thisloc+j)
start1=instr(con1,">")
con1=오른쪽(con1,len(con1)-start1)
stop1=instr(con1,"<")
con1=왼쪽(con1,stop1-1)
str=str&contentarr(thisloc+j)
xu(j)=트림(con1)
다음
xu(1)<>""이면
response.write "document.write('향후 24시간 엔시현 일기 예보:"&xu(1)&", 최저 기온"&xu(2)&"℃, 최고 기온"&xu(3)&"℃, wind 방향:" &xu(4)&".-우한 중앙 기상 관측소에서 발표');"
또 다른
response.write "document.write('아직 출시되지 않음');"
종료하면
''response.write server.htmlencode(str)
%>
획득한 내용을 다른 HTML 페이지에 인용 및 표시
<script src="getfile.asp"></script>