ASP Crazy 模版操作类 最简易的模板类 仅提供交流

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

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!