<%
Función ObtenerPágina(url)
recuperación oscura
Establecer recuperación = CreateObject ("Microsoft.XMLHTTP")
Con recuperación
.Abrir "Obtener", URL, Falso ', "", ""
.Enviar
GetPage = BytesToBstr(.ResponseBody)
Terminar con
Establecer recuperación = nada
Función final
Función BytesToBstr(cuerpo)
corriente de objetos tenue
establecer objstream = Server.CreateObject("adodb.stream")
objstream.Tipo = 1
objstream.Modo =3
objstream.Abrir
objstream.Escribir cuerpo
objstream.Posición = 0
objstream.Tipo = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Cerrar
establecer objstream = nada
Función final
en caso de error reanudar siguiente
URL=" http://www.taiang.com.cn/index.asp "
respuesta.escribir "开始更新首页..."
wstr = GetPage(Url)
Establecer fs=Server.CreateObject("Scripting.FileSystemObject")
'si no es MyFile.FolderExists(server.MapPath("/html/")) entonces
'MiArchivo.CrearCarpeta(servidor.MapPath("/html/"))'
'finalizar si
(fs.FileExists(server.MapPath("./")&"index.htm")) Entonces
fs.DeleteFile(servidor.MapPath("./")&"index.htm")
Finalizar si
se establece CrFi=fs.CreateTextFile(server.MapPath("./")&"index.htm")
Crfi.Writeline(wstr)
establecer CrFi = nada
establecer fs = nada
respuesta.escribir "...<font color=red>更新完成！</font>"
%>