ASP로 정적 HTML 파일을 생성하는 몇 가지 방법 비교

＜%

filename = test.htm

요청 (Body))>라면

set fso = server.createobject (scripting.filesystemobject)

set htmlwrite = fso.createtextfile (server.mappath (& filename &))

htmlwrite.write ＜ html> ＜ head> ＜ title> & request.form (title) & ＜/title> ＜/head>

htmlwrite.write ＜ 바디> 출력 제목 내용 : & request.form (title) & ＜ br/> 출력 본문 내용 : & request.form (body) & ＜/body> ＜/html>

htmlwrite.close

fout = 아무것도 설정하지 않습니다

FSO = 아무것도 설정하지 않습니다

끝 If

%>

form 형식 이름 = 양식 메소드 = 사후 조치 =>

＜ 입력 이름 = 제목 값 = 제목 크기 = 26>

＜BR>

＜ Textarea Name = Body> Body/Textarea>

＜BR>

＜BR>

＜ 입력 유형 = 제출 이름 = 제출 값 = html 생성>

＜/양식>

template.htm '// 템플릿 파일

html>

＜ 머리>

Cuoxin.com의 title> $ title $ $. ＜/title>

＜/헤드>

body>

$ body $

＜/바디>

＜/html>

testtemplate.asp '// html을 생성합니다

＜%

dim fso, htmlwrite

희미한 스트리트 타이틀, 스트론트, 스트라우트

'// 파일 시스템 객체를 만듭니다

set fso = server.createobject (scripting.filesystemobject)

'// 웹 템플릿 파일을 열고 템플릿 내용을 읽으십시오.

set htmlwrite = fso.opentextfile (server.mappath (template.htm))

Strout = F. Readall

htmlwrite.close

strtitle = 생성 된 웹 페이지 제목입니다

strcontent = 생성 된 웹 페이지 컨텐츠

'// 템플릿의 태그를 실제 콘텐츠로 바꾸십시오.

Strout = Replace (Strout, $ title $, strtitle)

Strout = replace (Strout, $ body $, strcontent)

'// 생성 할 정적 페이지를 만듭니다

set htmlwrite = fso.createtextfile (server.mappath (test.htm), true)

'// 웹 페이지에 컨텐츠를 작성합니다

htmlwrite.writeline Strout

htmlwrite.close

응답. 정적 페이지가 성공적으로 생성되었습니다!

'// 파일 시스템 객체를 해제합니다

htmlwrite = nothing을 설정하십시오

FSO = 아무것도 설정하지 않습니다

%>

＜%

'일반적인 기능

'1. URL 대상 웹 페이지 주소를 입력하고 반환 값 GethttpPage는 대상 웹 페이지의 HTML 코드입니다.

기능 gethttppage (URL)

희미한 HTTP

set http = server.createobject (msxml2.xmlhttp)

http.open get, url, false

http.send ()

http.readystate <> 4 인 경우

종료 기능

끝 If

gethttppage = bytestobstr (http.responsebody, gb2312)

HTTP = 아무것도 설정하지 않습니다

err.number <> 0 인 경우 err.clear

엔드 기능

'2. Lanma를 변환하고 xmlhttp로 한자로 웹 페이지를 직접 호출하면 Adodb.stream 구성 요소를 통해 변환 할 수있는 Lanma를 얻게됩니다.

기능 bytestobstr (body, cset)

희미한 objstream

set objstream = server.createobject (adodb.stream)

objstream.type = 1

objstream.mode = 3

objstream.open

objstream.write body

objstream.position = 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)

filename = ../index.htm

SET OPENFILE = FILEOBJECT.OPENTEXTFILE (Server.MAPPATH (FILENAME), 2, TRUE) 'True가 존재하지 않으면 자체적으로 생성됩니다.

OpenFile.WriteLine (Stext)

OpenFile = 아무것도 설정하지 않습니다

%>

script>

경고 (정적 웹 페이지 생성이 완료됨);

history.back ();

＜/스크립트>