<%
函数 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>"
%>