【ASP】計算中英文字數長度
<%
Function LenMbcs(str)
strlencount=0
for ccc=1 to len(str)
if asc(mid(str, ccc, 1))<0 then
strlencount=strlencount + 2
else
strlencount=strlencount + 1
end if
next
LenMbcs=strlencount
End Function
if request("btn_act")="查詢" then
kk=request("txt_str")
bb=LenMbcs(kk)
end if
%>
<html>
<body>
<form method="post">
<input type="text" name="txt_str" value="<%=kk%>">
<input type="submit" name="btn_act" value="查詢">
</form>
長度：<%=bb%>
</body>
</html>
解說 : 半形字 算一個字, 全形字及中文字 算二個字
EX 1 : 輸入 jason_123
EX 2 : 輸入 ＪＡＳＯＮ(全型字)
EX 3 : 輸入 你好嗎?
留言
張貼留言