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="  ：           ！" 
  
Else 
  
If FSO.FileExists(StrTemp)=false Then 
  
Check="  ：       ！" 
  
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 "  ：         ！" 
  
Response.End() 
  
End If 
  
If StrLValues="" Then 
  
Response.Write "  ：          ！" 
  
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 "  ：     Html            ！" 
  
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

 
  
 
  
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:

 
  
 
  
 
  
 
  
 
  
 
  
 
  
 
  
 
  
















 
  
 
  
{tl1}
 
  
{tl2}
 
  
{tl3}