最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp 支持中英文的截取字符串函数
时间：2022-06-29 14:26:55 编辑：袖梨 来源：一聚教程网
<%
'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
%>