treelist.asp

一个美化的论坛程序

<%Response.Buffer=true%>
<!--#include file="char.asp"-->
<!--#include file="top.asp"-->
<%
if boardtype="2" and Request.Cookies("bookbaby")("username")="" then Response.Redirect "userlogin.asp?errmsg="&server.URLEncode("本论坛为正规论坛，需要登陆才能浏览！")
if request("boardid")="" then
	response.write "<script>javascript:alert('请选择论坛!');window.close();</script>"
	response.end
else
	boardid=request("boardid")
	set rs=conn.execute("select count from board where boardid="&boardid&"")
	if rs.eof then
		response.write "<script>javascript:alert('该论坛不存在，可能已经被管理员删除!');window.close();</script>"
		response.end
	end if
	rs.close
end if
if not isempty(request("page")) then
	currentPage=cint(request("page"))
else
	currentPage=1
end if
%>
<img src="" width="1" height="3">
<table width="680" border="0" cellspacing="1" cellpadding="4" bgcolor="<%=tablebackcolor%>" align=center>
  <tr bgcolor="<%=tablebodycolor%>"> 
    <td  width="100%" colspan="7">&nbsp;<img src="images/gb.gif" align="absmiddle">&nbsp;论坛消息广播: 
      <%
	sql="select top 1 title,dateandtime from announce where boardid="&boardid&" order by id desc"
	rs.open sql,conn,1,1
	if rs.eof then
		response.write "<b>当前没有公告</b>&nbsp;(&nbsp;"&now()&"&nbsp;)"
	else
		response.write "<b><a href=announce.asp?boardid="&boardid&">"&rs("title")&"</a></b>&nbsp;(&nbsp;"&rs("dateandtime")&"&nbsp;)"
	end if
	rs.close%>
    </td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF" height="20"> 
      <table width="100%" border="0" cellpadding="0" cellspacing="0" height="20">
        <tr> 
          <td width="62%" bgcolor="#FFFFFF"><font color=#ffffff> 
            <%
if Request.Cookies("bookbaby")("username")<>"" then
    set rs1=conn.execute("select username from online where username='"&Request.Cookies("bookbaby")("username")&"'")
    if not rs1.eof then
	conn.execute("update online set stat='"&boardtitle&"论坛',lasttime='"&now()&"' where username='"&Request.Cookies("bookbaby")("username")&"'")
    else
	conn.execute "insert into online(username,sex,stat,lasttime) values ('"&Request.Cookies("bookbaby")("username")&"',"&Request.Cookies("bookbaby")("usersex")&",'"&boardtitle&"论坛','"&now()&"')"
    end if
    set rs1=nothing
else
	conn.execute("delete * from online where datediff('n',lasttime,now())>20")
end if
sql="select count(sex) from online"
set rs=conn.execute (sql)
total=rs(0)
rs.close
sql="select count(sex) from online where stat like '%"&boardtitle&"%'"
set rs=conn.execute (sql)
response.write "目前总论坛共有在线用户<b>&nbsp;"&total&"</b>&nbsp;人，其中"&boardtitle&"论坛上有<b>&nbsp;"&rs(0)&"</b>&nbsp;人"
rs.close
%>
            </font></td>
          <td align="right" width="38%" bgcolor="#FFFFFF"><font color="#000000">[<a href="online.asp">在线用户</a>] 
            [<a href="USERLIST.ASP">所有用户</a>]</font>&nbsp;&nbsp;</td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td bgcolor="<%=tablebodycolor%>" height="25"> 
<%
sql="select sex,username,stat from online where stat like '%"&boardtitle&"%'"
rs.open sql,conn,1,1
do while not rs.eof
i=i+1
	response.write "<img align=absmiddle src=images/"
if not rs("sex") then response.write "fe"
response.write "male.gif height=16 width=16>&nbsp;<a href=userinf.asp?name="&rs("username")&" target=_top title=当前位置:"&rs("stat")&">"
if rs("username")=Request.Cookies("bookbaby")("username") then
	response.write "<font color=f00000>"&rs("username")&"</font>"
else
	response.write rs("username")
end if
response.write "</a>&nbsp;&nbsp;"
rs.movenext
loop
rs.close
%>
	  </td>
  </tr>
</table>
<%
sql="select bbsid,face,istop,best,title,dateandtime,username,content from bbs where boardid="&boardid&" and not del order by istop,lastreply desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then 
	response.write "<p align='center'>暂时无任何帖子<br><br><a href=add.asp?action=bbs&boardid="&request("boardid")&"><font color=#ff0000>发贴</font></a></p>" 
else 
	PageUrl="treelist.asp"
	totalPut=rs.recordcount 
	if currentpage<1 then currentpage=1
	if (currentpage-1)*MaxPerPage>totalput then 
		if (totalPut mod MaxPerPage)=0 then 
			currentpage= totalPut \ MaxPerPage 
		else 
			currentpage= totalPut \ MaxPerPage + 1 
		end if 
	end if 
	if currentPage=1 then 
		showpage totalput,MaxPerPage,PageUrl
		showContent 
		showpage totalput,MaxPerPage,PageUrl
	else 
		if (currentPage-1)*MaxPerPage<totalPut then 
			rs.move  (currentPage-1)*MaxPerPage 
			dim bookmark 
			bookmark=rs.bookmark 
			showpage totalput,MaxPerPage,PageUrl
			showContent 
			showpage totalput,MaxPerPage,PageUrl
		else 
			currentPage=1 
			showpage totalput,MaxPerPage,PageUrl
			showContent 
			showpage totalput,MaxPerPage,PageUrl
		end if 
	end if 
end if 
rs.close 
sub showContent
response.write"<table align=center border=0 cellPadding=2 cellSpacing=0 width=""680""><tr><td style=""border-bottom:1px solid;""bgcolor="""&tablebodycolor&""" width=""70%"">&nbsp;&nbsp;版面："&boardtitle&"&nbsp;&nbsp;&nbsp;版主："
				if boardmaster<>"" then
				masterarr=split(boardmaster,"|")
				for i=0 to ubound(masterarr)
				response.write "<a href=userinf.asp?name="&masterarr(i)&">"&masterarr(i)&"</a>&nbsp;"
				next
				else
				response.write "就等你来当！"
				end if
response.write "</td><td width=""30%"" align=right style=""border-bottom:1px solid;""bgcolor="""&tablebodycolor&""">共有主题帖子<b>"&totalPut&"</b>篇&nbsp;</td></tr></table>"
i=0
do while not rs.eof
i=i+1
response.write "<table align=center border=0 cellPadding=2 cellSpacing=0 width=""680"" bgcolor="&tablebodyacolor&"><tr><td><ul><li>"
if rs("istop") then response.write "<img src=images/istop.gif width=17 height=17 alt=精华贴子>&nbsp;"
response.write "<img src=face/face"&rs("face")&".gif width=15 height=15>&nbsp;<a href=read.asp?boardid="&boardid&"&bbsid="&rs("bbsid")&" target=_blank><b>"&left(rs("title"),30)&"...</b></a>&nbsp;<a href=userinf.asp?name="&rs("username")&" target=_blank><font color=#0000ff>"&rs("username")&"</font></a></strong>　<font color=#ffaf60>"&rs("dateandtime")&"</font>"
response.write "　<a href=add.asp?type=tree&action=reply&boardid="&boardid&"&bbsid="&rs("bbsid")&"&replyorder=1><font color=#85bc25>回复</font></a>"
if rs("username")=Request.Cookies("bookbaby")("username") then
response.write "　<a href=edit.asp?type=tree&action=bbs&boardid="&boardid&"&bbsid="&rs("bbsid")&" title=编辑该帖子><font color=#999999>编辑</font></a>"
end if
if (instr(boardmaster,Request.Cookies("bookbaby")("username"))>0 and Request.Cookies("bookbaby")("username")<>"") or session("isadmin")="club" then
response.write "　<a href=manage.asp?type=tree&act=best&action=bbs&boardid="&boardid&"&id="&rs("bbsid")&" title=将该帖子放入精华区><font color=#ff0000>精华</font></a>"&_
		"　<a href=manage.asp?type=tree&act=del&action=bbs&boardid="&boardid&"&id="&rs("bbsid")&" title=将该帖子放入回收站><font color=#ff0000>删除</font></a>"
end if
response.write "<br><span style=""font-size:11pt"">"&ubbCode(left(rs("content"),400))&"...</span>"
	set rs1=server.CreateObject("ADODB.RecordSet")
	sql="select replyid,replygrade,replyorder,bbsid,face,content,dateandtime,username from reply where not del and bbsid="&rs("bbsid")&" order by replyorder"
	rs1.open sql,conn,1,1
	do while not rs1.eof
		for n=1 to rs1("replygrade")
			Response.Write "<ul>"
		next
	response.write "<li><img src=face/face"&rs1("face")&".gif width=15 height=15>&nbsp;<a href=read.asp?boardid="&boardid&"&bbsid="&rs1("bbsid")&"&replyid="&rs1("replyid")&" target=_blank><b>"&htmlnocode(left(rs1("content"),30-n*2))&_
					"...</b></a>&nbsp;&nbsp;<a href=userinf.asp?name="&rs1("username")&" target=_blank><font color=#0000ff>"&rs1("username")&"</font></a></strong>　<font color=#ffaf60>"&rs1("dateandtime")&"</font>"
	response.write "　<a href=add.asp?type=tree&action=reply&boardid="&boardid&"&bbsid="&rs("bbsid")&"&replygrade="&rs1("replygrade")&"&replyorder="&(rs1("replyorder")+1)&"><font color=#85bc25>回复</font></a>"
	if rs1("username")=Request.Cookies("bookbaby")("username") then
		response.write "　<a href=edit.asp?type=tree&action=reply&boardid="&boardid&"&bbsid="&rs1("bbsid")&"&replyid="&rs1("replyid")&" title=编辑该帖子><font color=#999999>编辑</font></a>"
	end if
	if (instr(boardmaster,Request.Cookies("bookbaby")("username"))>0 and Request.Cookies("bookbaby")("username")<>"") or session("isadmin")="club" then
		response.write "　<a href=manage.asp?type=tree&act=del&action=reply&boardid="&boardid&"&id="&rs1("replyid")&" title=将该帖子放入回收站><font color=#ff0000>删除</font></a>"
	end if
	response.write "<br><span style=""font-size:11pt"">"&ubbCode(left(rs1("content"),400))&"...</span>"
		for n=1 to rs1("replygrade")
			Response.Write "</ul>"
		next
	rs1.movenext
	loop
	rs1.close
response.write "</ul></td></tr></table><HR align=center color=#000000 SIZE=1 width=""680"">"
if i>=maxperpage then exit do
rs.movenext
loop
end sub 

function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
	n= totalnumber \ maxperpage
else
	n= totalnumber \ maxperpage+1
end if
response.write "<table align=center border=0 cellPadding=2 cellSpacing=0 width=""680""><form method=Post action="&filename&"?boardid="&boardid&"><tr><td align=center style=""border-top:1px solid;border-bottom:1px solid;""bgcolor="""&tablebodycolor&""">"&_
				"|&nbsp;<a href=list.asp?boardid="&boardid&">平板浏览</a>&nbsp;|&nbsp;<a href=add.asp?action=bbs&boardid="&request("boardid")&"><font color=#ff0000>发贴</font></a>&nbsp;|&nbsp;<a href=javascript:window.location.reload()>刷新</a>&nbsp;|&nbsp;<a href=besttreelist.asp?boardid="&boardid&">精华区</a>&nbsp;|"
if (instr(boardmaster,Request.Cookies("bookbaby")("username"))>0 and Request.Cookies("bookbaby")("username")<>"") then response.write "&nbsp;<a href=announceadd.asp?boardid="&boardid&">发布公告</a>&nbsp;|&nbsp;<a href=recycle.asp?boardid="&boardid&">回收站</a>&nbsp;|"
if CurrentPage<2 then
response.write "&nbsp;首页&nbsp;|&nbsp;上页&nbsp;|"
else
response.write "&nbsp<a href="&filename&"?boardid="&boardid&"&page=1>首页</a>&nbsp;|&nbsp;<a href="&filename&"?boardid="&boardid&"&page="&CurrentPage-1&">上一页</a>&nbsp;|" 
end if
if n-currentpage<1 then
response.write "&nbsp;下页&nbsp;|&nbsp;末页"
else
response.write "&nbsp;<a href="&filename&"?boardid="&boardid&"&page="&CurrentPage+1&">下页</a>&nbsp;|"&_
                "&nbsp;<a href="&filename&"?boardid="&boardid&"&page="&n&">末页</a>" 
end if
response.write "&nbsp;|&nbsp;页次:<strong>"&CurrentPage&"/"&n&"</strong>页 | 转<select name='page' size='1' onchange='javascript:submit()'>"
               for i = 1 to n
response.write "<option value="&i
 				if cint(CurrentPage)=cint(i) then response.write " selected "
response.write ">第"&i&"页</option>"
                next
response.write "</select></td></tr></form></table>"      
end function
set rs=nothing
conn.close
set conn=nothing
%>
<!--#include file="copyright.asp"-->