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

2024-10-16 20:10:41

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

代码如下:

<!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>

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 '=========================================== '构造函数_初始化FS
ASP.NET数据库操作类实例

本文实例讲述了ASP.NET数据库操作类.分享给大家供大家参考,具体如下: using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using Syst
PHP封装类似thinkphp连贯操作数据库Db类与简单应用示例

本文实例讲述了PHP封装类似thinkphp连贯操作数据库Db类与简单应用.分享给大家供大家参考,具体如下: <?php header("Content-Type:text/html;charset=utf-8"); /** *php操作mysql的工具类 */ class Db{ private $_db = null;//数据库连接句柄 private $_table = null;//表名 private $_where = null;//where条件 private $
java 利用java反射机制动态加载类的简单实现

如下所示: ////////////////// Load.java package org.bromon.reflect; import java.util.ArrayList; import java.util.List; public class Load implements Operator { @Override public List<?> act(List<?> params) { // TODO Auto-generated method stub List<
ASP.NET中Web API的简单实例

一.Web API的路由 1.在Visual Studio中新建MVC4项目,在App_Start目录下有一个WebApiConfig.cs文件,这个文件中就是相应的Web API的路由配置了. 2.Web API 框架默认是基于 Restful 架构模式的,与ASP.NET MVC 有区别的是,它会根据 Http 请求的 HttpMethod(Get.Post.Put.Delete)来在Controller 中查找 Action,规则是:Action 名中是否以Get.Post 开头?Acti
asp.net实现非常实用的自定义页面基类(附源码)

本文实例讲述了asp.net实现非常实用的自定义页面基类.分享给大家供大家参考,具体如下: 看到前面几篇文章(如:<asp.net实现利用反射,泛型,静态方法快速获取表单值到Model的方法>)想到的.下面总结发布一个笔者在开发中常用的一个自定义BasePage类,废话不多说了,直接贴代码. 一.BasePage类 1.代码 using System; using System.Data; using System.Configuration; using System.Web; using
CI框架简单邮件发送类实例

本文实例讲述了CI框架简单邮件发送类.分享给大家供大家参考,具体如下: ci框架绝对是php初学中想要的东西,它能极大的缩短你的代码量! 下面看看我的发送邮件的简单演示: function email() { $this->load->library('email'); $config['protocol'] = 'smtp'; $config['smtp_host'] = 'smtp.163.com'; $config['smtp_user'] = 'jb51@163.com';//这里写上
Yii框架批量插入数据扩展类的简单实现方法

本文实例讲述了Yii框架批量插入数据扩展类的简单实现方法.分享给大家供大家参考,具体如下: MySQL INSERT语句允许插入多行数据,如下所示: INSERT INTO tbl_name (a,b,c) VALUES(1,2,3),(4,5,6),(7,8,9); 那么要实现批量插入,主要的任务就是按照列顺序,把数据组装成上述格式即可,可以使用sprintf和vsprintf函数来实现. 下面是一个实现批量插入的Yii扩展类的简单示例(支持VARCHAR类型数据): <?php /** *
一个string类的简单实现案例

string类中使用到了赋值构造函数.复制构造函数.构造函数.默认构造函数.析构函数.重载操作符等一些类操作 class String { public: String() { data = new char[1]; //这里为什么使用new char[1]呢,虽然是一个字符,这是为了和析构函数保持对称,因为在别的构造函数中使用的char[] data[0]='\0'; length = 0; } String(const char* str) { length = strlen(str); d
python操作MySQL 模拟简单银行转账操作

一.基础知识 1.MySQL-python的安装下载,然后 pip install 安装包 2.python编写通用数据库程序的API规范 (1).数据库连接对象 connection,建立python客户端与数据库的网络连接,创建方法为 MySQLdb.Connect(参数) 参数有六个: host(MySQL服务器地址,一般本地为127.0.0.1) port(MySQL服务器端口号) user(用户名)

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

相关推荐

随机推荐