如何判断数据的长度？

[tanguangzhang]

如有一个列：name
里面某个记录中，name的数据段记录着一个数据，假设name里记录的内容为 “Turboc 2.0 汉化版” ，我想做一个判断当字符长度小于等于8时显示“X”，当字符长度大于8时显示"Y",该如何做？
请高手指点！谢了~~~！~！~！

[cqfeng]

len()

[liuqinyi]

len()
lenb()
lenw()

[liuqinyi]

len()
lenb()
lenw()

[富察咪咪]

if len()= LenB Then
' 没有汉字
len()
else
len()*2
End if

[zhxhjj]

len()

[yzwxjun]

length=len(name)
if length<=8 then
disp="x"
else
disp="Y"
end if

[青蛙]

if len(name) <=8 then
response.write "X"
else
response.write "Y"
end if

[61]

if len(rs("name"))>8 then
response.write "Y"
else
response.write "X"
end if

[BainStudio]

Public Function StrLength(Str)
If IsNull(Str) or Str = "" Then
StrLength = 0
Exit Function
End If
Dim WINNT_CHINESE
WINNT_CHINESE=(Len("字符")=2)
If WINNT_CHINESE then
Dim l,t,c
Dim i
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
StrLength=t
Else
StrLength=Len(Str)
End If
End Function

以上提供的是一个字定义的函数;

If StrLength(字符) <= 8 Then
Response.Write "X"
Else
Response.Write "Y"
End If