验证字符串中是否包含有效字符验证字符串中是否包含有效字符
在常规输入表单的使用中时,经常会要求用户只能使用A~Z、a~z、0~9内的字符,那如何实现在服务
器端的验证呢,
下面是一个用于以上验证的函数:
%
'************************************** '文件名: Asc.asp
'描 述: '验证MyString是否含有有效字符A~Z、a~z和0~9
'************************************** Function TestString (MyString)
Dim Te...
验证字符串中是否包含有效字符
在常规输入
单的使用中时,经常会要求用户只能使用A~Z、a~z、0~9内的字符,那如何实现在服务
器端的验证呢,
下面是一个用于以上验证的函数:
%
'************************************** '文件名: Asc.asp
'描 述: '验证MyString是否含有有效字符A~Z、a~z和0~9
'************************************** Function TestString (MyString)
Dim TempStr, Length, Result, I, Char, Ascii TempStr = TRIM(MyString)
Length = Len(TempStr)
Result = False
For I = 1 To Length
Char = Mid(TempStr,I)
Ascii = Asc(Char)
'判断字符的ASCII值
If 47 Ascii 58 Or 64 Ascii 91 Or 96 Ascii 123 Then
Result = True
Exit For
Else
Result = False
End If
Next
TestString = Result
End Function
%
该函数的调用方法如:
TestString(MyString)
如果MyString是要验证的字符串,则函数会返回一个Boolean值:True是指字符串在所有的Alpha
值之内,False不是.
具体用法举例:
%
'************************************** '文件名: MySTring.asp
'描 述: 验证MyString是否含有有效字符A~Z、a~z和0~9
'************************************** dim str
str = request.form("test")
if TestString(str) then
response.write "恭喜,字符串合法!"
else
response.write "里面有非法字符串!"
end if
Function TestString (MyString) Dim TempStr, Length, Result, I, Char, Ascii
TempStr = TRIM(MyString) Length = Len(TempStr)
Result = False
For I = 1 To Length
Char = Mid(TempStr,I)
Ascii = Asc(Char)
'判断字符的ASCII值
If 47 Ascii 58 Or 64 Ascii 91 Or 96 Ascii 123 Then
Result = True
Exit For
Else
Result = False
End If
Next
TestString = Result
End Function
%
form method="post"
input type="text" name="test" input type="submit" value="submit" /form
本文档为【验证字符串中是否包含有效字符】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。