能不给一个在客户端用vbscript编写的正则表达式的实例啊！

 1<script language="Vbscript">   
 2Function testReg(str)   
 3Set reg=New RegExp   
 4reg.Global=True '是否全部檢查   
 5reg.IgnoreCase=False '是否忽略大小寫   
 6reg.Pattern="\d" '匹配字符串   
 7testReg=reg.Test(str)   
 8Set reg=Nothing   
 9End Function   
10  
11document.write testReg("asfd")   
12document.write testReg("1212")   
13</script>