ASP Crazy 모드 작업 클래스(가장 간단 한 템 플 릿 클래스,커 뮤 니 케 이 션 만 제공)

파일 이름:Awatemp.class.asp

 
<% 
'Crazy !      

'  Crazy~ ! QQ:379969387      
'  V1.0; 
Class AwaTemp 
Public aa 
Private FSO,StrTemp,FileData,GetDatas,StrHtmlName,htmlwrite,StrLabel,StrLValues 
'=========================================== 
'    _   FSO   
'=========================================== 
Private Sub Class_Initialize() 
Set FSO=Server.CreateObject("Scripting.FileSystemObject") 
End Sub 
'=========================================== 
'    _  FSO   
'=========================================== 
Private Sub Class_terminate() 
Set FSO=nothing 
End Sub 
'=========================================== 
'    
'=========================================== 
'     
Public Property Get Version 
Version="Crazy~ !      !V1.0  ;" 
End Property 
'           
Public Property Let Temp(ByVal Values) 
StrTemp=Values 
End Property 
'           
Public Property Let HtmlName(ByVal Values) 
StrHtmlName=Values 
End Property 
'     
Public Property Let Label(ByVal Values) 
StrLabel=Values 
End Property 
'          
Public Property Let LValues(ByVal Values) 
StrLValues=Values 
End Property 
'=========================================== 
'    
'=========================================== 
'             
Private Function Check() 
If StrTemp="" Then 
Check="<span style='color:red;'>  ：           ！</span>" 
Else 
If FSO.FileExists(StrTemp)=false Then 
Check="<span style='color:red;'>  ：       ！</span>" 
Else 
Check=true 
End If 
End If 
End Function 
'      
Public Sub ReadTemp() 
If Check()<>true Then 
Response.Write Check() 
Response.End() 
Else 
Set GetDatas=FSO.OpenTextFile(Server.MapPath(StrTemp)) 
FileData=GetDatas.ReadAll 
GetDatas.Close 
Set GetData=nothing 
End If 
End Sub 
'     
Public Function Rep() 
If StrLabel="" Then 
Response.Write "<span style='color:red;'>  ：         ！</span>" 
Response.End() 
End If 
If StrLValues="" Then 
Response.Write "<span style='color:red;'>  ：          ！</span>" 
Response.End() 
End If 
FileData=Replace(FileData,StrLabel,StrLValues) 
End Function 
'   
Public Sub Echo() 
Response.Write FileData 
End Sub 
'       
Public Sub GetHtml() 
If StrHtmlName="" Then 
Response.Write "<span style='color:red;'>  ：     Html            ！</span>" 
Response.End() 
End If 
Set htmlwrite=FSO.CreateTextFile(Server.MapPath(StrHtmlName),true) 
'       
htmlwrite.WriteLine FileData 
htmlwrite.Close 
set htmlwrite=Nothing 
End Sub 
End Class 
%>

용법 예시:index.asp

 
<!--#include file="Awa_temp.Class.asp"--> 
<% 
Set awa=New AwaTemp 
With awa 
.Temp="temp.tpl" 
.ReadTemp 
.Label="{tl1}" 
.LValues="  " 
.Rep 
.Echo 
'.HtmlName="aa/index.html" 
'.GetHtml 
End With 
Set awa=nothing 
%>

모드 temp.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"> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> 
<title>     </title> 
</head> 

<body> 
<table width="200" border="1"> 
<tr> 
<td>{tl1}</td> 
<td>{tl2}</td> 
<td>{tl3}</td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
<td>&nbsp;</td> 
<td>&nbsp;</td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
<td>&nbsp;</td> 
<td>&nbsp;</td> 
</tr> 
</table> 
</body> 
</html>

이 내용에 흥미가 있습니까?

현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:

ASP Crazy 모드 작업 클래스(가장 간단 한 템 플 릿 클래스,커 뮤 니 케 이 션 만 제공)

파일 이름:Awatemp.class.asp 용법 예시:index.asp 모드 temp.tpl:...

텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.

CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.

ASP Crazy 모드 작업 클래스(가장 간단 한 템 플 릿 클래스,커 뮤 니 케 이 션 만 제공)

좋은 웹페이지 즐겨찾기