<%
    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="leafweb.cn/index.asp" target="_blank">http://www.leafweb.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>"
    %>