求助动网调用,如何才能截取标题前16个字符

问题描述：

求助动网调用,如何才能截取标题前16个字符
以下是我的调用代码,目的是调用数据库中新贴的标题,最多显示标题字数为16个,如何修改才能达到超过
16个字的时候在标题后自动添加"...",我试过这么改..."&left(dvbbs.htmlencode(sql(1,i)),16)&"...</a></td>...
可是改后,未达到16个字的标题后也添加了"...",我就是想让只有标题超过16个字的是后才截取其中16个字并在后
面加上"...",其他的不变,请赐教!谢谢!谢谢!谢谢!
<%
newtopic8()
sub newtopic8()
dim rs,sql,i,n,ds
i=0
n=10 '新贴调用个数
sql="select top "&n&" a.topicid,a.title,a.boardid,a.postusername,a.lastpost,a.lastposttime,a.dateandtime,b.boardtype from dv_topic a,dv_board b where a.boardid=2 and b.boardid=a.boardid order by dateandtime desc"
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
SQL=Rs.GetRows(-1)
else
response.write "目前没有新贴"
exit sub
end if
rs.close:set rs=nothing
For i=0 To Ubound(SQL,2)
response.write "<tr><td class=lihi width=""82%""><img src=home/image/icon7.gif border=0 hspace=6 vspace=4 align=absmiddle><a href=dispbbs.asp?boardid="&sql(2,i)&"&id="&sql(0,i)&" title=标题："&left(sql(1,i),30)&" 作者："&left(sql(3,i),16)&" 时间："&left(sql(5,i),16)&" target=""_blank"">"
response.write ""&left(dvbbs.htmlencode(sql(1,i)),16)&"</a></td><td style=""font-size:10px;font-family:Tahoma,Verdana;color:#333333"">"&left(sql(5,i),10)&"<br></td>"
next
end sub
%>
1楼答案 无效啊!

问题解答：

标题："&left(sql(1,i),30)

改成

标题："&left(sql(1,i),16)