방법 1
<%
'자주 사용하는 함수
'1. URL 대상 웹페이지 주소를 입력하고, 반환값 getHTTPPage는 대상 웹페이지의 HTML 코드입니다.
함수 getHTTPage(url)
희미한 HTTP
Http=server.createobject("MSXML2.XMLHTTP")를 설정합니다.
Http.open "GET", URL, false
Http.send()
Http.readystate<>4이면
종료 기능
종료하면
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
http=아무것도 설정하지 않음
err.number<>0이면 err.Clear
end function
'2. Ranma 변환. xmlhttp를 사용하여 한자로 웹페이지를 호출하면 adodb.stream 구성 요소를 통해 변환할 수 있습니다.
함수 BytesToBstr(body,Cset)
희미한 객체 스트림
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write 본문
objstream.위치 = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
objstream = 아무것도 설정하지 않음
기능 종료
txtURL=server.MapPath("../index.asp")
sText = getHTTPPage(txtURL)
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
파일 이름="../index.htm"
Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true는 파일이 존재하지 않고 자체적으로 생성됨을 의미합니다.
openFile.writeline(sText)
OpenFile=아무것도 설정하지 않음
%>
<스크립트>
Alert("정적 웹페이지 생성이 완료되었습니다.");
역사.뒤로();
</script>
방법 2:
resourcesfile=server.MapPath("../index.asp")
targetfile=server.MapPath("../index.htm")
html = Server.CreateObject("CDO.Message") 설정
html.CreateMHTMLBody 리소스 파일,31
indexcode=html.HTMLBody
html = 없음 설정
if instr(indexcode,"</BODY></HTML>")<=0 그러면
response.Write("홈페이지 생성 실패")
응답.끝()
또 다른
oFileSys = Server.CreateObject("Scripting.FileSystemObject") 설정
outfile=oFileSys.CreateTextFile(대상 파일) 설정
outfile.WriteLine 인덱스 코드
outfile.close
outfile=nothing으로 설정
oFileSys=아무것도 설정하지 않음
response.Write("홈페이지가 생성되었습니다!")
종료하면