注册 登录
编程论坛 ASP技术论坛

请教:像新浪上的那样的新闻列表,用ASP,程序应该怎么写呀!

hanbao 发布于 2008-03-13 15:31, 1423 次点击
请教:像新浪上的那样的新闻列表,用ASP程序应该怎么写,望有人能教教我.


只有本站会员才能查看附件,请 登录


[[it] 本帖最后由 hanbao 于 2008-3-13 17:01 编辑 [/it]]
11 回复
#2
hanbao2008-03-13 15:33
希望有人能帮一下忙.在线等
谢谢了.
#3
hanbao2008-03-13 16:45
没有人会写吗?
帮一下小弟呀!
#4
luo1232008-03-13 16:56
图片看不清楚!
#5
tianyu1232008-03-13 16:56
哪样的?截个图看看!
#6
luo1232008-03-13 16:59
这里有个例子
只有本站会员才能查看附件,请 登录
#7
hanbao2008-03-13 17:05
老大不是这个呀!
就是上面的那个图上的列表呀!就是一行有时候标题长的时候显示一条,短的时候显示两条或两条以上的.(是从数据库里读出来的).
#8
luo1232008-03-13 17:15
长的和短的分开显示
#9
luo1232008-03-13 17:19
<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]]
#10
tianyu1232008-03-13 18:28
做个参考
程序代码:
<%
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
%>
#11
hanbao2008-03-14 08:27
谢谢你们现在找到一点思路!
谢谢你们现在找到一点思路!
#12
xidaxuanyu2008-03-14 15:19
路过一下
1