매개변수 설명
'데모이름이 사용하는 템플릿 [../demo/*.html]
'savename 저장 위치 및 이름 [../demo/*.html]
'strflag 대체될 플래그 [$aaa$,$bbb$]
'strcontent 각 태그의 대체 내용 [aaa$bbb]
'================================================ = ============================
하위 makepage(데모 이름, 저장 이름, strflag, strcontent)
희미한 fso,htmlwrite
희미한 strOut
'//파일 시스템 객체 생성 Set fso=Server.CreateObject(Scripting.FileSystemObject)
'//웹 페이지 템플릿 파일을 열고 템플릿 내용을 읽습니다.
htmlwrite=fso.OpenTextFile(Server.MapPath(데모이름))을 설정합니다.
strOut=htmlwrite.ReadAll
htmlwrite.close
'================================================ = ============================
strflag=분할(strflag,,)
i = 0에서 ubound(strflag)까지
strcont=분할(strcontent,$)
strOut=바꾸기(strOut,strflag(i),strcont(i))
'response.write strflag(i)&=&[&strcont(i)&]
다음
'// 템플릿의 태그를 실제 콘텐츠로 교체
'================================================ = ============================
'//생성할 정적 페이지를 생성합니다.
htmlwrite=fso.CreateTextFile(Server.MapPath(savename),true) 설정
'//웹페이지 내용 쓰기
htmlwrite.WriteLine strOut
htmlwrite.close
응답.쓰기
'// 파일 시스템 객체를 해제합니다.
sethtmlwrite=아무것도 없음
fso=아무것도 설정하지 않음
서브 끝
------------------------------------- ------------------------------------- ---------------------------
사용 예:
'태그 교체
commentFlag=$hotname$,$webkeywords$,$webdescription$,$webtitle$,$weblogo$
'레이블에 해당하는 값을 바꿉니다.
Hostname=Request.ServerVariables(SERVER_NAME)'현재 도메인 이름 가져오기
set rs=conn.execute([WebConfig]에서 webtitle_cn,webkey_cn,webDescription_cn,weblogo,webbanner 선택)
commentstr=호스트 이름&$&rs(1)&$&rs(2)&$&rs(0)&$&rs(3)
RS.닫기
rs=아무것도 설정하지 않음
'서브루틴 호출
makepage(../Demo/index_cn.html,../Cn/index.html,commentFlag,commentstr)를 호출합니다.