UBB代码替换有关问题 多谢帮忙

UBB代码替换问题 谢谢帮忙
把[face1] [face2] …… 一直到 [face20] 替换成 <img src="img/1.jpg"> 一直到 <img src="img/20.jpg">
我只能一个一个的替换 怎样能一下子替换全部啊？

还有怎么能获取表情的个数啊？

[解决办法]

VBScript code

Dim regex, resultSet regex = New RegExpregex.Pattern    = "\[face(\d+)\]"regex.IgnoreCase = Trueregex.Global     = Trueresult = regex.Replace(strIn, "<img src=""img/$1.jpg"">")Set regex = NothingResponse.Write result
[解决办法]
VBScript code
Dim regex, strin, result, countstrin = "asdf[face1]dsdafasdfdsf[face12]dasf[face3]asdf[face5]asdf"Set regex = New RegExpregex.Pattern    = "\[face(\d+)\]"regex.IgnoreCase = Trueregex.Global     = Trueresult = regex.Replace(strin, "<img src=""img/$1.jpg"">")count = regex.Execute(strin).CountSet regex = NothingResponse.Write "替换结果:" & resultResponse.Write "<br />----------<br />"Response.Write "表情个数:" & count