验证字符串中是否包含有效字符.doc

　　在常规输入表单的使用中时，经常会要求用户只能使用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>
　　更多信息请查看IT技术专栏