ASP自定义标签参数怎么实现替换??请高手指点
<%  
 Function RegReplace(Str,Pattern,StrReplace)
    Dim Reg
     Set Reg        = New RegExp
    Reg.IgnoreCase = True
    Reg.Global     = True
    Reg.Pattern    = Pattern
    'RegReplace     = Reg.Replace(Str,StrReplace)
    Set Matches = Reg.Execute(Str)
    For Each Match In Matches
           StrM = StrM & Match.Value & "|"
    Next
    StrM       = Replace(StrM,"#","")
    RegReplace = StrM
 End Function
 
 Str        = "dsfs#SMH_OK(1,3,4)#dsfsdsfs#SMHOK(1,3,4)#dsfsdsfs#SMH123(1,3,4)#dsfs<Font color=red>#SMH123(1,3,4)#</Font>"
 Pattern    = "#SMH[\w]+?\([\d\,]+?\)#"
 StrReplace = "<b>$1</b>"
 Response.Write RegReplace(Str,Pattern,StrReplace)
 
 Function SMH_OK(A,B,C)
 Str = A + B + C
 End Function
%>

下面的代码是什么？

Function SMH_OK(A,B,C)
SMH_OK = A + B + C
End Function
查找这样的函数..A,B,C分别代表形参..
然后用过滤把字符里面有这种标签的替换成自定义的函数....
然后返回结果...

我问的是，你给的代码是例程还是别的什么？

是例程

版主举个例子,,,我在上网找不到例子...
自己太笨了,,想不出来

我给你举个例子，动易公司的SiteWeaver系统，有源代码。

再举个例子，最近几天也是这个版面相同的问题我的回复。

https://bbs.bccn.net/viewthread.php?tid=223747

哦原来就是你问的，试试之后有什么心得？

不知道自定义标签是怎么实现括号里的形参...

终于知道怎么做了 ......
<%  
 Function RegReplace(Str,Pattern,StrReplace)
    Dim Reg
     Set Reg        = New RegExp
    Reg.IgnoreCase = True
    Reg.Global     = True
    Reg.Pattern    = Pattern
    'RegReplace     = Reg.Replace(Str,StrReplace)
    Set Matches = Reg.Execute(Str)
    For Each Match In Matches
           StrM = Replace(Match.Value,"#","")
           StrW = StrW & Eval(StrM) & "<P>"
    Next
    RegReplace = StrW
 End Function
 
 Str        = "dsfsdfsdfs#SMH_OK(2,3,6)#dsfsdsfs#sdf#SMH_OK_A(1,3,4)#sdfdsfds"
 Pattern    = "#SMH[\w]+?\([\d\,]+?\)#"
 StrReplace = "<b>$1</b>"

 Response.Write RegReplace(Str,Pattern,StrReplace)

 Function SMH_OK(A,B,C)
 SMH_OK   = A + B + C
 End Function
 
 Function SMH_OK_A(A,B,C)
 SMH_OK_A = A + B + C
 End Function
%>