双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

asp 代码和模板分离方法?

2008-06-19 05:46:50 363 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

BLAYD 墨衍会员 · AI 创作全网分发关注 + 加入社区

TYPE-C接口电路设计篇（一）常见USB接口类型随着USB Type-C接口的推行，USB Type-C是一种通用串行总线（USB）的硬件接口形式，USB Type-C接口在消费类产品普及程度越来越高，常见的适配器、笔电、手机等产品都兼容USB Type-C设计，接口多元化逐渐趋向归一，从而可以看出USB Type-C的重要性。在了解USB Type-C接口之前，我们先来回顾下USB Type-A和USB Type-B接口，USB3.0 Type-A和Type-B接口定义分别如下。 USB 3.0... 阅读详情

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

...全文

用友U8库龄分析避坑指南：物料出入库日期计算的5个常见错误本文深入剖析了在用友U8系统中进行库龄分析时，物料出入库日期计算的五个常见陷阱。从数据源选择、业务类型过滤、计价方式逻辑、期初数据处理到查询性能优化，逐一解析错误根源并提供避坑指南，帮助企业获得准确的库龄数据，有效管理库存与资金风险。阅读详情

BLAYD

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

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

打赏
举报

还是没有人回答啊？再等等吧！！

bhtfg538 2008-06-20

打赏
举报

动网用的组件吧代码封装起来了
用 vb 开发工具在里面嵌入
在实例的时候就
set a=createobject("")

BLAYD 2008-06-20

打赏
举报

还有没有其他的方法啊? 动网用的是什么方法啊？我看了一下他好像是用XSLT

Mapleleaf123 2008-06-20

打赏
举报

replace(template,"$replacecode",docode)

就是replace多点啦

BLAYD 2008-06-20

打赏
举报

就是ASP网站开发中，代码和模块分离怎么做？

BLAYD 2008-06-20

打赏
举报

好像不是用的组件吧。

Linzhe423 2008-06-19

打赏
举报

你要的是什么,不明白

BLAYD 2008-06-19

打赏
举报

怎么没有人回答啊？自己先顶一下先

✦双11狂欢大促✦

asp 代码和模板分离方法?

相关推荐

双11狂欢大促