listtop.asp

可以做论坛

<!--#include file="user.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="sysinfo.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="asptbfunction.asp"-->
<link href="css.css" rel="stylesheet" type="text/css">
<% 
Server.ScriptTimeOut=120
cczt="select * from neirong  where zt=1 and shanzhu=0"
set rszt=server.createobject("adodb.recordset")
cczt=cczt+" order by yue desc"
'cczt=cczt+" order by huitime desc"
rszt.open cczt,conn,1,1
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

%>
<title>主题排行榜</title>
<table width="775" border="0" align="center" cellspacing="0">
  <tr> 
    <td width="200"><a href=./><img src=<%=slogo%> border=0></td>
    <td><form name=form2 method=post action=searh.asp>
        <table width=100% border=0 align=center cellspacing=0>
          <tr> 
            <td><div align=center> 
                <input name=key type=text value="<%=luntan%>" size=30>
                <input type=submit name=Submit value=贴吧搜索>
              </div></td>
          </tr>
          <tr> 
            <td><div align=center> 
                <input name=rad type=radio value=1  checked>
                进入贴吧 
                <input type=radio name=rad value=2>
                查找主题 
                <input type=radio name=rad value=3>
                查找内容 
                <input type=radio name=rad value=4>
                国际搜索 </div></td>
          </tr>
        </table>
      </form></td>
    <td width="120"><%=stoprguang%></td>
  </tr>
</table>
<!--#include file="gongneng.asp"-->
<table width=775 border="0" align="center" cellspacing="0" class="td4">
  <tr> 
    <td>·<a href="./"><font color="#FFFFFF">首页</font></a>>>>主题排行
    </td>
    </tr>
</table>
<table width=775 border="0" align="center" cellspacing="0">
  <tr>
    <td width="70%" valign="top"> 
      <%if not rszt.eof then '还没有贴子 %>
	  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr class="td1"> 
          <td width="8%" >点击</td>
          <td width="8%" height="20">回复</td>
          <td width="35%">主题</td>
          <td width="15%">作者</td>
          <td width="20%">最后回复</td>
          <td>回复者</td>
        </tr>
        <%
IF not rszt.eof then
rszt.PageSize = spageshu 'pagesize属性指定了每页要显示的记录条数 
'Page = CLng(Request("Page")) 'string型转化为long型 
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 > rszt.PageCount Then Page = rszt.PageCount 
end if
rszt.AbsolutePage = Page
i=1
For iPage = 1 To rszt.PageSize
ii=i mod 2
if ii=1 then 
bgc=""
else 
bgc="td6"
end if
%>
        <tr class=<%=bgc%>> 
          <td><%=rszt("yue")%></td>
          <td><%=rszt("lay")%></td>
          <td> 
            <%
		  if rszt("html")=1 then
		  Response.Write "<a href=jinghuau/"&rszt("idl")&"/"&rszt("ids")&".htm target=_self>"
		  else
		  Response.Write "<a href=show.asp?ids="&rszt("ids")&" target=_self>"
		  end if
		  
		  if rszt("zhiding")=1 then
		  Response.Write "<font color=#FF0000>[置顶]</font>"
		  else
		  end if
		  if rszt("jinghuau")=1 then
		  Response.Write "<font color=#FF0000>[精华]</font>"
		  else
		  end if
		  %>
            <%=rszt("zhuti")%> </a></td>
          <td> 
            <%
		  idzz=rszt("zuozhe")
		  if idzz=0 then
		  bmm="游客"
		  Response.Write ""&bmm&""
		  else 
		  huizz="select * from user where idy="&idzz
          set rszz=server.createobject("adodb.recordset")
          rszz.open huizz,conn,1,1
		  bmm=rszz("bm")
		  Response.Write "<a href=showuser.asp?idy="&rszz("idy")&">"&bmm&"</a>"
		  rszz.close
          set rszz=nothing		  
		  end if
		  
		  %>
          </td>
          <td><%=rszt("huitime")%></td>
          <td width="10%"> 
            <%
		  idzz=rszt("huizz")
		  if idzz=0 then
		  bmm="游客"
		  Response.Write ""&bmm&""
		  else 
		  huizz="select * from user where idy="&idzz
          set rszz=server.createobject("adodb.recordset")
          rszz.open huizz,conn,1,1
		  bmm=rszz("bm")
		  Response.Write "<a href=showuser.asp?idy="&idzz&">"&bmm&"</a>"
		  end if
		  
		  %>
          </td>
        </tr>
        <% rszt.MoveNext 
 i=i+1
If rszt.EOF Then Exit For 
Next 
%>
      </table>
	  <%end if '还没贴子%>
    </td>
    <td width="30%" valign="top"> 
      <table width="100%" border="0" cellspacing="0">
        <tr> 
          <td height="20" align="center" class="td1"><a href="/" target="_self"><%=swebname%></a>最新推荐：</td>
        </tr>
        <tr> 
          <td class=tdz12> 
            <%
				  set rst=server.createobject("adodb.recordset")
                  rst.open "select top 20 * from luntan where tuijian=1 and shanzhu=0 order by tjtime desc",conn,1,1
		          if not rst.eof then
				  do while not rst.eof 
		          luntant=rst("luntan")
		          %>
            <a href="list.asp?IDL=<%=rst("IDL")%>" target="_self">[<%=luntant%>]</a> 
            <%
		          rst.MoveNext
                  Loop
				  else 
				  Response.Write "还没推荐"
				  end if
		          %>
          </td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0">
        <% if len(srguang)>6 then%>
		<tr> 
          <td align="center"><%=srguang%></td>
        </tr>
		<%end if%>
        <tr> 
          <td align="center" valign="top" class="td1">最新回复主题 </td>
        </tr>
        <tr>
          <td align="left" valign="top" class=tdz12> 
          <%
		  if rszx.eof then
		  Response.Write "还没新贴"
		  else
		  do while not rszx.eof
		      if len(rszx("zhuti"))<18 then
			  zhuti=rszx("zhuti")
			  else
			  zhuti=left(rszx("zhuti"),16)&"…"
			  end if
		  Response.Write " ·<a href=show.asp?ids="&rszx("ids")&">"&zhuti&"</a><br>"
		  rszx.MoveNext
          Loop
		  end if
		  %>
          </td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="775" border="0" align="center" cellspacing="0">
  <tr>    
    <td> 
      <%
Response.write"第" & Page & "页/总共有" & rszt.PageCount & " 页 每页"& rszt.PageSize &"个主题"

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