asp 代码和模板分离方法?

BLAYD 2008-06-19 05:46:50

asp 代码和模板分离方法?
谁有asp 代码和模板的类啊?

...全文

293 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

BLAYD 2008-06-23

打赏
举报

怎么没有人回答我的问题呢？大家帮帮忙啊！

BLAYD 2008-06-23

打赏
举报

谢谢wtogether 的回答，谁能发个类上来啊？

tantaiyizu 2008-06-23

打赏
举报

呵呵，看看这个，就是模板和逻辑代码分开的，你可以参考：
http://www.scriptlover.com/

redcn2004 2008-06-23

打赏
举报

[Quote=引用 10 楼 wtogether 的回复:]
模版统一保存到template目录下，而asp和html的文件名一一对应，例如：
index.asp对应template/index.html
reg.asp对应template/reg.html

下来看看如何使用template/index.html模版，假设index.html的内容为：
<html>
<head>
<title>$title </title>
</head>
<body>
$(Test, 1, 2)
</body>
</html>

然后在asp页面中，获取相应的模版，例如在index.asp中

<%
Di…
[/Quote]

此楼所说的正解

wtogether 2008-06-23

打赏
举报

基本原理就是如此了，如何优化、如何设计自己喜欢的标签及如何做成ASP通用类，就看个人的修行了，这个类我是有，不过是公司的代码，不方便公开

wtogether 2008-06-23

打赏
举报

模版统一保存到template目录下，而asp和html的文件名一一对应，例如：
index.asp对应template/index.html
reg.asp对应template/reg.html

下来看看如何使用template/index.html模版，假设index.html的内容为：
<html>
<head>
<title>$title</title>
</head>
<body>
$(Test, 1, 2)
</body>
</html>

然后在asp页面中，获取相应的模版，例如在index.asp中

<%
Dim strData, reg, arr, ptr
strData = [获取template/index.html的文本内容]
'处理$***变量标签
strData = Replace(strData, "$title", "标题")

'处理$(***, ***, ...)格式的函数标签
Set reg = New RegExp
reg.Global = True
reg.Pattern = "\$$([^$]+)\)"
Set arr = reg.Execute(strData)
For Each ptr In arr
strData = Replace(strData, ptr.Value, ASPCommand(ptr.SubMatches(0)))
Next
Set arr = Nothing
Set reg = Nothing

'输出解析后的模版
Response.Write strData

'将$(***, ***, ...)函数标签的$()包含的内容用Execute执行
Function ASPCommand(ByVal strData)
Dim arr1, arr2
Dim i
arr1 = Split(strData, ", ")
ReDim arr2(UBound(arr1) - 1)
For i = 1 To UBound(arr1)
arr2(i - 1) = "arr1(" & i & ")"
Next
'这里输出函数作调试用
'Response.Write "ASPCommand = " & arr1(0) & "(" & Join(arr2, ", ") & ")"
'这里执行函数
Execute "ASPCommand = " & arr1(0) & "(" & Join(arr2, ",") & ")"
End Function

'这个对应模版中的$(Test, 1, 2)函数标签
Function Test(a, b)
Test = a & " + " & b & " = " & (CInt(a) + CInt(b))
End Function
%>

BLAYD 2008-06-23