asp中判断字符串的长度和取得指定长度字符串的两个方法（字符串包含双字节汉字）--asp 编程技术

asp中判断字符串的长度和取得指定长度字符串的两个方法（字符串包含双字节汉字）

<%
'判断包含双字节字符的字符串长度
Function getStrLen(str)
dim x‚y‚i
x = len(str)
y = 0
for i = 1 to x
if asc(mid(str‚i‚1))<0 or asc(mid(str‚i‚1))>255 then
y = y + 2 '双字节
else
y = y + 1'ascii码字符
end if
next
getStrLen = y
End Function

'从指定（包含双字节字符的）字符串中第一个字符起的指定长度的字符串
'指定的长度为单字节长度，即字节数
Function leftString(str‚length)
dim x‚y‚i‚s
s=str
x = len(str)
y = 0
if x >= 1 then
for i = 1 to x
if asc(mid(str‚i‚1)) < 0 or asc(mid(str‚i‚1)) >255 then
y = y + 2
else
y = y + 1
end if
if y >= length then
s = left(str‚i) '字符串字节数
exit for
end if
next
end if
leftString = s
End Function %>
<%=getStrLen("双字节字符abc")%> <br>
<%=leftString("abc双字节字符字符串"‚10)%>

asp数组使用2006-4-4

asp统计图片的点击率2006-4-4

用javascript连接access数据库2006-4-4

asp教你做小偷程序 容易学 2006-4-4

用ASP实现邮箱登陆的代码.源代码公开2006-4-4

asp中判断字符串的长度和取得指定长度字符串的两个方法（字符串包含双字节汉字）2006-4-4

ASP智能搜索的实现 2006-4-4

用asp生成PDF文件2006-4-4

ASP读取EXCEL2006-4-4

ASP下载系统防盗链方法2006-4-4