list.asp

一个小巧的论坛程序 本程序基本功能： 可开设任意数目的讨论区类别和版块 使用Cookies

<%find=check2(Request.querystring("find"))
mybbs=check2(Request.querystring("mybbs"))
pai=check2(request.querystring("pai"))
if pai="" then
pai="orders"
end if%>
<!--#include file="up.asp"-->
<SCRIPT>
function openscript(id,bd){var Win = window.open('showgg.asp?id='+id+'&bd='+bd+'','open','width=600,height=400,resizable=1,scrollbars=yes,menubar=no,status=yes')}
</SCRIPT>
<%
response.write"<script language='javascript'>function Check(){var Name=document.form.topage.value;document.location='?bd="&bd&"&topage='+Name+'&find="&find&"&mybbs="&mybbs&"';}</script>"
bdlogin(1)
if bdtype<>2 or canre="yes" or admin=3 then 
fbt="<a target='_self' href='say.asp?bd="&bd&"&re=no'><img border=0 src=pic/fabiao.gif align='middle'></a>"
end if
response.write"<div align='center'><center><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='98%' height='42'><tr><td width='68%'>"&fbt&"</td><td width='32%' align='right' valign='bottom'><p style='margin-right: 4; margin-bottom: 3'><a href='?bd="&bd&"&mybbs="&lgname&"'>我的帖子</a><img border=0 src=pic/"&sp&"2.gif><a href='goodlist.asp?bd="&bd&"'>本版精华</a> </td></tr></table></center></div>"&_
"<div align='center'><center><table width='98%' height=28 cellpadding=0 style='border-collapse: collapse; border-left-width:1px; border-right-width:1px; border-top-width:1px' bordercolor='"&c1&"' cellspacing='0'><tr><td width='76%' height='21' style='border-left-style: solid; border-left-width: 1; border-top-style: solid; border-top-width: 1'><p style='margin-left: 5'><img border=0 align=absmiddle src=pic/gonggao.gif> 论坛公告："
set seegg=myconn.execute("select id,zhuti,riqi,bd from gonggao where bd="&bd&" order by id")
if ltgg<>"n" then 
if seegg.eof then
response.write"<a id=menu0></a>当前没有公告"
else
response.write"<MARQUEE id=menu0 onmouseover=this.stop() onmouseout=this.start() scrollAmount=2 width=50% >"
do while not seegg.eof
idgg=seegg("id")
bdgg=seegg("bd")
response.write"<a href=javascript:openscript("&idgg&","&bdgg&")><img src=pic/bbsinfo.gif border=0> <font color="&c2&">"&kbbs(seegg("zhuti"))&"</font></a>"
riqi=seegg("riqi")
seegg.movenext
loop
end if
seegg.close
set seegg=nothing
response.write"</marquee>"
end if
response.write"</td><td style='border-right-style:solid; border-right-width:1px; border-top-style:solid; border-top-width:1px' bordercolor="&c1&" align='right' width=$1><p style='margin-left: 4'><p style='margin-right: 3; margin-top: 1; margin-bottom: 1'><img border='0' src='pic/fl.gif'> "
q1=1
set body1=myconn.execute("SELECT*FROM admin where bd='"&bd&"'")
if body1.eof and body1.bof then
response.write"本版诚聘版主！"
else
response.write"<select size=1 name=D1 style='font-size: 9pt'><option>论坛版主</option><option>———</option>"
do while not body1.eof
response.write"<option>"&kbbs(body1("name"))&"</option>"
q1=q1+1
if q1>4 then exit do
body1.movenext
Loop
response.write"</select>"
end if
body1.Close
set body1=nothing
response.write"</td></tr></table></center></div>"
dim rs
dim sql
set rs = server.createobject("adodb.recordset")
href1=" <a href=?topage=1&bd="&bd&"&find="&find&"&mybbs="&mybbs&">"
if find<>"" then
sql = "select * from bbstl where (zhuti like '%" &find& "%' or name like '%" &find& "%') and bd="&bd&" and type<>5 order by orders desc"
end if
if mybbs<>"" then
sql = "select * from bbstl where name='"&mybbs&"' and bd="&bd&" and type<>5 order by gonggao desc,"&pai&" desc"
end if
if find="" and mybbs="" then
sql = "select * from bbstl where (bd="&bd&" or gonggao=5) and type<>5 order by gonggao desc,"&pai&" desc"
end if
on error resume next
pagesetup=20
rs.Open sql,myConn,1
count=rs.recordcount
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
response.write"<div align=center><center><table class=list background=pic/"&sp&"3.gif bgcolor="&c2&" 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='30'><tr><td width=4% align=center><b><font color='#FFFFFF'>状态</font></b></td><td width=42% align=center ><b><a target=_self href=list.asp?bd="&bd&"&pai=zhuti><font color='#FFFFFF'>主 题</font></a><font color='#FFFFFF'> ( 点小图标在新窗口浏览 )</font></b></td>"&_
"<td width=9% align=center ><b><a target=_self href=list.asp?bd="&bd&"&pai=name><font color='#FFFFFF'>作 者</font></a></b></td><td width=9% align=center ><b><font color='#FFFFFF'>回复/</font><a target=_self href=list.asp?bd="&bd&"&pai=hits><font color='#FFFFFF'>人气</font></a></b></td><td width=16% align=center ><b><a target=_self href=list.asp?bd="&bd&"><font color='#FFFFFF'>最后更新时间</font></a></b></td><td width=9% align=center ><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")
remy=10
if bno1/remy>(bno1\remy) then
repage=(bno1\remy)+1
else
repage=bno1\remy
end if
leftn=40
if repage>4 then leftn=30
if repage>10 then leftn=20
ggtype=rs("gonggao")
bbtype=rs("type")
isvote=rs("isvote")
face=rs("face")
if isvote=2 then face="vote"
if bbtype=4 then face="lock"
if bbtype=1 then face="jing"
if ggtype=3 then face="top"
if ggtype=5 then face="alltop"
response.write"<div align=center><center><table class=list width='98%' border=1 cellpadding=0 cellspacing=0 style='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% height=28 align=center><a target=_blank href=show.asp?id="&rs("id")&"&bd="&bd&"&totable="&rs("totable")&"><img border=0 src=face/"&face&".gif></a></td><td width=42% height=27 align=left onmouseover=javascript:this.bgColor='#FAFAFA' onmouseout=javascript:this.bgColor=''>&nbsp;<a target=_self href=show.asp?id="&rs("id")&"&bd="&bd&"&totable="&rs("totable")&" title='"&LeftTrue(tltl,25)&"'>"&LeftTrue(rrzz,leftn)&"</a>"

if repage>1 then
response.write" <img align=absmiddle border=0 src=pic/hot.gif><font color="&c2&">[</font><b> "
if repage<=4 then
for nnre=1 to repage
response.write"<a target=_self href=show.asp?id="&rs("id")&"&bd="&bd&"&totable="&rs("totable")&"&topage="&nnre&"><font color="&c2&">"&nnre&"</font></a> "
next
else
for nnnre=1 to 3
response.write"<a target=_self href=show.asp?id="&rs("id")&"&bd="&bd&"&totable="&rs("totable")&"&topage="&nnnre&"><font color="&c2&">"&nnnre&"</font></a> "
next
response.write"... <a target=_self href=show.asp?id="&rs("id")&"&bd="&bd&"&totable="&rs("totable")&"&topage="&repage&"><font color="&c2&">"&repage&"</font></a> "
end if
response.write" </b><font color="&c2&">]</font>"
end if


response.write"</td><td width=9% 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% height=23 align=center>"&zui&"</td></tr></table></center></div>"
i=i+1
if i>pagesetup then exit do
rs.movenext
loop
rs.Close
response.write"<div align='center'><center><TABLE bgcolor="&c2&" 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'><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
href2=" <a href=?topage="& i &"&bd="&bd&"&find="&find&"&mybbs="&mybbs&">"
href3="<a href=?topage="&TotalPage&"&bd="&bd&"&find="&find&"&mybbs="&mybbs&">"
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
response.write" ]</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>"
response.write"<div align=center><center><table border=0 cellspacing=1 style='border-collapse: collapse' bordercolor=#111111 width=98% ><tr><td width=100% align=right height=35><select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;} style='font-size: 9pt'><option selected>跳转论坛至...</option>"
set shsh=myconn.execute("select bdname,bn from bdinfo where key='0'")
do while not shsh.eof
response.write"<option>+"&shsh("bdname")&"</option>"
set fen=myconn.execute("select bdname,bn from bdinfo where key='"&shsh("bn")&"'")
do while not fen.eof
response.write"<option value='list.asp?bd="&fen("bn")&"'>-"&fen("bdname")&"</option>"
fen.movenext
loop
set fen=nothing
shsh.movenext
loop
set shsh=nothing
response.write"</select></td></tr></table></center></div>"
if zxtj<>"n" then%>
<!--#include file="line.asp"-->
<%
response.write"<div align=center><center><table bgcolor="&c2&" 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>"
end if
infotl="论坛帖子图例"
mes="&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> 热门帖子"
smes()
response.write"<form method='get'>"
infotl="论坛快速搜索"
mes="&nbsp;查询字符：<INPUT name=find size=20> <input type=hidden value='"&bd&"' name=bd><input type=submit value=' 搜 索 '> <input type=reset value=' 重 置 '>"
smes()
response.write"</form>"
%><br><!--#include file="down.asp"-->