asp 支持中英文的截取字符串函数

<%
'txt = "需要处理的字符串" ， length = 数字 ，length为需要保留的字符数，1个汉字为2个字符。

Function CutStr(txt,length)
  txt=trim(txt)
  x = len(txt)
  y = 0
  If x >= 1 Then
    For ii = 1 to x
      If Asc(Mid(txt,ii,1)) < 0 or Asc(Mid(txt,ii,1)) >255 Then   ' 如果是中文
        y = y + 2
      Else
        y = y + 1
      End If
      If y >= length Then  
        txt = left(trim(txt),ii) & " ..." ' 字符串限长
        Exit For
      End If
    Next
      CutStr = txt
    If x > length Then  CutStr = txt & " ..."
  Else
    CutStr = " "
  End If
End Function

%>

<%
if request.Form("charstring") then
 response.Write CutStr( request.Form("charstring"),10 )
end if
%>