<html xmlns="http://www.111cn.net/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>asp 支援中英文的截取字串函數</title>
</head>
<body>
<%
'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
%>
<form name="form1" method="post" action="">
<label>
<input type="text" name="charstring">
</label>
<label>
<input type="submit" name="Submit" value="提交">
</label>
</form>
<%
if request.Form("charstring") then
response.Write CutStr( request.Form("charstring"),10 )
end if
%>
</body>
</html>
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
