推荐回答(1个)
这样试试,
的css自己定义:<%
Set rs_news=Server.CreateObject("Adodb.Recordset")
rs_news.open "select top 16 * from all_news where s_id=7 order by sendtime desc",conn,1,3
dim i
i=0
response.write ""
do while not rs_news.eof and i<16
i=i+1
if len(rs_news("title")) > 10 then '判断字符串的长度
ttt= left(rs_news("title"),9)&" ..."
else
ttt= rs_news("title")
end if
%>
- " title="<%=rs_news("title")%>"><%=ttt%>
<%
if i=8 then response.write "
"
rs_news.movenext
loop
response.write "
"
%>