请教:像新浪上的那样的新闻列表,用ASP程序应该怎么写,望有人能教教我.




[[it] 本帖最后由 hanbao 于 2008-3-13 17:01 编辑 [/it]]

谢谢了.

帮一下小弟呀!

图片看不清楚！

哪样的？截个图看看！

这里有个例子

就是上面的那个图上的列表呀!就是一行有时候标题长的时候显示一条,短的时候显示两条或两条以上的.(是从数据库里读出来的).

长的和短的分开显示

<table><%
                        Sql = "Select Top 4 * From DB_Topics Where ParentID=0 Order By isVouch Desc, ReplyDate Desc "
                        Set Rs = Server.CreateObject("adodb.recordset")
                        Rs.Open Sql,Conn,1,3
                        If Not Rs.EOF then
                            Rs.movefirst
                            While Not Rs.EOF
                    %>
                                          
                    <tr>
                                             
                        <td width="18" align="right"><img src="images/type_<%=Rs("typeid")%>.gif" align="absmiddle"></td>
                        <td><div class="titleword"><a href="zh_detail.asp?topicid=<%=Rs("id")%>" target="_blank" class="l_b_12"><%=Rs("title_html")%></a>
                        </td>
                        
                                          
                    </tr>
                    <%
                        Rs.MoveNext
                            Wend
                        End If
                        Rs.Close
                        Set Rs = Nothing
                    %></table>


长的和短的内容各自放在一个table里面

[[it] 本帖最后由 luo123 于 2008-3-13 17:22 编辑 [/it]]

<%
dim a,n,m,l
'm为每行显示字数
m=13
l=0
a="王志文下月结婚|新娘很年轻|韩三平探班红楼梦培训基地|活着真好|前清历史|金婚|央视否认封杀艳照门明星|阿Sa称Twins有散伙危险 |江山|美人|江山1|江山2|解放军积极应对印度增兵边境"
a=split(a,"|")
for j=0 to ubound(a)
    response.write "<a href='#'>"&a(j)&"</a>&nbsp;&nbsp;"
    if len(a(j))>(m+1)\2 then
       response.write"<br>"
    else
       l=l+len(a(j))+1
    end if
    if j=ubound(a) then
       n=j
    else
       n=j+1
    end if
    if (l=>(m+1) or l+len(a(n))=>(m+1)) and len(a(j))<=(m+1)\2  then
       response.write"<br>"
       l=0
    end if
next
%>