asp 实现检测字符串是否为纯字母和数字组合的函数

1. <%  
2. '******************************  
3. '函数：CheckString(strng)  
4. '参数：strng,待验证字符串  
5. '作者：阿里西西  
6. '日期：2007/7/13  
7. '描述：检测字符串是否为纯字母和数字组合  
8. '示例：<%=CheckString(strng)%>  
9. '******************************  
10. Function CheckString(strng)  
11.     CheckString = true  
12.     Dim regEx, Match  
13.     Set regEx = New RegExp  
14.     regEx.Pattern = "^[A-Za-z0-9]+$"  
15.     regEx.IgnoreCase = True  
16.     Set Match = regEx.Execute(strng)  
17.     if match.count then CheckString= false  
18. End Function  
19. %> 
20. 检测是否为中文字符 
21. <%  
22. '******************************  
23. '函数：CheckChinese(strng)  
24. '参数：strng,待验证字符  
25. '作者：阿里西西  
26. '日期：2007/7/13  
27. '描述：检测是否为中文字符，返回值：中文为true，否则false  
28. '示例：<%=CheckChinese(strng)%>  
29. '******************************  
30. Function CheckChinese(strng)  
31.     CheckChinese = true  
32.     Dim regEx, Match  
33.     Set regEx = New RegExp  
34.     regEx.Pattern = "\||\#|\&|\?|\@|\%|\*|\/|\.|\,|\;|\'|\:|\-|\_|\+|\^|\""|\=|\<|\>|\ "  
35.     regEx.IgnoreCase = True  
36.     Set Match = regEx.Execute(strng)  
37.     if match.count then CheckChinese= false  
38. End Function  
39. %>