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

ASP Crazy 模版操作类：简单实用的模板处理参考

亲爱的朋友们，大家好！这是一个简单的ASP模板操作类的示例，供大家在开发中参考使用。此类的名字为Awa_temp.Class.asp。

`文件名：Awa_temp.Class.asp`

```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 = "错误未设置模板文件存储位置！"

ElseIf FSO.FileExists(StrTemp) = False Then

Check = "错误指定模板不存在！"

Else

Check = True

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() '读取文件内容至变量FileData中

class AwaTemp

```vbscript

' 核心功能描述

' 创建一个用于处理模板和动态内容的类

' 属性初始化

Private Sub Class_Initialize()

' 初始化文件数据等属性

End Sub

' 读取模板文件内容

Public Sub ReadTemp()

If StrTemp = "" Then Response.Write("未设置模板文件路径！") And Response.End()

FileData = GetFileContent(StrTemp) ' 使用自定义函数获取文件内容

End Sub

' 替换模板中的标签和值

Public Sub Rep()

If StrLabel = "" Or StrLValues = "" Then Response.Write("标签或标签值未设置！") And Response.End()

FileData = ReplaceLabelValues(FileData, StrLabel, StrLValues) ' 使用自定义函数进行替换操作

End Sub

' 生成并输出内容到浏览器或文件

Public Sub Echo()

Response.Write FileData ' 输出内容到浏览器或已打开的文件中，取决于上下文环境（如是否在ASP环境中）

End Sub

' 生成静态页面并保存到指定位置

Public Sub GetHtml()

If StrHtmlName = "" Then Response.Write("未设置生成Html文件的存储位置和文件名！") And Response.End()

Dim htmlwrite As Object ' 创建文件对象准备写入网页内容