最新下载
热门教程
- 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
%>
相关文章
- 《绝区零》伊芙琳培养材料汇总 01-24
- 《无限暖暖》1.2春节兑换码一览 01-24
- 《网上国网》查询阶梯档位方法 01-24
- 《蛋仔派对》神游贺岁盲盒获取方法 01-24
- 《炉石传说》星际联动盗贼卡组玩法介绍 01-24
- 皮革珊瑚属于珊瑚中的 01-24