special_topic.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")
StarTime = Timer():AccessNum=0
Call JCC_Board_Top
page=Request("page")
SpecialID=Request.QueryString("id")
SpecialName=Request.QueryString("SpecialName")
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,SpecialID FROM BT_Topic where SpecialID="&SpecialID&" 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><a href=Special.asp><font class=NavColor>专题区</a>&nbsp;>>&nbsp;"&SpecialName&"&nbsp;>></font>&nbsp; <a href=# onclick=history.go(-1)><font class=NavColor>返回</font></a></td></tr></table></center>"
Response.Write "<center><table width=743><tr><td><script src=online.asp?userwz="&SpecialName&"></script></td></tr></table></center>"
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>"
    pagecount=0
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
       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>"
       rs.MoveNext
    wend
    pagecount=rs.RecordCount
end if
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_z(pagecount,SpecialID,SpecialName)%> &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()

Function Pagination_z(PageCount,BoardID,SpecialName)

   Dim WzPage,WzPageCount,PageNum
   'BoardID = Request.QueryString("Board_ID")
   If BoardID = 0 Then BoardID = 1
       If Len(Request("Page"))<>0 Then
          WzPage = Clng(Request("Page"))
         Else 
          WzPage =1
       End If

       If WzPage <= 0 Then WzPage =1

       PageNum = (WzPage \ 10)*10+1

       If WzPage Mod 10 = 0 Then PageNum = (WzPage \ 10)*10-9
	        Response.Write ("<font face=""Webdings"">")
            Response.Write ("<a href=""?Id="& BoardID &"&Page=1&SpecialName="& SpecialName &""" title=""首页"">9</a>")
			Response.Write ("<a href=""?Id="& BoardID &"&Page="& PageNum-1 &"&SpecialName="& SpecialName &""" title=""前十页"">7</a>")
            Response.Write ("</font>")
       For PageNum = PageNum TO PageNum + 9
           If PageNum = WzPage Then
                  Response.Write ("<font color=""#FF0000"">")
                  Response.Write (" ["& PageNum &"] ")
                  Response.Write ("</font>")
		      Else
                  Response.Write (" <a href=""?Id="& BoardID &"&Page="& PageNum &"&SpecialName="& SpecialName &""">")
                  Response.Write ("["& PageNum &"]")
                  Response.Write ("</a> ")
			End If
         If PageNum >= PageCount Then Exit For
       Next
	        Response.Write ("<font face=""Webdings"">")
            Response.Write ("<a href=""?Id="& BoardID &"&Page="& PageNum &"&SpecialName="& SpecialName &"""  title=""后十页"">8</a>")
			Response.Write ("<a href=""?Id="& BoardID &"&Page="& PageCount &"&SpecialName="& SpecialName &"""  title=""末页"">:</a>")
            Response.Write ("</font>")
End Function
%><!--#include file="../inc/tom1.inc"-->