受有空间养包子的小说:if dname="" or len(dname)>20 then

来源:百度文库 编辑:中科新闻网 时间:2024/04/28 08:54:41
if dname="" or len(dname)>20 then
founderr="true"
errmsg="<li>年级名不能为空且在20个字符以内"

有这么一段话,但是当我在dname中输入的是汉字,errmsg这个就无效,但是输入的是字母就有效,是不是还需要用类似cina来转换?应该用什么转换???

最简单的解决办法是把输入框设定maxlength=20,这样他无论输入汉字还是英文都不可能超过20。

如果你嫌这样解决的不彻底,可以做一个函数来代替len不能区分汉字和英文,示例如下:

<%
Function CheckStringLength(txt)
txt=trim(txt)
x = len(txt)
y = 0
for ii = 1 to x
if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then '如果是汉字
y = y + 2
else
y = y + 1
end if
next
CheckStringLength = y
End Function
%>