<%
Função GetPage(url)
recuperação escura
Definir recuperação = CreateObject("Microsoft.XMLHTTP")
Com recuperação
.Abra "Obter", url, Falso ', "", ""
.Enviar
GetPage = BytesToBstr(.ResponseBody)
Terminar com
Definir recuperação = nada
Função final
Função BytesToBstr (corpo)
escurecer objstream
definir objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Modo =3
objstream.Open
objstream.Escrever corpo
objstream.Posição = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Fechar
definir objstream = nada
Função final
em caso de erro, retome a seguir
Url=" http://www.taiang.com.cn/index.asp "
resposta.write "开始更新首页..."
wstr = GetPage(Url)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
'se não MyFile.FolderExists(server.MapPath("/html/")) então
'MeuArquivo.CreateFolder(server.MapPath("/html/"))'
'fim se
If (fs.FileExists(server.MapPath("./")&"index.htm")) Então
fs.DeleteFile(server.MapPath("./")&"index.htm")
Fim se
definido CrFi=fs.CreateTextFile(server.MapPath("./")&"index.htm")
Crfi.Writeline(wstr)
definir CrFi = nada
definir fs = nada
response.write "...<font color=red>更新完成！</font>"
%>