Question

ASP如何限制标题的输出字数？

do while not objRS.eof
html = html & "<li><a href=""/blog/web/" & objRS("log_ID") & ".shtml"" title=""" & objRS("log_Title") &""" target=""_blank""><span class=""article-date"">["& Month(FormatDateTime(objRS("log_PostTime"),2)) & "/" & Day(FormatDateTime(objRS("log_PostTime"),2)) &"]</span>" & objRS("log_Title") & "</a></li>"

如何设定其中的("log_Title") 输出的字节数？

Answer 1

gotTopic(objRS("log_Title"), 20)

'英文当成一个字符，汉字当成两个字符处理
function gotTopic(ByVal str,ByVal strlen)
if str="" then
gotTopic=""
exit function
end if
dim l,t,c, i,strTemp
l=len(str)
t=0
strTemp=str
strlen=Clng(strLen)
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
strTemp=left(str,i)
exit for
end if
next
if strTemp<>str then
strTemp=strTemp & "..."
end if
gotTopic=strTemp
end function

追问

需要这么复杂吗？还要特定定义个函数来控制啊？

追答

最好这样， 因为如果你用mid函数，那么len的时候，都会当成一个字符。
这里是将英文作为1，汉字作为2，也就是半角1，全角2，这样显示出来的时候，页面的美观得多。因为显示基本上都是设定的等长的。
另外，长度超出的，还会有个“…”显示哦。

Answer 2

用left(objRS("log_Title"),10) 10是你想要的字数，随便你怎么改，如果需要后面加省略号的就写个函数

Function leftstr(str,strlen)
if trim(str) = "" or trim(str) = null then
leftstr=""
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<")
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
leftstr=left(str,i) & "..."
exit for
else
leftstr=str
end if
next
<","<")
End Function

Answer 3

left(objRS("log_Title"),x) x是你想要截取的字符数，汉子与字母字符数有些区别，需要实际测试