getfile.asp
<%
''Используйте компонент xmlhttp для получения удаленных файлов и сохранения их в текущем пространстве
«Это пример создания веб-сайта. Удаленно получить содержимое веб-страницы и отфильтровать соответствующие данные о погоде. Конечно, вы можете пропустить локальное хранилище файлов и затем получить данные.
''Ссылка на функцию xoyu, спасибо здесь
fileurl=" http://www.hbqx.gov.cn/other/tqyb/inc_city_hb.asp "
dotloc=InStrRev(fileurl,".")
filepath="thistest"&mid(fileurl,dotloc) ''Создание имен файлов одного типа
''filepath="thistest.htm"
вызов saveRemoteFile(filepath,fileurl)
sub SaveRemoteFile(LocalFileName,RemoteFileUrl)
тусклые объявления, извлечение, GetRemoteData
Установить получение = Server.CreateObject("Microsoft.XMLHTTP")
С поиском
.Откройте «Получить», RemoteFileUrl, False, «», «»
.Отправлять
GetRemoteData = .ResponseBody
'' GetDetail = .ResponseText '' Вы можете напрямую получить содержимое текстовых файлов, но он не поддерживает китайский язык, я не знаю, как это решить.
Завершить
получением набора = Ничего
''RESPONSE.WRITE GetDetail
Set Ads = Server.CreateObject("Adodb.Stream") ''Создать соответствующий файл
С рекламой
.Тип = 1
.Открыть
.Напишите GetRemoteData
.SaveToFile server.MapPath(LocalFileName),2
.Отмена()
.Закрывать()
Конец с
Установить рекламу = ничего
end sub
''Вышеуказанное завершает удаленное хранение файлов, следующее применимо только к работе с текстовыми файлами www.downcodes.com
set fso=server.createobject("scripting.filesystemobject") ''Читать содержимое файла
set fileout=fso.opentextfile(server.mappath(filepath),1)
контент = fileout.readall
установить fileout=ничего
установить fso=ничего
''response.write content
contentarr=split(content,"<td") ''Фильтровать по содержимому
для i=1 до ubound(contentarr)
если instr(contentarr(i),"Enshi"), то thisloc=i
следующий
дим сюй(5)
для j = от 0 до 4
con1=contentarr(thisloc+j)
start1=инстр(con1,">")
con1=вправо(con1,len(con1)-start1)
стоп1=инстр(con1,"<")
con1=влево(con1,stop1-1)
str=str&contentarr(thisloc+j)
сю (j) = обрезка (con1)
следующий
если xu(1)<>"" тогда
response.write "document.write('Прогноз погоды в префектуре Эньши на ближайшие 24 часа:"&xu(1)&", минимальная температура"&xu(2)&"℃, максимальная температура"&xu(3)&"℃, ветер направление:" &xu(4)&".-выпущено Уханьской центральной метеорологической обсерваторией');"
еще
response.write "document.write('Еще не выпущен');"
конец, если
''response.write server.htmlencode(str)
%>
Цитирование и отображение полученного контента на другой htm-странице
<script src="getfile.asp"></script>