中英文字符串截取代码 <% 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 %> 发布时间：2010年7月31日 此信息已被浏览 60 次