special.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")
if page="" or page<1 then page=1 end if
AccessNum=AccessNum+1
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT ID,Special,special_explain,AppendTime FROM Special order by AppendTime 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;>>&nbsp;</font><a href=# onclick=history.go(-1)><font class=NavColor>返回</font></a></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=200 class=TBHead><font class=HeadFont><b>专题名称</b></font></td><td width=450 class=TBHead><font class=HeadFont><b>专题介绍</b></font></td><td width=120 class=TBHead align=center><font class=HeadFont><b>创建时间</b></font></td></tr>"
if rs.bof and rs.EOF then
    Response.Write "<tr><td height=27 colspan=4 class=light><center>没有任何记录</center></td></tr>"
    pagecount=0
else
    i=0
    while not rs.EOF and i<ListNum  '读出主题列表
       i=i+1
       Response.Write "<tr><td height=27 align=center class=light1>"&cstr(rs("id"))&"</td><td class=light>&nbsp;<a href=Special_Topic.asp?id="&rs("id")&"&SpecialName="&rs("Special")&">"&rs("Special")&"</a></td><td class=light>&nbsp;"&rs("special_explain")&"</td><td align=center class=light>"&cstr(rs("AppendTime"))&"</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(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"-->