如何检测备注字段的字节数_

视服务器操作系统语种不同,而采取不同的方法:
1.E文下,len(rs("field")),就行了.len("中文abc")=7
2.Z文下,复杂一点,len("中文abc")=5
lenB("中文abc")=10,所以需要自己写程序判断其长度.
function strLen(str)
　dim i,l,t,c
　l=len(str)
　t=l
　for i=1 to l
　　　c=asc(mid(str,i,1))
　　　if c<0 then c=c+65536
　　　if c>255 then
　　　　t=t+1
　　　end if
　next
　strLen=t
end function　

文章作者：未知