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="미쳤어~개구리! 템플릿 연산 클래스! V1.0 버전;"
끝 속성
'템플릿 주소와 이름을 가져옵니다
공용 속성 Let Temp(ByVal 값)
StrTemp=값
끝 속성
'생성된 파일의 파일 이름을 가져옵니다.
공용 속성 Let HtmlName(ByVal 값)
StrHtmlName=값
끝 속성
'태그 가져오기
공용 속성 Let 레이블(ByVal 값)
StrLabel=값
끝 속성
'레이블을 대체하는 값을 가져옵니다.
공용 속성 Let LValues(ByVal 값)
StrLValues=값
끝 속성
'============================================
'수업 방식
'============================================
'템플릿 설정과 존재 여부를 확인하세요
비공개 기능 확인()
StrTemp=""인 경우 다음
Check="<span>오류: 템플릿 파일 저장 위치가 설정되지 않았습니다!</span>"
또 다른
FSO.FileExists(StrTemp)=false인 경우 다음
Check="<span>오류: 지정한 템플릿이 존재하지 않습니다!</span>"
또 다른
확인=true
종료 조건
종료 조건
기능 종료
'템플릿 페이지 읽기
공개 하위 읽기 임시()
Check()<>true이면
응답.쓰기 확인()
응답.끝()
또 다른
GetDatas=FSO.OpenTextFile(Server.MapPath(StrTemp)) 설정
FileData=GetDatas.ReadAll
GetDatas.닫기
GetData=아무것도 설정하지 않음
종료 조건
서브 끝
'컨텐츠 교체
공공 기능 담당자()
StrLabel=""인 경우
Response.Write "<span>오류: 교체할 태그가 설정되지 않았습니다!</span>"
응답.끝()
종료 조건
StrLValues=""인 경우
Response.Write "<span>오류: 대체 태그에 대한 데이터가 설정되지 않았습니다!</span>"
응답.끝()
종료 조건
FileData=바꾸기(FileData,StrLabel,StrLValues)
기능 종료
'산출
공개 서브 에코()
응답.파일 데이터 쓰기
서브 끝
'정적 페이지 생성
공개 하위 GetHtml()
StrHtmlName=""이면
Response.Write "<span>오류: 생성된 HTML 파일의 저장 위치와 파일 이름이 설정되지 않았습니다!</span>"
응답.끝()
종료 조건
htmlwrite=FSO.CreateTextFile(Server.MapPath(StrHtmlName),true)를 설정합니다.
'웹페이지 내용 작성
htmlwrite.WriteLine 파일데이터
htmlwrite.Close
sethtmlwrite=아무것도 없음
서브 끝
수업 종료
%>
사용 예:
index.asp
다음과 같이 코드 코드를 복사합니다.
<!--#include file="Awa_temp.Class.asp"-->
<%
awa=새 AwaTemp 설정
아와와 함께
.온도="온도.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>
<본문>
<테이블>
<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>