<%
function cutStr(str,strlen)
if strLength(str)>strlen then
  dim l,t,c,i
  l=len(str)
  t=0
  for i=1 to l
   c=Abs(Asc(Mid(str,i,1)))
   if c>255 then
    t=t+2
   else
    t=t+1
   end if
   if (t>strlen-3) then
    if c>255 then
     cutStr=left(str,i-1)&"..."
    else
     cutStr=left(str,i-1)&"..."
    end if
    exit for
   end if
  next
  
else
  cutStr=str
end if
end function
%>
这是别人帮写的一个函数，为什么我用的时候提示错误如下：
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'strLength'
该怎么改啊，谢谢！！！！

没人教我下吗

貌似strLength也是另一个函数，检查这个函数有没有被引用进来。如果有，看这个函数所需的参数类型是什么，是否匹配。

len()