tiebalist.asp

可以做论坛

<!--#include file="top.asp"-->
<!--#include file="user.asp"-->
<!--#include file="sysinfo.asp"-->
<!--#include file="gongneng.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="asptbfunction.asp"-->
<title><%=swebname%>-贴吧列表</title>
<%
zxtei=spageshu-5
cczx="select top "&zxtei&" * from neirong  where zt=1 and shanzhu=0"
set rszx=server.createobject("adodb.recordset")
cczx=cczx+" order by huitime desc"
rszx.open cczx,conn,1,1
IDLLIST=request("idl")
newto=request("newto")
hotto=request("hotto")
if newto<>1 and hotto<>1 then
if IDLLIST="" then
IDLLIST=0
end if
if IDLLIST>0 then
cfenlei="select  * from luntan where idl="&IDLLIST&" and shanzhu=0"
set rfenlei=server.createobject("adodb.recordset")
rfenlei.open cfenlei,conn,1,1
IDDL=rfenlei("idl")
luntanfl=rfenlei("luntan")
else 
IDDL=0
luntanfl="综合"
end if
pageto="idl="&IDPP&""
nrongtop="select  * from luntan where fenlei="&IDDL&" and shanzhu=0  order by tieshu desc"
else
if hotto=1 then 
nrongtop="select  * from luntan where fenlei<>-1 and shanzhu=0  order by tieshu desc"
luntanfl="最热"
pageto="hotto=1"
end if
if newto=1 then 
nrongtop="select  * from luntan where fenlei<>-1 and shanzhu=0  order by jltime desc"
luntanfl="最新"
pageto="newto=1"
end if
end if
set nrtop=server.createobject("adodb.recordset")
nrtop.open nrongtop,conn,1,1
IF not nrtop.eof then
nrtop.PageSize = 125
Page = Request("Page")
nemerstr=Page
call ornonemer(nemerstr,nonemer)
if Page="" or nonemer>0 then 
Page=1
end if
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1 
If Page > nrtop.PageCount Then Page = nrtop.PageCount 

nrtop.AbsolutePage = Page

%>
<table width="775" border="0" align="center" cellspacing="0" >
  <tr>
    <td class="td4">·<a href="./" target="_self"><font color="#F6F6F6">首页</font></a>>>><%=luntanfl%><%=sbbs%>排行</td>
	<td class="td4"><a href=tiebalist.asp?newto=1><font color="#F6F6F6">最新<%=sbbs%></font></a> | 
    <a href=tiebalist.asp?hotto=1><font color="#F6F6F6">最热<%=sbbs%></font></a></td>
  </tr>
</table>
<table width="775" border="0" align="center" cellspacing="0">
  <tr> 
    <td width="70%" valign="top"><table width="100%" border="0" cellspacing="0">
        
<%
For iPage = 1 To nrtop.PageSize
ii=iPage mod 2
if ii=1 then 
bgc=""
else 
bgc="td6"
end if

if iPage mod 5 =1 then
response.Write"</tr><tr  class="&bgc&">"
end if
response.Write"<td>[ <a href=list.asp?idl="&nrtop("idl")&" target=_self>"&nrtop("luntan")&"</a> ]</td>"
nrtop.MoveNext 
If nrtop.EOF Then Exit For 
Next 
%>       
	    </tr>
      </table>
      <table width="100%" border="0" cellspacing="0">
        <tr>
          <td>
<%
Response.write"第" & Page & "页/总共有" & nrtop.PageCount & " 页 每页"& nrtop.PageSize &"个"&sbbs& ""

If Page > 1 Then 
Response.Write " <A HREF=tiebalist.asp?"&pageto&"&Page=1>第一页</A>