ASP Crazy 模版操作類(最簡單的模板類、僅提供交流)

2020-07-27 12:53:14

字體：大中小

來源：轉載

供稿：網友

文件名：Awa_temp.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> 