功能不错的asp模板类代码附下载- ASP

当前位置: 首页 > 图文教程 > 网络编程 > ASP > 功能不错的asp模板类代码附下载

ASP: 构建你的网站新闻自动发布系统之三; 构建你的网站新闻自动发布系统之四; 如何用ASP编写网站统计系统一; 如何用ASP编写网站统计系统二; 如何用ASP编写网站统计系统三; 如何用ASP编写网站统计系统四; ASP Error 0115的一些解决办法; ASP 3.0 新特色先睹为快（一）; ASP 3.0 新特色先睹为快（二）; ASP主件中的安全问题; 一个汉字转成拼音的代码; 使用w3Sockets组件实现域名查询功能; ASP中实现文件上传方法的研究; 构建免受FSO组件威胁虚拟主机; 用XMLHTTP做一个自己特色的Google; 用asp实现的代码批量修改程序; 无组件的数据库的备份与还原; 用ASPJPEG组件制作图片的缩略图和加水印; 解密ASP源代码; XmlHttp异步获取网站数据的例子

No. « ‹ 192 193 194 195 › »

技术文章搜索

关键字

ASP 中的功能不错的asp模板类代码附下载

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-12 浏览: 273 ::

收藏到网摘: n/a

Asp无组件生成缩略图的代码不用WinRar只有asp将网络空间上的文件打包下载

在工作中，因为要用模板类，在网上找了个asp模板类，用着挺好了。完工后也按别人的思路写了模板类，这个模板类没在设计的项目中应用，只是练练笔，所以只写了简单的几个demo,有没有bug还不清楚，欢迎大家测试，指教，帮忙完善。此类支持循环替换，支持嵌套循环替换，支持多模板。
类的代码就不贴不来啰嗦了，在后面有下载，只贴出demo的代码。
一、模板只有一个循环块
模板文件主要代码
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>{myname}模板-{webName}</title>
</head>
<body>
<table width="500" border="0" cellspacing="0" cellpadding="0">

<tr>
<td width="50" height="30">第一列</td>
<td width="50" height="30">{tpl_1}</td>
<td width="50" height="30">{tpl_2}</td>
</tr>

</table>
</body>
替换模板的代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
response.Charset="utf-8"
set newTpl=new tpl
newTpl.setTpl="tpl.html"
newTpl.setVar "myname","一个块循环的"
newTpl.setVar "webName","亮亮的博客"
newTpl.setBlock="a_block"
for tt=0 to 2
newTpl.setBloVar "tpl_1","第二列_"&tt
newTpl.setBloVar "tpl_2","第三列_"&tt
newTpl.outBloVar
next
newTpl.outBlock "a_block"
newTpl.out
set newTpl=nothing
%>
在工作中，因为要用模板类，在网上找了个asp模板类，用着挺好了。完工后也按别人的思路写了模板类，这个模板类没在设计的项目中应用，只是练练笔，所以只写了简单的几个demo,有没有bug还不清楚，欢迎大家测试，指教，帮忙完善。
二、两个块循环，并且在一个模板中加载另一个模板
主模板文件主要代码
<title>{myname}模板-{webName}</title>
</head>
<body>
<table cellspacing="2" border="1">
<tr><td>下面的动物您喜欢哪一种</td></tr>

<tr><td><input type="radio" name="chk">{animal}</td></tr>
<tr bgcolor="#3366FF"><td height="10"></td>
</tr>


<tr><td><input type="radio" name="chk">{animal2}</td></tr>
<tr bgcolor="#3366FF"><td height="10"></td>
</tr>

<tr><td colspan="2">{PageNo}</td></tr>
</table>
</body>
副模板文件主要代码
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30">这是嵌套进来的模板</td>
</tr>
<tr>
<td height="30">{inStr} </td>
</tr>
</table>
替换模板的代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
response.Charset="utf-8"
set newTpl=new tpl
newTpl.setTpl="tpl2.html"
newTpl.setVar "myname","两个块循环/嵌套的"
newTpl.setVar "webName","亮亮的博客"
newTpl.setBlock="list1"
for i=0 to 2
newTpl.setBloVar "animal","animal"&i
newTpl.outBloVar
next
newTpl.outBlock "list1"
newTpl.setBlock="list2"
for m=0 to 2
newTpl.setBloVar "animal2","动物"&m
newTpl.outBloVar
next
newTpl.outBlock "list2"
'加载副模板
newTpl.setVarTpl "PageNo","inTpl.html"
'替换副模板中的内容
newTpl.setBlock="inList"
for k=0 to 3
newTpl.setBloVar "inStr","menu"&k
newTpl.outBloVar
next
newTpl.outBlock "inList"
newTpl.out
set newTpl=nothing
%>
在工作中，因为要用模板类，在网上找了个asp模板类，用着挺好了。完工后也按别人的思路写了模板类，这个模板类没在设计的项目中应用，只是练练笔，所以只写了简单的几个demo,有没有bug还不清楚，欢迎大家测试，指教，帮忙完善。
三、块里有嵌套的循环
模板文件主要代码
<title>{myname}模板-{webName}</title>
</head>
<body>
<table width="400" border="1" bordercolor="#000000">
<tr><td><div align="center">{myname}测试</div></td></tr>
<tr><td>动物:</td> </tr>

<tr><td>{animal}</td></tr>

<tr><td> {plant}_{num}</td></tr>

<tr><td> {plant2}</td></tr>



</table>
</body>
替换模板文件的代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
response.Charset="utf-8"
set newTpl=new tpl
newTpl.setTpl="tpl3.html"
newTpl.setVar "myname","嵌套循环的"
newTpl.setVar "webName","亮亮的博客"
newTpl.setBlock="list"
for i=0 to 2
newTpl.setBloVar "animal","动物大类"&i
newTpl.outBloVar
newTpl.setBlock="list_1"
for m=0 to 2
newTpl.setBloVar "plant","动物类"
newTpl.setBloVar "num",m
newTpl.outBloVar
newTpl.setBlock="list_1_1"
for k=0 to 1
newTpl.setBloVar "plant2","动物"&k
newTpl.outBloVar
next
newTpl.outInBlock "list_1","list_1_1"
newTpl.resetBlock="list_1"
next
newTpl.outInBlock "list","list_1"
'注意resetBlock的使用
newTpl.resetBlock="list"
next
newTpl.outBlock "list"
newTpl.out
set newTpl=nothing
%>
注意resetBlock使用的地方，在块里还有循环的时候，在next之前用这个方法。
在工作中，因为要用模板类，在网上找了个asp模板类，用着挺好了。完工后也按别人的思路写了模板类，这个模板类没在设计的项目中应用，只是练练笔，所以只写了简单的几个demo,有没有bug还不清楚，欢迎大家测试，指教，帮忙完善。
四、模板里有循环块没有单变量
模板文件主要代码
<title>模板-{webName}</title>
</head>
<body>
<table width="400" border="1" bordercolor="#000000">
<tr><td><div align="center">{myname}测试</div></td></tr>
<tr><td>看看测试</td> </tr>

<tr><td>{animal}</td></tr>

<tr><td>  {plant} </td></tr>

<tr><td>{animal2}</td></tr>

<tr><td><div align="center">{myname2}</div></td></tr>
</table>
</body>
注意在list_1块中没有像在list块中的animal这样的要替换的单变量
替换模板的代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
response.Charset="utf-8"
set newTpl=new tpl
newTpl.setTpl="tpl4.html"
newTpl.setVar "myname","有一个块没有变量要替换的嵌套循环的"
newTpl.setVar "webName","亮亮的博客"
newTpl.setBlock="list"
for i=0 to 2
newTpl.setBloVar "animal","动物类别_"&i
newTpl.setBloVar "animal2","动物类别_"&i&"结束"
newTpl.outBloVar
newTpl.setBlock="list_1"
for m=0 to 2
'list_1块里没有单变量要替换也要执行setBloVar和outBloVar,参数用空代替
newTpl.setBloVar "",""
newTpl.outBloVar
newTpl.setBlock="list_1_1"
for k=0 to 1
newTpl.setBloVar "plant","动物"&k
newTpl.outBloVar
next
newTpl.outInBlock "list_1","list_1_1"
newTpl.resetBlock="list_1"
next
newTpl.outInBlock "list","list_1"
newTpl.resetBlock="list"
next
newTpl.outBlock "list"
newTpl.setVar "myname2","测试结束"
newTpl.out
set newTpl=nothing
%>
最后介绍一下类里的主要方法
newTpl.setTpl="tpl.html" 设置主要模板文件
newTpl.setVar "myname","一个块循环的" 替换模板文件中块之外的变量
newTpl.setVarTpl "PageNo","inTpl.html" 用副模板文件替换单变量即加载副模板
newTpl.setBloVar "tpl_2","第三列_"&tt 替换块里的变量
newTpl.outBloVar 输入块里所有替换后的内容
newTpl.setBlock="a_block" 设置循环快
newTpl.outBlock "a_block" 输出循环块
newTpl.out 输出所有
newTpl.resetBlock="list" 这是个比较特殊的，若list块里还有要循环的块，在循环list块的代码的next之前要用它。

asp_tplClass.rar

Asp无组件生成缩略图的代码不用WinRar只有asp将网络空间上的文件打包下载

ASP 中的 功能不错的asp模板类代码附下载

评论 (0) All

ASP 中的功能不错的asp模板类代码附下载