避免重复写代码的小函数

<%
function autoStr(reg,varStr)
  set regEx=new RegExp
  regEx.IgnoreCase=true
  regEx.Global=true
  regEx.pattern="\{\w+\}"
  varArr=split(varStr,",")
  autoStr=Ubound(varArr)
  tmpStr=""
  for i=0 to Ubound(varArr)
    tmpStr=tmpStr&"<br />"®Ex.replace(reg,varArr(i))
  next
  set regEx=nothing
  autoStr=replace(tmpStr,"'","""")
end function
%>