asp计算中英文混合字符串的长度

技术文章

asp计算中英文混合字符串的长度

时间：2009-03-25 点击：1622

<%
'计算中英文混合字符串Str的长度
Public Function StrCount(ByVal Str)
Dim I, Counter
If Trim(Str) = "" Or IsNull(Str) Then
Counter = 0
Else
Counter = 0
'逐个判断是否中文字符，累加长度
For I = 1 To Len(Trim(Str))
If Asc(Mid(Str, I, 1))<0 Then
Counter = Counter + 2
Else
Counter = Counter + 1
End If
Next
End If
StrCount = Counter
End Function
%>
<form name="form1" method="post" action="">
输入字符串：
<input name="text" type="text" id="text">
<input type="submit" name="Submit" value="提交">
</form>
<%
Dim X
X=Request.Form("text")
If X<>"" Then
%>
<p>输入的字符串为：<%=X%></p>
<p>长度为：<%=StrCount(X)%></p>
<%
End If
%>

表单获的焦点focus(),回车触发事件,不提交表单

event.srcElement

层在flash下面的解决方法

验证视图状态 MAC 失败

asp创建和调整动态数组

> 返回

地址：上海市普陀区胶州路941号长久商务中心电话： QQ：