asp字元替換

 <%
st = "{名字}{稱呼}你好,請問你是{公司}的嗎?希望{名字}{稱呼}能支援我們的調查."
Dim A(2),b(2)
A(0) = "{名字}"
A(1) = "{稱呼}"
A(2) = "{公司}"
b(0) = "alex"
b(1) = "先生"
b(2) = "電信"
Function ReplaceTest(patrn, replStr)
Dim regEx'建立變數。
Set regEx = New RegExp '建立正規表示式。
regEx.Pattern = patrn '設定模式。
regEx.IgnoreCase = False '設定是否區分大小寫。
ReplaceTest = regEx.Replace(st, replStr) '作替換。
End Function

Function RegExpTest(patrn, strng)    '查詢字元
Dim regEx, retVal '建立變數。
Set regEx = New RegExp '建立正規表示式。
regEx.Pattern = patrn ' 設定模式。
regEx.IgnoreCase = False ' 設定是否區分大小寫。
retVal = regEx.Test(strng) ' 執行搜尋測試。
RegExpTest = retVal
End Function

for i = 0 to 2
 while RegExpTest(A(i),st)
  st = ReplaceTest(A(i), b(i))
 wend
next
response.write st
%>