tiebatop.asp

可以做论坛

<!--#include file="top.asp"-->
<!--#include file="user.asp"-->
<!--#include file="sysinfo.asp"-->
<!--#include file="gongneng.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="newshowtop.asp"-->
<!--#include file="luntantuijian.asp"-->
<!--#include file="asptbfunction.asp"-->
<title><%=swebname%>-贴吧列表</title>
<%
nrongtop="select  * from luntan where fenlei=-1 and shanzhu=0"
set nrtop=server.createobject("adodb.recordset")
nrtop.open nrongtop,conn,1,1
IF not nrtop.eof then
nrtop.PageSize = 15
fenlieshu=50
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>>>><%=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

IDL=nrtop("idl")		
response.Write"<tr class=td1><td colspan=5><font color=#FF0000>〖<a href=tiebalist.asp?idl="&IDL&" target=_self><font color=#FF0000><strong>"&nrtop("luntan")&"</strong></font></a>〗</font></td></tr><tr>"
cltn="select  * from luntan where shanzhu=0 and fenlei="&IDL&""
set rslt=server.createobject("adodb.recordset")
rslt.open cltn,conn,1,1
i=0
do  while not rslt.eof and CInt(fenlieshu)>CInt(i)

if i mod 5 =0 then
response.Write"</tr><tr>"
end if
i=i+1
if CInt(i)=CInt(fenlieshu) then
response.Write"<td> <a href=tiebalist.asp?idl="&IDL&" target=_self><font color=#FF0000>更多>>></font></a> </td>"
else
response.Write"<td>[ <a href=list.asp?idl="&rslt("idl")&" target=_self>"&rslt("luntan")&"</a> ]</td>"
end if
rslt.MoveNext 
loop

nrtop.MoveNext 
If nrtop.EOF Then Exit For 
Next 
if Page = nrtop.PageCount then
cltn0="select  * from luntan where fenlei=0 and shanzhu=0"
set rslt0=server.createobject("adodb.recordset")
rslt0.open cltn0,conn,1,1
i=0
response.Write"</tr><tr class=td1><td colspan=5>·<a href=tiebalist.asp?idl=0 target=_self>综合"&sbbs&"</a></td></tr><tr>"
do  while not rslt0.eof and CInt(fenlieshu)>CInt(i)
if i mod 5 =0 then
response.Write"</tr><tr>"
end if
i=i+1
if CInt(i)=CInt(fenlieshu) then
response.Write"<td> <a href=tiebalist.asp?idl=0 target=_self><font color=#FF0000>更多>>></font></a> </td>"
else
response.Write"<td>[ <a href=list.asp?idl="&rslt0("idl")&" target=_self>"&rslt0("luntan")&"</a> ]</td>"
end if
rslt0.MoveNext 
loop
end if
%>       
	    </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=tiebatop.asp?idl="&IDPP&"&Page=1>第一页</A>