我用的方式如下。，但作判断时不起作用。
求帮助高手
rs11.open sql11,conn,1,1
  do while not rs11.eof

sortpath=rs("sortpath")
str=sortpath
 a=Split(str ,",")   
Response.Write  ( UBound(a))  ---这里可以得出出现的次数
x=CInt(UBound(a))
 if x=3 then   ---这里的判断就得不出结果，总是执行else后的结果
    Response.Write  (x)
else
end if

If x=3 Then是什么意思

如果是字符的话可以用最笨的方法
Function IsStrNum(Str,chrVal)
   Dim i,ReNum,tChr
   ReNum=0
   For i=1 To Len(Str)
       tChr=Mid(Str,i,1)
       If tChr=chrVal Then
          ReNum=ReNum+1
       End IF
   Next
   IsStrNum=ReNum
End Function
rs11.open sql11,conn,1,1
  do while not rs11.eof

sortpath=rs("sortpath")
str=sortpath ---这里可以得出出现的次数
x=IsStrNum(str,",")
if x=3 then   ---这里的判断就得不出结果，总是执行else后的结果
    Response.Write  (x)
else
end if

解决谢谢