Question

ASP判断字符串中是否含有非法字符和中文

若以下回答无法解决问题，邀请你更新回答

Answer 1

Public Function IsValidChar(ByVal str)
IsValidChar = False
On Error Resume Next

If IsNull(str) Then Exit Function
If Trim(str) = Empty Then Exit Function
Dim ValidStr
Dim i, l, s, c

ValidStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ.-_:~\/0123456789"
l = Len(str)
s = UCase(str)
For i = 1 To l
c = Mid(s, i, 1)
If InStr(ValidStr, c) = 0 Then
IsValidChar = False
Exit Function
End If
Next
IsValidChar = True
End Function

用的时候直接IsValidChar("*********&&&&&&&&&&")

判断结果是true还是false