正则表达式模板标签

<%  
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) & ""
        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 = "$1"

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
%>

将 Str的值替换成它以下这段
"<td style=""BORDER-RIGHT: #75AF03 1px solid;BORDER-LEFT: #75AF03 1px solid;padding:2px;padding-top:6px;"">{$HtmlNewsIndex(8,10,20,1,1,0)$}</td><td>{$HtmlPictureIndex(10,0,6,1,5,130,135)$}</td>"
怎么匹配代码中的标签“{$HtmlNewsIndex(8,10,20,1,1,0)$}”