<%’******************************’函数：IsValidUserName(byVal UserName)’参数：UserName,用户名称’作者：阿里西西’日期：2007/7/15’描述：验证用户名是否包含有非法字符，不含非法字符返回：true’示例：IsValidUserName(byVal UserName)’******************************Function IsValidUserName(byVal UserName) Dim i,c IsValidUs...

<%FUNCTIONTestString(SomeString)TempString=trIM(SomeString)TempString_Length=Len(TempString)TempString_OK=trueFORTempString_Pos=1TOTempString_Length TempString_Char=Mid(TempString,TempString_Pos) TempString_Char_Ansi=Asc(TempString_Char) IFTempString_Char_Ansi>47ANDTempString_Ch...