newtitlelist.asp

仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户名：admin 密码：admin TOP/top.htm 顶部模板 left.htm 左边树形菜单模板

<!--#include file="../conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="BtBBS_Fun.asp"--><%
login=Request.Cookies("login")
StarTime = Timer():AccessNum=0
Call JCC_Board_Top
page=Request("page")
if page="" or page<1 then page=1 end if
AccessNum=AccessNum+1
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT id,BoardID,FileName,Subject,PostUser,PostTime,PostNum,Hits,LastPostTime,LastPostUser,IsTop,IsBest,PollID FROM BT_Topic order by PostTime desc "
rs.open sql,conn,1,1
rs.PageSize=ListNum
rs.AbsolutePage=page
Call Login_EN
Response.Write "<center><table width=743><tr><td height=30 class=light>&nbsp;<img src=../images/nav.gif>&nbsp;<a href=index.asp><font class=NavColor>论坛首页</a>&nbsp;>>&nbsp;</font><font class=NavColor>最新帖子&nbsp;>></font>&nbsp;<a href=# onclick=history.go(-1)><font class=NavColor>返回</font></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=#ff9800>·</font><a href=newtitlelist.asp><font class=NavColor>按发帖时间排序</font></a>&nbsp;&nbsp;<font color=#389ce0>·</font><a href=newtitlelist_last.asp><font class=NavColor>按最后回复时间排序</font></a></td></tr></table></center>"
Response.Write "<script src=online.asp?userwz=按发帖时间排序的最新帖子&dis=NO></script>"
Response.Write "<center><table  border=0 width=743 cellspacing=0 cellpadding=0 align=center class=table1><tr align=center><td width=27 height=27 class=TBHead><font class=HeadFont><b>ID</b></font></td><td width=350 class=TBHead><font class=HeadFont><b>主题</b></font></td><td width=100 class=TBHead><font class=HeadFont><b>作者</b></font></td><td width=45 class=TBHead><font class=HeadFont><b>人气</b></font></td><td width=120 class=TBHead><font class=HeadFont><b>发布时间</b></font></td><td class=TBHead><font class=HeadFont><b>回复人</b></font></td></tr>"
if rs.bof and rs.EOF then
    Response.Write "<tr><td height=27 colspan=6 class=light><center>没有任何记录</center></td></tr>"
else
    i=0
    while not rs.EOF and i<ListNum  '读出主题列表
       i=i+1
       idimage="<img src=../images/tz1.gif alt='普通帖子'>" '处理加精,固顶,总固顶图标
       if rs("IsBest")="Y" then idimage="<img src=../images/tz2.gif alt='精华帖子'>" end if
       if rs("IsTop")=1 then idimage="<img src=../images/tz3.gif alt='固顶帖子'>" end if
       if rs("IsTop")=2 then idimage="<img src=../images/tz4.gif alt='总固顶帖子'>" end if
       If rs("PollID")<>"file" And rs("PollID")<>"" Then idimage="<img src=../images/poll.gif alt='投票帖子'>" End If
       titlename=rs("SubJect")
       titlenamew=titlename
       if len(titlename)>30 then 
            titlename=left(titlename,28)
            titlename=titlename+"..."
       end if
       rename=rs("LastPostUser") 
       kong="------"
       if rename<>kong then
            rename="<a href=LookUserInfo.asp?username="&rename&" title='查看最后的回复人资料'>"&rename&"</a>"
       end if
       BT_Board():aRS=Application(BBSname&"BT_Board")
       For j=0 to UBound(aRS,2)
           If rs("BoardID")=aRS(0,j) Then 
               If aRS(5,j)<2 then
                   Response.Write "<tr><td height=27 align=center class=light1>"&idimage&"</td><td class=light><a href=bbs"&cstr(rs("BoardID"))&"/"&rs("FileName")&" title="&titlenamew&">&nbsp;"&titlename&"</a></td><td align=center class=light1><a href=LookUserInfo.asp?username="&rs("PostUser")&" title='查看作者资料'>"&rs("PostUser")&"</a></td><td align=center class=light>"&rs("PostNum")&"/"&rs("Hits")&"</td><td align=center class=light1>"&rs("LastPostTime")&"</td><td align=center class=light1>"&rename&"</td></tr>"
               End If
           End IF
       Next
       rs.MoveNext
    wend
end if
rs.Close 
set rs=nothing
'求主题总数
AccessNum=AccessNum+1
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT 主题总数 FROM 版面分类 "
rs.open sql,conn,1,1
pagecount=0
while not rs.eof
    pagecount=pagecount+rs("主题总数")
    rs.movenext
wend
rs.Close 
set rs=nothing
set conn=nothing

titlenum=pagecount
pagecount = Abs(Int(-Abs(pagecount/ListNum))) '计算页数
If pagecount<1 Then pagecount=1 end if%>
</form><form name=dislist  method=post action=NewTitleList.asp><table border=0 width=743 cellspacing=0 cellpadding=0 class=table1 height=28><tr><td width=250>第<%=page%>页&nbsp;共<%=pagecount%>页&nbsp;本页<%=ListNum%>条&nbsp;主题数&nbsp;<%=titlenum%></td><td valign=top align=right><%=Pagination(pagecount,Bmid)%> &nbsp;跳转到第<INPUT  class=fminpt name=page type=text size=3>页<input type=image src=../images/sch.gif border=0 id=image1 name=dislist WIDTH=17 height=14 align=absmiddle><img src=../images/null.gif width=5 height=2></td></tr></table></table></center><%
EndTime = Timer()
%><!--#include file="../inc/tom1.inc"-->