<%
　　Function GetPage(url)
　　dim Retrieval
　　Set Retrieval = CreateObject("Microsoft.XMLHTTP")
　　With Retrieval
　　.Open "Get", url, False ', "", ""
　　.Send
　　GetPage = BytesToBstr(.ResponseBody)
　　End With
　　Set Retrieval = Nothing
　　End Function

　　Function BytesToBstr(body)
　　dim objstream
　　set objstream = Server.CreateObject("adodb.stream")
　　objstream.Type = 1
　　objstream.Mode =3
　　objstream.Open
　　objstream.Write body
　　objstream.Position = 0
　　objstream.Type = 2
　　objstream.Charset = "GB2312"
　　BytesToBstr = objstream.ReadText
　　objstream.Close
　　set objstream = nothing
　　End Function
　　on error resume next
　　Url="http://www.taiang.com.cn/index.asp"
　　response.write "开始更新首页..."
　　wstr = GetPage(Url)

　　Set fs=Server.CreateObject("Scripting.FileSystemObject")

　　'if not MyFile.FolderExists(server.MapPath("/html/")) then
　　'MyFile.CreateFolder(server.MapPath("/html/"))'
　　'end if

　　If (fs.FileExists(server.MapPath("./")&"index.htm")) Then
　　fs.DeleteFile(server.MapPath("./")&"index.htm")
　　End If

　　Set CrFi=fs.CreateTextFile(server.MapPath("./")&"index.htm")
　　Crfi.Writeline(wstr)
　　set CrFi=nothing
　　set fs=nothing
　　response.write "...<font color=red>更新完成！</font>"
　　%>