问:使用SQLServer时,如何在客户端检查text型input的长度?

[feng_bd]

DBMS用SQLServer7.
某一字段,类型为varchar(50.在客户端通过text型input写入),其中既有西文,又有中文.写入前想先用客户端脚本检查其长度是否越限.
但是发现,例如"数据库SQL"这样的内容,用Len()取长度时,结果为6;用LenB()时,结果为12.我希望得到的结果是9(即汉字的个数乘2加上字符的长度).
急盼同道中人援手.谢谢.

[qiuhao]

1。换字符集
2。自己写函数

[zdg]

function RealLen(str)
Dim ReLen
Dim I
ReLen=0
For I=1 To Len(str)
If (Asc(Mid(str,I,1))>=0) And (Asc(Mid(str,I,1))<=255) Then
ReLen=ReLen+1
Else
ReLen=ReLen+2
End If
Next
RealLen=ReLen
end function

[eaglet]

这个函数我测试过，肯定可以
function Length (str)
Dim i , intStrLen
for i = 1 to LenB(Str)
if AscB(MidB(str,i,1)) > 0 then intStrLen = intStrLen + 1
next
end function

[feng_bd]

①
:-)真是很高兴这么快见到朋友们的帮助.
多谢zdg和eaglet给出的具体代码,同时也要谢谢qiuhao的方向性建议.

②
以前总觉得国内的开发类BBS较为缺乏内容.这次,你们三位朋友除了给了我具体帮助,也增加了我对别人和自己的信心.再次感谢三位.