ASP Crazy 템플릿 연산 클래스 중 가장 간단한 템플릿 클래스가 필요한 친구들은 참고하면 됩니다. 파일 이름: Awa_temp.Class.asp
다음과 같이 코드 코드를 복사합니다.
<%
'미친 개구리! 템플릿 연산 수업!
작가 Crazy~frog QQ:379969387 소통을 환영합니다!
'버전 V1.0;
클래스AwaTemp
공개 AA
개인 FSO,StrTemp,FileData,GetDatas,StrHtmlName,htmlwrite,StrLabel,StrLValues
'============================================
'Constructor_Initialize FSO 구성요소
'============================================
비공개 하위 클래스_Initialize()
FSO=Server.CreateObject(Scripting.FileSystemObject)로 설정합니다.
서브 끝
'============================================
'Destructor_Destroy FSO 구성 요소
'============================================
비공개 하위 클래스_terminate()
FSO=아무것도 설정하지 않음
서브 끝
'============================================
'클래스 속성
'============================================
'버전 정보
공용 자산 버전 가져오기
Version=Crazy~frog! 템플릿 연산 클래스 V1.0 버전!
끝 속성
'템플릿 주소와 이름을 가져옵니다
공용 속성 Let Temp(ByVal 값)
StrTemp=값
끝 속성
'생성된 파일의 파일 이름을 가져옵니다.
공용 속성 Let HtmlName(ByVal 값)
StrHtmlName=값
끝 속성
'태그 가져오기
공용 속성 Let 레이블(ByVal 값)
StrLabel=값
끝 속성
'레이블을 대체하는 값을 가져옵니다.
공용 속성 Let LValues(ByVal 값)
StrLValues=값
끝 속성
'============================================
'수업 방법
'============================================
'템플릿 설정과 존재 여부를 확인하세요
비공개 기능 확인()
StrTemp= 다음인 경우
확인=<span style='color:red;'>오류: 템플릿 파일 저장 위치가 설정되지 않았습니다! </span>
또 다른
FSO.FileExists(StrTemp)=false인 경우 다음
Check=<span style='color:red;'>오류: 지정한 템플릿이 존재하지 않습니다! </span>
또 다른
확인=true
종료 조건
종료 조건
기능 종료
'템플릿 페이지 읽기
공개 하위 읽기 임시()
Check()<>true이면
응답.쓰기 확인()
응답.끝()
또 다른
GetDatas=FSO.OpenTextFile(Server.MapPath(StrTemp)) 설정
FileData=GetDatas.ReadAll
GetDatas.닫기
GetData=아무것도 설정하지 않음
종료 조건
서브 끝
'컨텐츠 교체
공공 기능 담당자()
StrLabel= 다음인 경우
Response.Write <span style='color:red;'>오류: 교체할 태그가 설정되지 않았습니다! </span>
응답.끝()
종료 조건
StrLValues= 다음인 경우
Response.Write <span style='color:red;'>오류: 대체 태그에 대한 데이터가 설정되지 않았습니다! </span>
응답.끝()
종료 조건
FileData=바꾸기(FileData,StrLabel,StrLValues)
기능 종료
'산출
공개 서브 에코()
응답.파일 데이터 쓰기
서브 끝
'정적 페이지 생성
공개 하위 GetHtml()
StrHtmlName=이면
Response.Write <span style='color:red;'>오류: 생성된 HTML 파일의 저장 위치와 파일 이름이 설정되지 않았습니다! </span>
응답.끝()
종료 조건
htmlwrite=FSO.CreateTextFile(Server.MapPath(StrHtmlName),true) 설정
'웹페이지 내용 작성
htmlwrite.WriteLine 파일데이터
htmlwrite.Close
sethtmlwrite=아무것도 없음
서브 끝
수업 종료
%>
사용 예:
index.asp
다음과 같이 코드 코드를 복사합니다.
<!--#include 파일=Awa_temp.Class.asp-->
<%
awa=새 AwaTemp 설정
아와와 함께
.온도=temp.tpl
.ReadTemp
.라벨={tl1}
.LValues=아파요
.대표
.에코
'.HtmlName=aa/index.html
'.GetHtml
끝
awa=아무것도 설정하지 않음
%>
원판
임시.tpl：
다음과 같이 코드 코드를 복사합니다.
<!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html xmlns=http://www.w3.org/1999/xhtml>
<머리>
<meta http-equiv=Content-Type content=text/html; charset=gb2312 />
<title>제목 없는 문서</title>
</head>
<본문>
<테이블 너비=200 테두리=1>
<tr>
<td>{tl1}</td>
<td>{tl2}</td>
<td>{tl3}</td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</body>
</html>