<%
함수 GetPage(url)
희미한 검색
검색 설정 = CreateObject("Microsoft.XMLHTTP")
검색 포함
."Get", url, False ', "", "" 열기
.보내다
GetPage = BytesToBstr(.ResponseBody)
끝
검색 설정 = 없음
끝 함수
함수 BytesToBstr(body)
희미한 객체 스트림
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write 본문
objstream.위치 = 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")) Then
fs.DeleteFile(server.MapPath("./")&"index.htm")
CrFi=fs.CreateTextFile(server.MapPath("./")&"index.htm")을 설정
하면 종료됩니다.
Crfi.Writeline(wstr)
CrFi=아무것도 설정하지 않음
fs=아무것도 설정하지 않음
response.write "...<font color=red>새로운 시작!</font>"
%>