4个回答
2013-07-15
展开全部
<%'txt是字符内容,length是要截取多少个字符
Function GetStringLength(txt,length)
dim i
i=1
y=0
txt=trim(txt)
for i=1 to len(txt)
j=mid(txt,i,1)
if asc(j)>=0 and asc(j)<=127 then '汉字外的其他符号,如:!@#,数字,大小写英文字母
y=y+0.5
else '汉字
y=y+1
end if
if -int(-y) >= length then '截取长度
txt = left(txt,i)
exit for
end if
next
response.write txt
End Function
%> 调用方法:
<%call GetStringLength(txt,length)%>
Function GetStringLength(txt,length)
dim i
i=1
y=0
txt=trim(txt)
for i=1 to len(txt)
j=mid(txt,i,1)
if asc(j)>=0 and asc(j)<=127 then '汉字外的其他符号,如:!@#,数字,大小写英文字母
y=y+0.5
else '汉字
y=y+1
end if
if -int(-y) >= length then '截取长度
txt = left(txt,i)
exit for
end if
next
response.write txt
End Function
%> 调用方法:
<%call GetStringLength(txt,length)%>
2013-07-15
展开全部
最简单的:<%
if len(rs("title")) > 40 then '判断字符串的长度
response.Write left(rs("title"),40)&" ..."
else
response.write rs("title")
end if
%>
if len(rs("title")) > 40 then '判断字符串的长度
response.Write left(rs("title"),40)&" ..."
else
response.write rs("title")
end if
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-15
展开全部
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-15
展开全部
很简单的,直接left("Str",40)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询