|
主题:[求助]一个自己用asp编写标签的问题,请高手指点 [收藏主题] | 转到: |
示例二、自己写的页面也可以套用科汛的标签及页面模板化 如果自己写的代码希望能调用科汛的标签,则需要调用的文件有conn.asp、KS_Cls/Kesion.CommonCls.asp及KS_Cls/Kesion.Label.CommonCls.asp三个文件。 其中的KS_Cls/Kesion.Label.CommonCls.asp发挥标签解释的作用,调用该文件后可以解释{$,{LB,{SQL,{JS等开头的标签,看以下示例: 这里我们可以套用科汛的文件代码,如复制一份map.asp我们将其改成test2.asp,代码如下: <!--#include file="Conn.asp"--> <!--#include file="KS_Cls/Kesion.CommonCls.asp"--> <!--#include file="KS_Cls/Kesion.Label.CommonCls.asp"--> <% Dim KSCls Set KSCls = New Test KSCls.Kesion() Set KSCls = Nothing Class Test Private KS, KSR,Maps Private Sub Class_Initialize() If (Not Response.IsClientConnected)Then Response.Clear Response.End End If Set KS=New PublicCls Set KSR = New Refresh End Sub Private Sub Class_Terminate() Call CloseConn() Set KS=Nothing End Sub Public Sub Kesion() Dim FileContent Dim MapTemplatePath:MapTemplatePath=KS.Setting(3) & KS.Setting(90) & "test.html" '读取模板地址,模板放到在template目录下,文件名自取,但需要和这里的文件名一致! FileContent = KSR.LoadTemplate(MapTemplatePath) FileContent=Replace(FileContent,"{$自己的标签}", "这里写上自己的函数代码") FileContent=KSR.KSLabelReplaceAll(FileContent) ‘调用科汛的全站标签替换函数 response.write FileContent ‘最后输出内容 End Sub End Class %> 这是官方二次开发的一个示例文档,我试过,把 FileContent=Replace(FileContent,"{$自己的标签}", "这里写上自己的函数代码") 写成自己编写的没有参数的标签,应该是没有问题的,而且,在普通模板如首页模板中,用没有参数的标签,我也尝试成功 但如果自己写的标签中有参数,那怎么办,用replace替换时,把整个标签替换了,这样达不到在标签中传递参数的目的,科汛自己的那些标签都能传递参数,不知道这个怎么实现? 有知道的能清楚说一下吗 |
|
支持(25) | 反对(25) 顶端 底部 |
<上一主题 | 下一主题 > |