四栏最新精华改最新回复后问题？

所在位置：论坛首页 -> ┈┋BBSGood专区┋┈ -> 『BBSGood论坛交流』 -> 四栏最新精华改最新回复后问题？

标题:四栏最新精华改最新回复后问题？

作者:ldyg 发表于 2007-12-30 10:28:47

按客服的说法改了后出现回贴后会显示12条。我设的是10条，再就是好像只显示当天回复，如果当天没回复都是显示今天发的新贴，不能显示昨天的回复么？

谢

八日反黑联盟

作者:518 发表于 2007-12-30 13:23:41

编辑删除引用第2楼

你改的sql语句发上来

作者:ldyg 发表于 2007-12-30 17:18:15

编辑删除引用第3楼

indexpost=indexpost+ "<td class=""indexpost"">"
    If DataType=1 Then
        sql="select top 10 ID,BoardID,Subject,FileName,CreateHtml from LxTel_Topic where IsDel=false and postsh=false and isbest=1 order by lastposttime desc "
    Else
        sql="select top 10 ID,BoardID,Subject,FileName,CreateHtml from LxTel_Topic where IsDel=false and postsh=false order by lastposttime desc "
    End IF
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.open sql,conn,1,1
    while not rs.eof
        if Application(BBSInfo&"sysinfo")(78,0)=true then
            indexpost=indexpost+ "·<a href=""post_"&rs("boardid")&"_"&rs("id")&"_1.html"" target=""_blank"">"&InterceptString(rs("subject"),36)&"</a><br>"
        else
            indexpost=indexpost+ "·<a href=""dispost.asp?boardid="&rs("boardid")&"&postid="&rs("id")&""" target=""_blank"">"&InterceptString(rs("subject"),30)&"</a><br>"
        end if
        rs.movenext
    wend
    rs.close
    set rs=nothing
    indexpost=indexpost+ "</td>"

八日反黑联盟

作者:ldyg 发表于 2007-12-30 17:19:05

编辑删除引用第4楼

这是最新精华改后的那一列的代码！

八日反黑联盟

作者:ldyg 发表于 2008-1-2 8:35:30

编辑删除引用第5楼

自己顶起来。。

八日反黑联盟

作者:买空间14 发表于 2008-1-3 11:07:27

编辑删除引用第6楼

代码收藏了。