mytitle.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")
 username=Request.Cookies("username")
 page=Request("page")
 StarTime = Timer():AccessNum=0
 Call JCC_Board_Top
 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>我的主题</font>&nbsp;>>&nbsp;<a href=# onclick=history.go(-1)><font class=NavColor>返回</font></a></td></tr></table></center>"
 if login="Y" then
     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>"
     AccessNum=AccessNum+1
     Sql="SELECT id,BoardID,FileName,SubJect,PostUser,PostTime,PostNum,Hits,LastPostTime,LastPostUser,IsTop,IsBest,PollID FROM BT_Topic where PostUser='"&username&"' ORDER BY PostTime desc "
     Set rs = Server.CreateObject("ADODB.Recordset")
     rs.open sql,conn,1,1
     if rs.bof and rs.EOF then
         Response.Write "<tr><td height=27 colspan=6 class=light><center>没有任何记录</center></td></tr>"
     else
         rs.PageSize=ListNum
         if page="" or page<1 then page=1 end if
         rs.absolutepage=page
         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")="poll" then idimage="<img src=../images/poll.gif alt='投票帖子'>" end if
             titlename=rs("Subject")
             titlenamew=titlename
             if len(titlename)>54 then 
                 titlename=left(titlename,50)
                 titlename=titlename+"..."
             end if
             rename=rs("LastPostUser") 
             kong="------"
             if rename<>kong then
                 rename="<a href=LookUserInfo.asp?username="&rename&" title='查看最后的回复人资料'>"&rename&"</a>"
             end if
             Response.Write "<tr><td height=27 align=center class=light1>"&idimage&"</td><td class=light><a href=bbs"&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>"
             rs.MoveNext
         wend

         %></form><form name=dislist  method=post action=Mytitle.asp><table border=0 width=743 cellspacing=0 cellpadding=0 class=table1 height=28><tr><td width=250>第<%=page%>页&nbsp;共<%=rs.PageCount%>页&nbsp;本页<%=ListNum%>条&nbsp;主题数&nbsp;<%=rs.RecordCount%></td><td valign=top align=right><%=Pagination(rs.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><%

     end if
     rs.Close 
     set rs=nothing
     set conn=nothing
 
 else
     Response.Write "<br><br><br>你还没有登陆,请点击<a href=exit.asp>登陆</a><br><br><br><br>"
 end if
 EndTime = Timer()
 %><!--#include file="../inc/tom1.inc"-->