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 “…更新完成！”

%>