使用正则表达式出现错误
function ReplaceCustomSign(DemoStr)
Dim Re, Match, Matches
Set Re=new regExp
Re.IgnoreCase =true
Re.Global=True
Re.Pattern="[1-9]{1}(\d+){5}"
Re.Global = True
Set Matches = Re.execute(cstr(DemoStr))
For Each Match in Matches
ReplaceCustomSign = ReplaceCustomSign & Match.Value & "'." & "<BR>"
Next
end function
出现下面的错误，请帮我指出来
Microsoft VBScript compilation error '800a0408'
Invalid character
/admin/system_demo.asp, line 12
Set Matches = Re.execute(cstr(DemoStr))
