新闻标题的两种显示方法

1.显示一部分，最后加...

<%
 Set Rs=Conn.Execute("Select top 5 ID,Title,IsPic From InfoList Where nClass='娱乐' and flag=0  order by ID Desc")
  Do While Not Rs.Eof
   Response.Write "<a href=""Message.asp?AskID="&Rs("ID")&""" target=""_blank"">"
   If Rs("IsPic")=1 Then Response.Write "[图]"
     Response.Write Cut(Rs("title"),16,3)&"</a></li>"
  Rs.MoveNext
  Loop
 Set Rs=Nothing
%>

2.用两行显示

<%
 Set Rs=Conn.Execute("Select top 5 ID,Title,IsPic From InfoList Where nClass='海扶刀' and flag=0  order by ID Desc")
  Do While Not Rs.Eof
   Response.Write "<a href=""Message.asp?AskID="&Rs("ID")&""" target=""_blank"">"
   If Rs("IsPic")=1 Then Response.Write "[图]"
       if Len(rs("title"))>9 then
          Response.Write "<li id='box_m_body_li'>"&Left(rs("title"),9)&"</li>"
          Response.Write "<li>"&Right(rs("title"),Len(rs("title"))-9)&"</li></a>"
       else
          Response.Write "<li>"&rs("title")&"</li></a>"
       end if          

  Rs.MoveNext
  Loop
 Set Rs=Nothing
%>