jinghuaulist.asp

可以做论坛

<% Server.ScriptTimeOut=120 %>
<!--#include file="top.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="gongneng.asp"-->
<%
cczt="select * from neirong  where zt=1 and shanzhu=0 and jinghuau=1"
set rszt=server.createobject("adodb.recordset")
cczt=cczt+" order by zhiding desc"
rszt.open cczt,conn,1,1
cczx="select top 15 * 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
jinghuanlist=""
jinghuanlist=jinghuanlist&"<title>精华贴列表</title>"
jinghuanlist=jinghuanlist&"<table width=775 border=0 align=center cellspacing=0>"
jinghuanlist=jinghuanlist&"<tr>"
jinghuanlist=jinghuanlist&"<td class=td4>·<a href=./><font color=#FFFFFf>首页</tont></a>&gt;&gt;&gt;精华贴列表 </td>"
jinghuanlist=jinghuanlist&"</tr>"
jinghuanlist=jinghuanlist&"</table>"
jinghuanlist=jinghuanlist&"<table width=775 border=0 align=center cellspacing=0>"
jinghuanlist=jinghuanlist&"<tr>"
jinghuanlist=jinghuanlist&"<td width=70% valign=top> "
if not rszt.eof then '还没有贴子
jinghuanlist=jinghuanlist&"<table width=100% border=0 align=center cellpadding=0 cellspacing=0 >"
jinghuanlist=jinghuanlist&"<tr class=td1> "
jinghuanlist=jinghuanlist&"<td width=8%/>点击</td>"
jinghuanlist=jinghuanlist&"<td width=8% height=20>回复</td>"
jinghuanlist=jinghuanlist&"<td width=35%/>主题</td>"
jinghuanlist=jinghuanlist&"<td width=15%/>作者</td>"
jinghuanlist=jinghuanlist&"<td width=20%/>发表时间</td>"
jinghuanlist=jinghuanlist&"<td>来自"&sbbs&"</td>"
jinghuanlist=jinghuanlist&"</tr>"

IF not rszt.eof then
rszt.PageSize = spageshu 'pagesize属性指定了每页要显示的记录条数 
Page = CLng(Request("Page")) 'string型转化为long型 
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

jinghuanlist=jinghuanlist&"<tr class="&bgc&"> "
jinghuanlist=jinghuanlist&"<td>"&rszt("yue")&"</td>"
jinghuanlist=jinghuanlist&"<td>"&rszt("lay")&"</td>"
if rszt("html")=1 then
jinghuanlist=jinghuanlist&"<td><a href=jinghuau/"&rszt("idl")&"/"&rszt("ids")&".htm target=_self>"
else
jinghuanlist=jinghuanlist&"<td><a href=show.asp?ids="&rszt("ids")&" target=_self> "
end if       
		  if rszt("zhiding")=1 then
jinghuanlist=jinghuanlist&"<font color=#FF0000>[置顶]</font>"
		  else
		  end if
		  if rszt("jinghuau")=1 then
jinghuanlist=jinghuanlist&"<font color=#FF0000>[精华]</font>"
		  else
		  end if
		 
jinghuanlist=jinghuanlist&rszt("zhuti")&"</a></td>"
jinghuanlist=jinghuanlist&"<td>"
        
		  idzz=rszt("zuozhe")
		  if idzz=0 then
		  bmm="游客"
jinghuanlist=jinghuanlist&""&bmm&""
		  else 
		  huizz="select * from user where idy="&idzz
          set rszz=server.createobject("adodb.recordset")
          rszz.open huizz,conn,1,1
		  bmm=rszz("bm")
jinghuanlist=jinghuanlist&"<a href=showuser.asp?idy="&rszz("idy")&">"&bmm&"</a>"
		  end if
		  
	
jinghuanlist=jinghuanlist&"</td>"
jinghuanlist=jinghuanlist&"<td>"&rszt("zttime")&"</td>"
jinghuanlist=jinghuanlist&"<td width=10%/>"
       
		  IDLl=rszt("idl")
		  llun="select * from luntan where shanzhu=0 and idl="&IDLl
          set rslun=server.createobject("adodb.recordset")
          rslun.open llun,conn,1,1
		  llunt=rslun("luntan")
jinghuanlist=jinghuanlist&"<a href=list.asp?idl="&IDLl&">"&llunt&"</a>"
		  
		 
jinghuanlist=jinghuanlist&"</td>"
jinghuanlist=jinghuanlist&"</tr>"
       rszt.MoveNext 
 i=i+1
If rszt.EOF Then Exit For 
Next 

jinghuanlist=jinghuanlist&"</table>"
	 end if '还没贴子
jinghuanlist=jinghuanlist&"</td>"
jinghuanlist=jinghuanlist&"<td width=30% valign=top> "
jinghuanlist=jinghuanlist&"<table width=100% border=0 cellspacing=0>"
jinghuanlist=jinghuanlist&"<tr>"
jinghuanlist=jinghuanlist&"<td height=20 align=center class=td1><a href=/ target=_self>"&swebname&"</a>最新推荐</td>"
jinghuanlist=jinghuanlist&"</tr>"
jinghuanlist=jinghuanlist&"<tr>" 
jinghuanlist=jinghuanlist&"<td>" 
            
				  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")
		        
jinghuanlist=jinghuanlist&"<a href=list.asp?IDL="&rst("IDL")&" target=_self>["&luntant&"]</a>" 
            
		          rst.MoveNext
                  Loop
				  'else 
				  'Response.Write "还没推荐"
				  end if
		          
jinghuanlist=jinghuanlist&"</td>"
jinghuanlist=jinghuanlist&"</tr>"
jinghuanlist=jinghuanlist&"</table>"
jinghuanlist=jinghuanlist&"<table width=100% border=0 cellspacing=0>"
       if len(srguang)>6 then
jinghuanlist=jinghuanlist&"<tr> "
jinghuanlist=jinghuanlist&"<td align=center>"&srguang&"</td>"
jinghuanlist=jinghuanlist&"</tr>"
		end if
jinghuanlist=jinghuanlist&"<tr> "
jinghuanlist=jinghuanlist&"<td align=center valign=top class=td1>最新回复主题 </td>"
jinghuanlist=jinghuanlist&"</tr>"
jinghuanlist=jinghuanlist&"<tr>"
jinghuanlist=jinghuanlist&"<td align=left valign=top> "
          
		  if rszx.eof then
jinghuanlist=jinghuanlist&"还没新贴"
		  else
		  do while not rszx.eof
		      if len(rszx("zhuti"))<19 then
			  zhuti=rszx("zhuti")
			  else
			  zhuti=left(rszx("zhuti"),18)&"…"
			  end if
jinghuanlist=jinghuanlist&"·<a href=show.asp?ids="&rszx("ids")&">"&zhuti&"</a><br>"
		  rszx.MoveNext
          Loop
		  end if
		
jinghuanlist=jinghuanlist&"</td>"
jinghuanlist=jinghuanlist&"</tr>"
jinghuanlist=jinghuanlist&"</table></td>"
jinghuanlist=jinghuanlist&"</tr>"
jinghuanlist=jinghuanlist&"</table>"
jinghuanlist=jinghuanlist&"<table width=775 border=0 align=center cellspacing=0>"
jinghuanlist=jinghuanlist&"<tr>"
jinghuanlist=jinghuanlist&"<td>&nbsp;</td>"
jinghuanlist=jinghuanlist&"<td>" 
    
jinghuanlist=jinghuanlist&"第" & Page & "页/总共有" & rszt.PageCount & " 页 每页"& rszt.PageSize &"个主题"

If Page <> 1 Then 
jinghuanlist=jinghuanlist&"<A HREF=jinghuaulist.asp?Page=1>第一页</A>