<%
Функция GetPage(url)
тусклый поиск
Установить Получение = CreateObject("Microsoft.XMLHTTP")
С поиском
.Откройте «Получить», URL, False ', «», «»
.Отправлять
GetPage = BytesToBstr(.ResponseBody)
Конец с
Установить получение = Ничего
Конечная функция
Функция BytesToBstr(body)
тусклый объектный поток
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Открыть
objstream.Напишите тело
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
установить objstream = ничего
Конечная функция
при ошибке продолжить дальше
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")) Тогда
fs.DeleteFile(server.MapPath("./")&"index.htm")
End If
Set CrFi=fs.CreateTextFile(server.MapPath("./")&"index.htm")
Crfi.Writeline(wstr)
установить CrFi=ничего
установить фс=ничего
response.write "...<font color=red>更新完成！</font>"
%>