<%
函數 GetPage(url)
暗淡檢索
設定檢索 = CreateObject("Microsoft.XMLHTTP")
帶檢索
.打開“獲取”，url，False'，“”，“”
。
GetPage = BytesToBstr(.ResponseBody)
結束於
設定檢索=無
結束函數
Function BytesToBstr(body)
暗淡對象流
設定 objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.寫入主體
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.關閉
設定 objstream = 無
結束功能
出錯時繼續下一步
url=" http://www.taiang.com.cn/index.asp "
response.write“開始更新首頁...”
wstr = GetPage(Url)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
'如果不是 MyFile.FolderExists(server.MapPath("/html/")) 那麼
'MyFile.CreateFolder(server.MapPath("/html/"))'
'end if
If (fs.FileExists(server.MapPath("./")&"index.htm")) 然後
fs.DeleteFile(server.MapPath("./")&"index.htm")
End If
Set CrFi=fs.CreateTextFile(server.MapPath("./")&"index.htm")
Crfi.Writeline(wstr)
設定 CrFi=無
設定 fs=無
response.write "...<font color=red>更新完成！</font>"
%>