getfile.asp
<％
''利用xmlhttp組件（jiàn）獲取遠程（chéng）文件保存到當（dāng）前空（kōng）間
''此是網站建設中的一個實例,遠程獲取（qǔ）一個網頁內（nèi）容並篩選出相關的天氣（qì）數（shù）據,當然可以跳過文件（jiàn）本地存儲再獲取數據
''參考了xoyu的函（hán）數,在此感謝
fileurl="http://www.hbqx.gov.cn/other/tqyb/inc_city_hb.asp"
dotloc=InStrRev(fileurl,".")
filepath="thistest"&mid(fileurl,dotloc) ''建立（lì）同（tóng）類型文件名
''filepath="thistest.htm"

call saveRemoteFile(filepath,fileurl)

sub SaveRemoteFile(LocalFileName,RemoteFileUrl)
dim Ads,Retrievals,GetRemoteData
Set Retrievals = Server.CreateObject("Microsoft.XMLHTTP")
With Retrievals
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
'' GetDetail = .ResponseText ''對文本型文件可（kě）直接（jiē）獲取內容,但不能支持（chí）中文,不（bú）知道如何解決
End With

Set Retrievals = Nothing
''RESPONSE.WRITE GetDetail

Set Ads = Server.CreateObject("Adodb.Stream") ''生成對應文件
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile server.MapPath(LocalFileName),2
.Cancel()
.Close()
End With
Set Ads=nothing
end sub

''以上完成遠程存儲文件,以下隻適用於對文本型文件的操作
set fso=server.createobject("scripting.filesystemobject") ''讀取文（wén）件內容
set fileout=fso.opentextfile(server.mappath(filepath),1)
content=fileout.readall
set fileout=nothing
set fso=nothing
''response.write content

contentarr=split(content,"<td") ''根（gēn）據內容進行篩選
for i=1 to ubound(contentarr)
if instr(contentarr(i),"恩施") then thisloc=i
next
dim xu(5)
for j=0 to 4
con1=contentarr(thisloc+j)
start1=instr(con1,">")
con1=right(con1,len(con1)-start1)
stop1=instr(con1,"<")
con1=left(con1,stop1-1)
str=str&contentarr(thisloc+j)
xu(j)=trim(con1)
next
if xu(1)<>"" then
response.write "document.write('恩施州未來（lái）24小時天（tiān）氣預報:"&xu(1)&",最低溫度"&xu(2)&"攝氏（shì）度,最（zuì）高溫度（dù）"&xu(3)&"攝氏度,風向:"&xu(4)&".--武漢中心氣象台發布');"
else
response.write "document.write('暫未發（fā）布');"
end if
''response.write server.htmlencode(str)
％>

在另一個htm頁中引用顯示獲取（qǔ）內容（róng）
<script src="getfile.asp"></script>