你点一下下面这些帖子

说什么参数错误！why？？？

专题：粮食  瓜果蔬菜  果树  

下载了之后 一周热门 帖子可以拉很长，正在发愁呢

3楼的笨啊你

你可以调节帖子调用个数的啊

很简单的呀

俺的确很笨

刚打上补丁的时候显示一切正常，今天才发现出现了这个问题，中午重新下载了0925号更新后覆盖上传问题依旧，不过问题在刚才的时候又重新下载覆盖上传问题解决，迷惑中

4楼的既然可以修改，那你看这个应该改哪里才不会出现一周热门调用过多的帖子？

<%
function indexpost()
    indexpost=indexpost+ "<table align=""center"" width="""&Application(BBSInfo&"MB")(1,0)&""" cellspacing=""0"" cellpadding=""0"" class=""table4"" style=""border-collapse: collapse""><tr align=""center"">"
    indexpost=indexpost+ "<td width=""25%"" class=""td1_title3"">最新公告</td><td width=""25%"" class=""td1_title3"">最新帖子</td><td width=""25%"" class=""td1_title3"">最新精华</td><td width=""25%"" class=""td1_title3"">一周热门</td></tr><tr>"
    '''''
    indexpost=indexpost+ "<td class=""indexpost"">"
    If DataType=1 Then                             
        sql="select top 8 ID,BoardID,Subject,FileName,CreateHtml from LxTel_Topic where IsDel=0 and postsh=0 and gg=1 order by id desc "
    Else
        sql="select top 8 ID,BoardID,Subject,FileName,CreateHtml from LxTel_Topic where IsDel=false and postsh=false and gg=true order by id 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>"
    '''''
    indexpost=indexpost+ "<td class=""indexpost"">"
    If DataType=1 Then                             
        sql="select top 8 ID,BoardID,Subject,FileName,CreateHtml from LxTel_Topic where IsDel=0 and postsh=0 order by id desc "
    Else
        sql="select top 8 ID,BoardID,Subject,FileName,CreateHtml from LxTel_Topic where IsDel=false and postsh=false order by id 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>"
    '''''
    indexpost=indexpost+ "<td class=""indexpost"">"
    If DataType=1 Then                             
        sql="select top 8 ID,BoardID,Subject,FileName,CreateHtml from LxTel_Topic where IsDel=0 and postsh=0 and isbest=1 order by id desc "
    Else
        sql="select top 8 ID,BoardID,Subject,FileName,CreateHtml from LxTel_Topic where IsDel=false and postsh=false and isbest=true order by id 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>"
    '''''
    indexpost=indexpost+ "<td class=""indexpost"">"
    If DataType=1 Then                             
        sql="select top 8 ID,BoardID,Subject,FileName,CreateHtml from LxTel_Topic where IsDel=0 and postsh=0 and datediff(""d"",PostTime,'"&date()&"')<7 order by hits desc "
    Else
        sql="select top 8 ID,BoardID,Subject,FileName,CreateHtml from LxTel_Topic where IsDel=false and postsh=false and datediff(""d"",PostTime,'"&date()&"')<7 order by hits 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>"
    indexpost=indexpost+ "</tr></table>"
end function
%>