使用模板实现ASP代码与页面分离

使用模板实现ASP代码与页面分离

  每个进行过较大型的ASP-Web应用程序设计的开发人员大概都有如下的经历:ASP代码与页面HTML混淆难分,业务逻辑与显示方式绞合,使得代码难以理解、难以修改;程序编写必须在美工之后,成为项目瓶颈;整合的程序代码和HTML静态页面时,花费大量的时间才能得到理想的效果,兼作了美工。的确,用脚本语言开发Web应用不容易将数据的处理和数据的显示分开,但在多人合作的情况下,如果无法将数据和显示分开,将大大影响开发的效率,专业分工的发挥。
  其它的脚本语言,如JSP、PHP都有自己的解决方案,ASP的后一代产品ASP.NET也实现了代码与页面,似乎直接过渡到ASP是不错的选择。但是总有这样或那样的原因让我们不能或暂时不能放弃ASP直奔.NET大营。从公司角度来看,转换语言是一笔不少的投资,包括雇佣熟手.NET程序员、培训原有程序员、开发工具的转型、开发风格的转型、界面风格转变、接口风格、软件架构、文档、开发流程等等;这还意味着原有的代码必须在新语言环境里重写以实现最佳的效果和稳定性;同时将直接影响这段时间内项目的进度,更有可能导致个别程序员出走。由此看来在您决定转换语言之前,在原基础上寻求一种解决方案,才是最好的选择。
  PHP通过模板实现代码与页面,可供选择的有FastTemplate、PHPLIB、Smarty等多种,其中PHPLIB的影响最大、使用最多。既然如此,我们直接把它搬到ASP来,对于同时使用PHP和ASP的公司还有很有好处:一、美工处理页面时,不管将要套用PHP还是ASP,处理方式是一样,无须经过培训;二、程序员编写代码时,两种语言间的思路接近或一致,相同功能在两种语言实现时,只需拷贝过来略作修改即可,保证了工作效率和项目进度。

1、模板类的设计
  实现代码封装成为模板类,即是为了与PHPLIB兼容,也使得代码方便管理与扩展。
  模板类要实现的目标为:从模板文件中读入显示的HTML代码,将这些显示代码中需要动态数据的地方替换为ASP程序运算所得出的数据,然后按照一定的顺序输出。其中,替换的部分可以自由的设定。因此它必须完成如下任务:
    ·从模板文件中读取显示用的HTML代码。
    ·将模板文件和实际生成的数据结合,生成输出的结果。
    ·允许同时处理多个模板。
    ·允许模板的嵌套。
    ·允许对模板中的某个单独的部分进行处理。

实现方法:
    采用FSO读取模板文件
    采用正则替换实现模板文件和数据的结合
    处理多个模板用数组存储来实现。
    模板的嵌套的实现主要的想法是:将模板和输出(任何中间的分析结果)一视同仁,都可拿来做替换,即可实现。
    单独部分的处理的通过在模板文件中设定标注,然后在正则替换中结合标注来控制,实现部分替换。

2、模板类的实现
  给出具体代码之前,先把主要函数列出,用过PHPLIB的朋友应该对此很熟悉了:
  1)Public Sub set_root(ByVal Value) 设定模板默认目录
  2)Public Sub set_file(ByVal handle,ByVal  filename) 读取文件
  3)Public Sub set_var(ByVal Name, ByVal Value, ByVal Append) 设置映射数据-替换变量
  4)Public Sub unset_var(ByVal Name) 取消数据映射
  5)Public Sub set_block(ByVal Parent, ByVal BlockTag, ByVal Name) 设置数据块
  6)Public Sub set_unknowns(ByVal unknowns) 设定未指定映射的标记处理方式
  7)Public Sub parse(ByVal Name, ByVal BlockTag, ByVal Append) 执行模板文件与数据的结合
  8)Public Sub p(ByVal Name) 输出处理结果

实现代码:
<%
'================================================================
' CLASS NAME:  kktTemplate ASP页面模板对象
' DESIGN BY :     彭国辉
' DATE:                 2004-07-05
' WEBSITE:         
http://kacarton.yeah.net/
' BLOG:                http://blog.csdn.net/nhconch
' EMAIL:              kacarton@sohu.com
'
' 本对象中使用了set_var、set_block等命名方法是为了兼容phplib
'文章为作者原创,转载前请先与本人联系,转载请注明文章出处、保留作者信息,谢谢支持!
'================================================================

Class kktTemplate
   
    Private m_FileName, m_Root, m_Unknowns, m_LastError, m_HaltOnErr
    Private m_ValueList, m_BlockList
    Private m_RegExp   
    ' 构造函数
    Private Sub Class_Initialize
        Set m_ValueList     = CreateObject("Scripting.Dictionary")
        Set m_BlockList     = CreateObject("Scripting.Dictionary")
        set m_RegExp        = New RegExp
        m_RegExp.IgnoreCase = True
        m_RegExp.Global     = True
        m_FileName          = ""
        m_Root              = ""
        m_Unknowns          = "remove"
        m_LastError         = ""
        m_HaltOnErr         = true
    End Sub
   
    ' 析构函数
    Private Sub Class_Terminate
        Set m_RegExp       = Nothing
        Set m_BlockMatches = Nothing
        Set m_ValueMatches = nothing
    End Sub
   
    Public Property Get ClassName()
        ClassName = "kktTemplate"
    End Property
   
    Public Property Get Version()
        Version = "1.0"
    End Property
   
    Public Sub About()
        Response.Write("kktTemplate ASP页面模板类<br>" & vbCrLf &_
                       "程序设计:彭国辉 2004-07-05<br>" & vbCrLf &_
                       "个人网站:<a href='http://kacarton.yeah.net'>http://kacarton.yeah.net</a><br>" & vbCrLf &_
                       "电子邮件:<a href='mailto:kacarton@sohu.com'>kacarton@sohu.com</a><br>")
    End Sub
   
    '检查目录是否存在
    Public Function FolderExist(ByVal path)
        Dim fso
        Set fso = CreateObject("Scripting.FileSystemObject")
        FolderExist = fso.FolderExists(Server.MapPath(path))
        Set fso = Nothing
    End Function
    '读取文件内容
    Private Function LoadFile()
        Dim Filename, fso, hndFile
        Filename = m_Root
        If Right(Filename, 1)<>"/" And Right(Filename, 1)<>"/" Then Filename = Filename & "/"
        Filename = Server.MapPath(Filename & m_FileName)
        Set fso = CreateObject("Scripting.FileSystemObject")
        If Not fso.FileExists(Filename) Then ShowError("模板文件" & m_FileName & "不存在!")
        set hndFile = fso.OpenTextFile(Filename)
        LoadFile = hndFile.ReadAll
        Set hndFile = Nothing
        Set fso = Nothing
        If LoadFile = "" Then ShowError("不能读取模板文件" & m_FileName & "或文件为空!")
    End Function
   
    '处理错误信息
    Private Sub ShowError(ByVal msg)
        m_LastError = msg
        Response.Write "<font color=red style='font-size;14px'><b>模板错误:" & msg & "</b></font><br>"
        If m_HaltOnErr Then Response.End
    End Sub
   
    '设置模板文件默认目录
    'Ex: kktTemplate.set_root("/tmplate")
    '    kktTemplate.Root = "/tmplate"
    '    root = kktTemplate.get_root()
    '    root = kktTemplate.Root
    '使用类似set_root这样的命名方法是为了兼容phplib,以下将不再重复说明

    Public Sub set_root(ByVal Value)
        If Not FolderExist(Value) Then ShowError(Value & "不是有效目录或目录不存在!")
        m_Root = Value
    End Sub
    Public Function get_root()
        get_root = m_Root
    End Function
    Public Property Let Root(ByVal Value)
        set_root(Value)
    End Property
    Public Property Get Root()
        Root = m_Root
    End Property
   
    '设置模板文件
    'Ex: kktTemplate.set_file("hndTpl", "index.htm")
    '本类不支持多模板文件,handle为兼容phplib而保留

    Public Sub set_file(ByVal handle,ByVal  filename)
        m_FileName = filename
        m_BlockList.Add Handle, LoadFile()
    End Sub
    Public Function get_file()
        get_file = m_FileName
    End Function
'     Public Property Let File(handle, filename)
'         set_file handle, filename
'     End Property
'     Public Property Get File()
'         File = m_FileName
'     End Property
   
    '设置对未指定的标记的处理方式,有keep、remove、comment三种

    Public Sub set_unknowns(ByVal unknowns)
        m_Unknowns = unknowns
    End Sub
    Public Function get_unknowns()
        get_unknowns = m_Unknowns
    End Function
    Public Property Let Unknowns(ByVal unknown)
        m_Unknowns = unknown
    End Property
    Public Property Get Unknowns()
        Unknowns = m_Unknowns
    End Property
   
    Public Sub set_block(ByVal Parent, ByVal BlockTag, ByVal Name)
        Dim Matches
        m_RegExp.Pattern = "<!--/s+BEGIN " & BlockTag & "/s+-->([/s/S.]*)<!--/s+END " & BlockTag & "/s+-->"
        If Not m_BlockList.Exists(Parent) Then ShowError("未指定的块标记" & Parent)
        set Matches = m_RegExp.Execute(m_BlockList.Item(Parent))
        For Each Match In Matches
            m_BlockList.Add BlockTag, Match.SubMatches(0)
            m_BlockList.Item(Parent) = Replace(m_BlockList.Item(Parent), Match.Value, "{" & Name & "}")
        Next
        set Matches = nothing
    End Sub
   
    Public Sub set_var(ByVal Name, ByVal Value, ByVal Append)
        Dim Val
        If IsNull(Value) Then Val = "" Else Val = Value
        If m_ValueList.Exists(Name) Then
            If Append Then m_ValueList.Item(Name) = m_ValueList.Item(Name) & Val _
            Else m_ValueList.Item(Name) = Val
        Else
            m_ValueList.Add Name, Value
        End If
    End Sub
   
    Public Sub unset_var(ByVal Name)
        If m_ValueList.Exists(Name) Then m_ValueList.Remove(Name)
    End Sub
   
    Private Function InstanceValue(ByVal BlockTag)
        Dim keys, i
        InstanceValue = m_BlockList.Item(BlockTag)
        keys = m_ValueList.Keys
        For i=0 To m_ValueList.Count-1
            InstanceValue = Replace(InstanceValue, "{" & keys(i) & "}", m_ValueList.Item(keys(i)))
        Next
    End Function
   
    Public Sub parse(ByVal Name, ByVal BlockTag, ByVal Append)
        If Not m_BlockList.Exists(BlockTag) Then ShowError("未指定的 块标记" & Parent)
        If m_ValueList.Exists(Name) Then
            If Append Then m_ValueList.Item(Name) = m_ValueList.Item(Name) & InstanceValue(BlockTag) _
            Else m_ValueList.Item(Name) = InstanceValue(BlockTag)
        Else
            m_ValueList.Add Name, InstanceValue(BlockTag)
        End If
    End Sub
   
    Private Function finish(ByVal content)
        Select Case m_Unknowns
            Case "keep" finish = content
            Case "remove"
                m_RegExp.Pattern = "/{[^ /t/r/n}]+/}"
                finish = m_RegExp.Replace(content, "")
            Case "comment"
                m_RegExp.Pattern = "/{([^ /t/r/n}]+)/}"
                finish = m_RegExp.Replace(content, "<!-- Template Variable $1 undefined -->")
            Case Else finish = content
        End Select
    End Function
   
    Public Sub p(ByVal Name)
        If Not m_ValueList.Exists(Name) Then ShowError("不存在的标记" & Name)
        Response.Write(finish(m_ValueList.Item(Name)))
    End Sub
End Class
%>

3、使用例子
  下面举三个例子进行说明。
1)简单的值替换
模板文件为myTemple.tpl,内容:
<html><title>ASP模板简单替换</title><body>
祝贺!你赢了一辆{some_color}法拉利!
</body>

下面是ASP代码(kktTemplate.inc.asp就是上面给出的模板类):
<!--#INCLUDE VIRTUAL="kktTemplate.inc.asp"-->
<%
dim my_color, kkt
my_color = "红色的"
set kkt = new kktTemplate                 '创建模板对象
kkt.set_file "hndKktTemp", "myTemple.tpl" '设置并读取模板文件myTemple.tpl
kkt.set_var "some_color", my_color, false '设置模板变量 some_color = my_color的值
kkt.parse "out", "hndKktTemp", false      '模板变量 out = 处理后的文件
kkt.p "out"                               '输出out的内容
set kkt = nothing                         '销毁模板对象
%>

执行后输出为:
<html><title>ASP模板简单替换</title><body>
祝贺!你赢了一辆红色的法拉利!
</body>


2)循环块演示例子
模板文件myTemple2.tpl:
<html><title>ASP模板-块的演示</title><body>
<table cellspacing="2" border="1"><tr><td>下面的动物您喜欢哪一种</td></tr>
<!-- BEGIN AnimalList -->
<tr><td><input type="radio" name="chk">{animal}</td></tr>
<!-- END AnimalList -->
</table>
</body>

ASP代码:
<!--#INCLUDE VIRTUAL="kktTemplate.inc.asp"-->
<%
dim animal, kkt, i
animal = Array("小猪","小狗","小强")
set kkt = new kktTemplate
kkt.set_file "hndKktTemp", "myTemple2.tpl"
kkt.set_block "hndKktTemp", "AnimalList", "list"
for i=0 to UBound(animal)
    kkt.set_var "animal", animal(i), false
    kkt.parse "list", "AnimalList", true
next
kkt.parse "out", "hndKktTemp", false
kkt.p "out"
set kkt = nothing
%>
 
执行结果:
<html><title>ASP模板-块的演示</title><body>
<table cellspacing="2" border="1"><tr><td>下面的动物您喜欢哪一种</td></tr>
<tr><td><input type="radio" name="chk">小猪</td></tr>
<tr><td><input type="radio" name="chk">小狗</td></tr>
<tr><td><input type="radio" name="chk">小强</td></tr>
</table>
</body>

                                       

3)嵌套块演示
模板文件myTemple3.tpl:
<html><title>ASP模板-嵌套块演示</title>
<body><table width="400" border="1" bordercolor="#000000">
  <tr><td><div align="center">{myname}测试</div></td></tr>
  <tr><td>我的动植物园:</td> </tr>
<!-- BEGIN animalList -->
  <tr><td>{animal}</td></tr>
  <!-- BEGIN plantList -->
    <tr><td>&nbsp;&nbsp;{plant}</td></tr>
  <!-- END plantList -->
<!-- END animalList -->
</table>
</body>
</html>

ASP代码:
<!--#INCLUDE VIRTUAL="kktTemplate.inc.asp"-->
<%
dim my_color, kkt, myname, animal, plant
set kkt = new kktTemplate
myname = "kktTemplate block test..."
animal = array("动物", "植物")
plant  = array(array("小猪","小白","小强"), array("玫瑰","向日葵"))

kkt.set_file "hndKktTemp", "myTemple3.tpl"
kkt.set_var "myname", myname, false
kkt.set_block "hndKktTemp", "animalList", "a"
kkt.set_block "animalList", "plantList", "p"

for i=0 to UBound(animal)
   kkt.set_var "animal", animal(i), False
   kkt.unset_var "p" 
   'kkt.set_var "p", "", false
   for j=0 to UBound(plant(i))
        kkt.set_var "plant", plant(i)(j), false
        kkt.parse "p", "plantList", true
   next
   kkt.parse "a", "animalList", true
next
kkt.parse "out", "hndKktTemp", false
kkt.p "out"
%>

执行结果:
<html><title>ASP模板-嵌套块演示</title>
<body><table width="400" border="1" bordercolor="#000000">
  <tr><td><div align="center">kktTemplate block test...测试</div></td></tr>
  <tr><td>我的动植物园:</td> </tr>
  <tr><td>动物</td></tr>
    <tr><td>&nbsp;&nbsp;小猪</td></tr>
    <tr><td>&nbsp;&nbsp;小白</td></tr>
    <tr><td>&nbsp;&nbsp;小强</td></tr>
  <tr><td>植物</td></tr>
    <tr><td>&nbsp;&nbsp;玫瑰</td></tr>
    <tr><td>&nbsp;&nbsp;向日葵</td></tr>
</table>
</body>
</html>


本文提及的所有代码可从此处下载:http://www.freewebs.com/kacarton/web/kktTemplate.rar(3.53K)


4、小结
  本文主要介绍了基于ASP利用模板类实现代码与页面分离的方法,当然还有其它更好的解决方案。本文旨在抛砖引玉各位读者、WEB开发参与进来,多提宝贵意见,多作交流,共同进步!

 



本文引用通告地址: http://blog.csdn.net/nhconch/services/trackbacks/38683.aspx
[
点击此处收藏本文 ]
发表于 2004年07月10日 7:23 PM
href="http://blog.csdn.net/nhconch/Services/Pingback.aspx" rel="pingback"/> <script src="http://judge.csdn.net/blog/BlogJudgeShow.aspx?BlogID=38683&Encoding=UTF-8&CurrPage=http://blog.csdn.net/nhconch/archive/2004/07/10/38683.aspx" type="text/javascript"> </script>

需要   登录  才可以评价。       

tower6 发表于 2004-07-12 8:49 AM  
这样的东西,老早就有,基于VBScript的我也做过一个
大家可以切磋切磋,呵呵


天蝎蝴蝶 发表于 2004-07-12 2:09 PM  
后面还有两篇文章

雪冬寒 发表于 2004-07-12 3:47 PM  
不错,确实值得学习!
天蝎蝴蝶 提到的后面两篇?在哪里?

grief 发表于 2004-07-13 9:00 AM  
看了这篇文章,正想实践一次。

aspboy 发表于 2004-07-14 8:55 AM  
不错不错,但是请问大哥,模板文件是不是必须放在根目录,如何设置模办文件的路径,谢谢!!

天蝎蝴蝶 发表于 2004-07-14 1:44 PM  
kktTemplate.set_root("/tmplate")
kktTemplate.Root = "/tmplate"
可以设为kktTemplate.set_root(".")表示当前目录

天蝎蝴蝶 发表于 2004-07-16 12:01 PM  
雪冬寒 问的“后面两篇”中第一篇已经发布了 http://blog.csdn.net/nhconch/archive/2004/07/16/42869.aspx
另一篇也差不多了。

啊啊啊 发表于 2004-07-27 4:20 PM  
执行效率怎么样?

闲人 发表于 2004-07-28 1:12 AM  
为什么我在试验的时候告诉我找不到模板文件呢,我机器机器FSO,是不是路径不对这样的问题呢?
====
模板错误:模板文件index_tpl.htm不存在!

他们在同一目录

阿惠 发表于 2004-07-28 6:13 PM  
请问站长,我想把这个类处理后的html代码赋给一个变量应该怎样做啊?

梦醒婴儿 发表于 2004-07-28 9:35 PM  
老兄的代码对null的处理不是很强壮,如replace之前,可是数据库出来的内容经常是null


天蝎蝴蝶 发表于 2004-07-29 8:09 AM  
To 闲人:您可以设置显式设置模板路径,上面有例子,如果你不是从连接中下载演示代码的,请将Private Sub Class_Initialize中的m_Root=""改为m_Root="."

天蝎蝴蝶 发表于 2004-07-29 8:16 AM  
To 阿惠:<br> 要取得处理后的HTML代码先在类中增加一个函数:<br>
Public function get_var(ByVal Name)<br>
If Not m_ValueList.Exists(Name) Then ShowError("不存在的标记" & Name)<br>
get_var = finish(m_ValueList.Item(Name))<br>
End function<br>
<br>
然后调用kktTemplate.get_var("标记名")<br>
不过我在实际使用并不存在这种需要。

天蝎蝴蝶 发表于 2004-07-29 8:19 AM  
不好意思,上面有点乱,请将<br>去掉。

To 梦醒婴儿:
上面有对null的处理,请将你测试代码发给我Email:kacarton@sohu.com

梦醒婴儿 发表于 2004-07-29 10:11 AM  
测试代码就是实际项目不好发,我可以告诉你出问题的代码在InstanceValue

而且有时候还出未知错误,未知错误也出在replace语句,我也没有好好读你的代码,现在正象下面这样对付着呢,呵呵,如果这样有什么致命的问题告诉我一下。多谢



Private Function InstanceValue(ByVal BlockTag)
Dim keys, i
on error resume next
InstanceValue = m_BlockList.Item(BlockTag)
keys = m_ValueList.Keys
For i=0 To m_ValueList.Count-1
if isnull(InstanceValue) then InstanceValue=""
if isnull(keys(i)) then keys(i)=""
if isnull(m_ValueList.Item(keys(i))) then m_ValueList.Item(keys(i))=""
InstanceValue = Replace(InstanceValue, "{" & keys(i) & "}", m_ValueList.Item(keys(i)))
Next
on error goto 0
End Function

另外源码中有两处变量未定义。

梦醒婴儿 发表于 2004-07-29 10:14 AM  
用双引号的地方有两种:第一,数据库中某记录值有双引号。 第二,我需要传一个链接<a href="javascript:...">xxx</a>过去,连接中可能会用到双引号。


阿惠 发表于 2004-07-29 1:16 PM  
我觉得使用模板将代码分离很有用处的,如果做新闻系统用这个模板类将模板文件读入,然后将动态的程序内容替换后再生成静态页面保存起来,这样直接访问静态页面应该会提高服务器的访问性能,不知我的想法是不是有实际意义:)

阿惠 发表于 2004-07-29 1:17 PM  
另外我已经用站长的方法实现了我的想法,谢谢站长嘞:)

梦醒婴儿 发表于 2004-07-29 3:30 PM  
请问这个方法对数据量有没有限制,如果循环中的数据量过大,替换的时候会不会抱错,多大会报错。

天蝎蝴蝶 发表于 2004-07-29 4:05 PM  
非常感谢您选用kktTemplate并提出问题!

1、关于null的问题,我再详细检查一下。

2、关于双引号问题,
1.HTML标记中不建议采用特殊符号(比如:{"MyTag--}等等),建议使用常规符号如{MyTag};
2.如果要将模板标记替换为带双引号的内容,实际上是ASP字串的表示问题,ASP中可用两个双引号表示,如kktTemplate.set_var "MyTag", "<a href=""javascript:..."">xxx</a>", false

3、关于数据量的限制,暂没发现,若说有限制的话,就是来自ASP字符串的最大长度限制和Scripting.Dictionary目录对的最大数目。

天蝎蝴蝶 发表于 2004-07-29 4:08 PM  
您想法很好,很有用处!
不用谢!

inelm(木野狐) 发表于 2004-08-15 9:08 AM  
你好!
你的模板类设计的很好,以前我有和你类似的想法,但由于对 php 的模板知识了解不够,一直没有付诸实施。

在你的示例中,我发现了一个小问题,不知道能否有好的办法解决。

sample2.asp 输出了一组 radio 标签, 但是发现没有设置默认值, 而一般程序中 radio 总是设置一个默认值的, 因为这样做可以避免表单提交的时候做不必要的验证。

天蝎蝴蝶 发表于 2004-08-15 2:17 PM  
实现(Radio、CheckBox、Select)默认值可通过在页面增加一个标记,程序里判断指定条件满足时把它替换为"Checked",下面以Radio为例,CheckBox、Select类似:
·页面中
<tr><td><input type="radio" name="chk" {chked}>{animal}</td></tr>
·程序中
for i=0 to UBound(animal)
.....
if (...条件...) then kkt.set_var "chked", "checked", false
.....
kkt.parse "list", "AnimalList", true
next


tegger 发表于 2004-08-28 12:18 PM  
实测之后,发现运行效率太低了比正常的编程方式慢3-4倍,玩玩还可以,真在实际项目中是没法用的.不知道有没有更好的方法

天蝎蝴蝶 发表于 2004-08-29 7:54 AM  
1、生成静态页面。上面的function get_var(ByVal Name)可以实现,或你自己编码实现。

2、利用Windows原生程序编写服务器组件,实现页面与代码分离,以弥补ASP在速度上的不足。

3、参考PHP的Smarty写一个带编译功能的类。

从浏览速度上1最快,2次之,3再次之。

piggybank 发表于 2004-11-12 5:20 PM  
呵呵,set_Var 这样的用法其实用下来和采用SSI,并在“模板”文件中相应位置用<%=MyName%>有多大区别?

另,ASP3.0的速度已经很不错了,是否编译成组件并不是问题的关键。
其实代码与页面分离的最好原则,同时也是目的是:代码只负责产生数据,模板负责决定版式(布局)和风格。
那么,从技术上说,代码如果只产生如 XML 数据(或数据流),然后再用XSL来合成呢?之后就是两种具体方式:
1、通过服务器端XSLT来产生结果(静态)HTML页面
2、通过IE5.0以上版本浏览器来对XML套上XSL并呈现解析结果
至于前者后者的分别,用任何具体技术方式实现的模板方式都一样。

这不是什么新问题,http://www.enet.com.cn等所采用的CMS中,三、四年前就已经用XML+XSL解决这一问题了。这些应用中,无非当虑到浏览器兼容(IE5.0+的普及现在已经不是大问题)及服务器端动态Transform的负载,选择了服务器端合成较多。

钱==女。NET 发表于 2004-12-05 11:42 AM  
不错。。学习中。

faps 发表于 2004-12-19 7:42 PM  
近日使用您的KKT模板类时发生一错误:

在win2k terminal, iis5, 支持fso, vbscript.dll版本:5.1.0.7426环境下执行到:
tpl.set_block "main","data_list","data_lists"
tpl.set_var "main_title" , "资料" ,0
时出错,错误信息如下:

Microsoft VBScript 运行时错误 错误 '800a01b6'
对象不支持此属性或方法: 'Match.SubMatches'
C:/INETPUB/../inc/inc.kkt.asp,行139

注释掉 set_block 这行却能正常运行tpl.set_var

没有修改过kkt模板类,我已确定不是由于 模板中没有设置块或fso对象引起的问题.

看过文章说6???以上版本就能正常使用 regexp对象.不知道是不是由于vbscript.dll版本问题引起的.

如果您知道原因请告之,万分感激~!

天蝎蝴蝶 发表于 2004-12-19 9:57 PM  
是版本问题,请升级系统并安装补丁

蓝天 发表于 2004-12-30 3:02 PM  
我使用这个这人类编写了一个站点,我本机上可以正常执行,可上传到服务器后显示:模板错误:未指定的块标记
这是怎么回事?该类的使用与操作系统有关吗?为什么在XP上可以执行,在NT上不能执行?请速回复,急!谢谢!

蓝在 发表于 2004-12-30 3:13 PM  
使用 set_var时,如果替换的值正好包含{}将无法替换,例如:kkt.set_var "animal","{动物}" , False
结果并不能被替换掉!
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值