asp忽略中英文截取字符串

 Function cutStr(str,strlen)
 dim l,t,c
  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 then
   cutStr=left(str,i)
  exit for
  else
   cutStr=str
  end if
  next
  cutStr=replace(cutStr,chr(10),"")
end Function