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

视服务器操作系统语种不同,而采取不同的方法:

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