getfile.asp
<%
'' xmlhttp コンポーネントを使用してリモート ファイルを取得し、現在のスペースに保存します
これは Web サイト構築の例です。もちろん、Web ページのコンテンツをリモートで取得し、関連する気象データを除外して、データを取得することもできます。
''xoyu の関数を参照しました、ここに感謝します
fileurl=" http://www.hbqx.gov.cn/other/tqyb/inc_city_hb.asp "
dotloc=InStrRev(ファイルurl,".")
filepath="thistest"&mid(fileurl,dotloc) ''同じ種類のファイル名を作成します
''filepath="thistest.htm"
call saveRemoteFile(filepath,fileurl)
sub SaveRemoteFile(LocalFileName,RemoteFileUrl)
dim 広告、取得、GetRemoteData
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
検索あり
.Open "Get"、RemoteFileUrl、False、""、""
。送信
GetRemoteData = .ResponseBody
'' GetDetail = .ResponseText ''テキストファイルの内容を直接取得することはできますが、中国語には対応していません。解決方法がわかりません。
で終了
= なし
''RESPONSE.WRITE GetDetail
Set Ads = Server.CreateObject("Adodb.Stream") ''対応するファイルを生成します
広告あり
.Type = 1
。開ける
.Write GetRemoteData
.SaveToFile サーバー.MapPath(ローカルファイル名),2
。キャンセル（）
。近い（）
で終わる
「広告=なし」を設定します
end sub
''上記でファイルのリモート ストレージが完了しました。以下はテキスト ファイルwww.downcodes.comの操作にのみ適用されます。
set fso=server.createobject("scripting.filesystemobject") ''ファイルの内容を読み取ります
set fileout=fso.opentextfile(server.mappath(ファイルパス),1)
content=fileout.readall
ファイルアウト=何も設定しない
fso=何も設定しない
''response.write content
contentarr=split(content,"<td") ''コンテンツに基づいてフィルターします
i=1 から ubound(contentarr) へ
if instr(contentarr(i),"Enshi") then thisloc=i
次
ディムシュウ(5)
j=0～4の場合
con1=contentarr(thisloc+j)
start1=instr(con1,">")
con1=right(con1,len(con1)-start1)
stop1=instr(con1,"<")
con1=左(con1,stop1-1)
str=str&contentarr(thisloc+j)
xu(j)=トリム(con1)
次
if xu(1)<>"" then
response.write "document.write('今後24時間の恩施県の天気予報:"&xu(1)&", 最低気温"&xu(2)&"℃, 最高気温"&xu(3)&"℃, 風方向:" &xu(4)&".--武漢中央気象台による発表');"
それ以外
response.write "document.write('まだリリースされていません');"
終了する場合
''response.write server.htmlencode(str)
%>
取得した内容を別のHTMLページに引用して表示する
<script src="getfile.asp"></script>