求一个asp获取字符串长度的函数
2个回答
展开全部
'获取字符长度,一个中文算两个字符
Function getLen(TempStr)
Dim iLen,i,StrAsc
iLen=0
for i=1 to len(TempStr)
StrAsc=Abs(Asc(Mid(TempStr,i,1)))
if StrAsc>255 then
iLen=iLen+2
else
iLen=iLen+1
end if
next
getLen=iLen
End Function
若不区分中英文 直接len
Function getLen(TempStr)
Dim iLen,i,StrAsc
iLen=0
for i=1 to len(TempStr)
StrAsc=Abs(Asc(Mid(TempStr,i,1)))
if StrAsc>255 then
iLen=iLen+2
else
iLen=iLen+1
end if
next
getLen=iLen
End Function
若不区分中英文 直接len
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
