[导入]ASP常用函数:IsAlpha()

<%
'功能:返回 Boolean 值指明表达式的值是否为字母。
'来源:http://jorkin.reallydo.com/article.asp?id=525

Private Function IsAlpha(byVal sString)
Dim regExp, oMatch, i, sStr
For i = 1 To Len( sString )
sStr = Mid(sString, i, 1)
Set regExp = New RegExp
regExp.Global = True
regExp.IgnoreCase = True
regExp.Pattern = "[A-Z]|[a-z]|\s|[_]"
Set oMatch = regExp.Execute(sStr)
If oMatch.Count = 0 Then
IsAlpha = False
Exit Function
End If
Set regExp = Nothing
Next
IsAlpha = True
End Function
%>

文章来源:http://Jorkin.Reallydo.Com/default.asp?id=525