<p>　　ASP获取字符串长度的自定义函数</p><code>'----------------------------------------------------------------'<br />' getStrLen<br />' 获取字符长度，一个中文字符长度算 2<br />' 参数：<br />' str 需要获取长度的字符串<br />' 返回值：整数 (字符串的长度)<br />'----------------------------------------------------------------'<br />Function GetStrLen(str)<br />If IsNull(str) Or str = "" Then<br />getStrLen = 0<br />Else<br />Dim i, n, k, chrA<br />k = 0<br />n = Len(str)<br />For i = 1 To n<br />chrA = Mid(str, i, 1)<br />If Asc(chrA) >= 0 And Asc(chrA) <= 255 Then<br />k = k + 1<br />Else<br />k = k + 2<br />End If<br />Next<br />getStrLen = k<br />End If<br />End Function</code>