elselist.asp

asp构建网站bbs.采用B/S架构

<%action=request.querystring("action")%>
<!--#include file="up.asp"-->
<script language="javascript">
function Check(){var Name=document.form.topage.value;
document.location='?action=new&topage='+Name+'';
}
</script>
<style>TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px;}</style>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="98%" height="40">
    <tr>
      <td width="100%"> · <a href="elselist.asp?action=mytop">我发表的主题</a> · <a href="elselist.asp?action=withmetop">我参与的主题</a> · <a href="elselist.asp?action=new">查看新帖</a> · <a href="elselist.asp?action=jh">精 华 区</a> ·</td>
    </tr>
  </table>
  </center>
</div>
<%
dim rs
dim sql
set rs = server.createobject("adodb.recordset")
select case action
case"jh"
href1="<a href=?topage=1&action=jh>"
sql = "select * from bbstl where type=1 order by orders desc"
count=myconn.execute("select count(id)from bbstl where type=1")(0)
case"new"
href1="<a href=?topage=1&action=new>"
sql = "select * from bbstl where type<>5 order by orders desc"
count=myconn.execute("select count(id)from bbstl where type<>5")(0)
case"mytop"
href1="<a href=?topage=1&action=mytop>"
sql = "select * from bbstl where name='"&lgname&"' and type<>5 order by gonggao desc,orders desc"
count=myconn.execute("select count(id)from bbstl where type<>5 and name='"&lgname&"'")(0)
case"withmetop"
href1="<a href=?topage=1&action=withmetop>"
sql = "select * from bbstl where type<>5 and (id in (select bid from bbs"&autotable&" where name='"&lgname&"') or name='"&lgname&"') order by gonggao desc,orders desc"
count=myconn.execute( "select count(id) from bbstl where type<>5 and (id in (select bid from bbs"&autotable&" where name='"&lgname&"') or name='"&lgname&"')")(0)
end select
on error resume next
pagesetup=20
rs.Open sql,myConn,1
If Count/pagesetup > (Count\pagesetup) then
TotalPage=(Count\pagesetup)+1
else TotalPage=(Count\pagesetup)
End If
PageCount= 0
RS.MoveFirst
if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
RS.Move (PageCount-1) * pagesetup
%>
<div align=center><center>
<table bgcolor=<%=c1%> border=1 cellpadding=0 cellspacing=0 style="border-collapse:collapse; border-left-width:1px; border-right-width:1px; border-top-width:1px" bordercolor=<%=c1%> width="98%" id=AutoNumber5 height="27">
<tr>
  <td width=4% align=center background="pic/<%=sp%>3.gif">
  <b><font color="#FFFFFF">状态</font></b></td>
  <td width=42% align=center background="pic/<%=sp%>3.gif">
  <b><font color="#FFFFFF">主 题</font><font color="#FFFFFF"> ( 点小图标在新窗口浏览 )</font></b></td>
<td width=9% align=center background="pic/<%=sp%>3.gif"><b><font color="#FFFFFF">作 者</font></b></td>
  <td width=9% align=center background="pic/<%=sp%>3.gif">
  <b><font color="#FFFFFF">回复/</font><font color="#FFFFFF">人气</font></b></td>
<td width=16% align=center background="pic/<%=sp%>3.gif">
<b><font color="#FFFFFF">最后更新时间</font></b></td>
  <td width=9% align=center background="pic/<%=sp%>3.gif">
  <b><font color="#FFFFFF">最后回复</font></b></td></tr></table></center></div>
<%
i=1
do while not rs.eof
rrzz=kbbs(rs("zhuti"))
lastre=kbbs(rs("lastre"))
lbs=split(lastre,"|?|")
zui=""&lbs(0)&""
tltl="最后更新："&lbs(1)&""
bno1=rs("bnum")
fface=rs("face")
if rs("type")=1 then fface="jing"
response.write"<div align=center><center><table width='98%' border=1 cellpadding=0 cellspacing=0 style='TABLE-LAYOUT: fixed; WORD-BREAK: break-all;border-collapse:collapse; border-left-width:1px; border-right-width:1px; border-top-width:1px' bordercolor="&c1&"  id=AutoNumber5><tr><td width=4%  bgcolor="&c2&" height=23 align=center><a target=_blank href=show.asp?id="&rs("id")&"&bd="&rs("bd")&"&totable="&rs("totable")&"><img border=0 src=face/"&fface&".gif></a></td><td width=42% height=27 align=left onmouseover=javascript:this.bgColor='"&c2&"' onmouseout=javascript:this.bgColor=''>&nbsp;<a  target=_self href=show.asp?id="&rs("id")&"&bd="&rs("bd")&"&totable="&rs("totable")&" title="&LeftTrue(tltl,60)&">"&LeftTrue(rrzz,44)&"</a>"

if rs("riqi")+1 > now() then
response.write" <img align=absmiddle border=0 src=pic/new.gif alt='24小时新帖标志'>"
end if

if bno1>10 then
response.write"<img align=absmiddle border=0 src=pic/hot.gif>"
end if
response.write"</td><td width=9%  bgcolor="&c2&" height=23 align=center><a href='userinfo.asp?name="&kbbs(rs("name"))&"'>"&kbbs(rs("name"))&"</a></td><td width=9% height=23 align=center>"&bno1&"/"&rs("hits")&"</td><td width=16% height=23 align=center>"&rs("orders")&"</td><td width=9% bgcolor="&c2&"  height=23 align=center>"&zui&"</td></tr></table></center></div>"
i=i+1
if i>pagesetup then exit do
rs.movenext
loop
rs.Close
%>
  <div align="center">
    <center>
<TABLE bgcolor=<%=c1%> borderColor=<%=c1%> cellSpacing=0 cellPadding=0 width="98%" border=1 style="border-collapse: collapse; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px">
<TBODY>
<TR height=25>
<TD height=2>
<TABLE cellSpacing=0 cellPadding=3 width="100%" border=0 background="pic/<%=sp%>3.gif" style="border-collapse: collapse; border-left-width:0; border-top-width:0; border-bottom-width:0">
<TBODY>
<TR>
<TD><b><font color="#FFFFFF">&nbsp;<img border="0" src="pic/fl.gif"> 本论坛共有</font><font color="#00FFFF"> <%=TotalPage%> </font><font color="#FFFFFF">页,<font color="#00FFFF"> <%=count%> </font>个话题，每页有<font color="#00FFFF"> <%=pagesetup%> </font> 张贴子 >> [
<%
ii=PageCount-5
iii=PageCount+5
if ii < 1 then
ii=1
end if
if iii > TotalPage then
iii=TotalPage
end if

if PageCount > 6 then
Response.Write ""&href1&"<font color=yellow>1</font></a> ... "
end if

for i=ii to iii
If i<>PageCount then
if action="new" then
href2="<a href=?topage="& i &"&action=new>"
href3="<a href=?topage="&TotalPage&"&action=new>"
end if
if action="hsz" then
href2="<a href=?topage="& i &"&action=hsz>"
href3="<a href=?topage="&TotalPage&"&action=hsz>"
end if
if action="jh" then
href2="<a href=?topage="& i &"&action=jh>"
href3="<a href=?topage="&TotalPage&"&action=jh>"
end if
if action="mytop" then
href2="<a href=?topage="& i &"&action=mytop>"
href3="<a href=?topage="&TotalPage&"&action=mytop>"
end if
if action="withmetop" then
href2="<a href=?topage="& i &"&action=withmetop>"
href3="<a href=?topage="&TotalPage&"&action=withmetop>"
end if

Response.Write ""&href2&"<font color=yellow>" & i & "</font></a> "
else
Response.Write " <font color=red><b>"&i&"</b></font> "
end if
next

if TotalPage > PageCount+5 then
Response.Write " ... "&href3&"<font color=yellow>"&TotalPage&"</font></a>"
end if
%> ]</font></b></TD>
<form name=form method="POST" action=javascript:Check()>
<TD height=2 align="right"><font color="#FFFFFF">页码：<input style=FONT-SIZE:9pt maxLength="6" size="6" name="topage" value="<%=PageCount%>">
<input style=FONT-SIZE:9pt value="GO!" type="submit"></font></TD></form>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
</center>
  </div>
<br>
<!--#include file="line.asp"-->
<%
response.write"<div align=center><center><table bgcolor="&c1&" border=1 cellpadding=0 cellspacing=0 style='border-collapse:collapse; border-left-width:1px; border-right-width:1px; border-top-width:1px' bordercolor="&c1&" width='98%' height='27' ><tr><td width=100% height='27' background='pic/"&sp&"3.gif'><font color='#FFFFFF'>&nbsp;<b><img border='0' src='pic/tj.gif' align='absmiddle'> 在线统计：</b>目前论坛总共有 <b>"&lineno&"</b> 人在线。其中有 <b>"&usno&"</b> 位会员， <b>"&nusno&"</b> 位游客。 </font></td></tr></table></center></div>"&_
"<br><div align=center><center><table height=25 border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='98%'><tr><td width='180' background='pic/"&sp&"3.gif'>&nbsp;<img border='0' src='pic/fl.gif'> <font color='#FFFFFF'><b>论坛帖子图例</b></font></td></tr></table></center></div><div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=98% ><tr><td width=100% height=40>&nbsp;<img border=0 src=face/alltop.gif> 总置顶帖子 &nbsp;&nbsp;&nbsp;  <img border=0 src=face/top.gif> 置顶帖子 &nbsp;&nbsp;&nbsp;  <img border=0 src=face/jing.gif> 精华帖子 &nbsp;&nbsp;&nbsp;  <img border=0 src=face/lock.gif> 锁定帖子 &nbsp;&nbsp;&nbsp;  <img border=0 src=face/vote.gif> 投票帖子 &nbsp;&nbsp;&nbsp;  <img border=0 src=pic/hot.gif> 热门帖子 &nbsp;&nbsp;&nbsp;  <img border=0 src=pic/new.gif> 今日帖子</td></tr></table></center></div>"&_
"<br><div align=center><center><table height=25 border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='98%'><tr><td width='180' background='pic/"&sp&"3.gif'>&nbsp;<img border='0' src='pic/fl.gif'> <font color='#FFFFFF'><b>论坛快速搜索</b></font></td></tr></table></center></div><div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=98% ><tr><form method='get'><td width=100% height=30>&nbsp;查询字符：<INPUT name=find size=20> <input type=hidden value='"&bd&"' name=bd><input type=submit value=' 搜 索 '> <input type=reset value=' 重 置 '></td></form></tr></table></center></div>"
%>
<br><!--#include file="down.asp"-->