list.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("本论坛为正规论坛，需要登陆才能浏览！")
dim count
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  not rs.eof then
		count=rs("count")
	else
		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="<%=tabletitlecolor%>" height="20" background="images/tablebg02.gif"> 
      <table width="100%" border="0" cellpadding="0" cellspacing="0" height="20">
        <tr> 
          <td width="65%"><font color=#000000> 
            <%
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="35%">
            <div align="right"><font color="#000000"> [<a href="online.asp">在线用户</a>] 
              [<a href="USERLIST.ASP">所有用户</a>]</font></div>
          </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
	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,hits 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="list.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 
		showContent 
		showpage totalput,MaxPerPage,PageUrl
	else 
		if (currentPage-1)*MaxPerPage<totalPut then 
			rs.move  (currentPage-1)*MaxPerPage 
			dim bookmark 
			bookmark=rs.bookmark 
			showContent 
			showpage totalput,MaxPerPage,PageUrl
		else 
			currentPage=1 
			showContent 
			showpage totalput,MaxPerPage,PageUrl
		end if 
	end if 
end if 
rs.close 
sub showContent
response.write"<img src="""" width=""1"" height=""3""><table width=""680"" border=""0"" bgcolor="""&tablebackcolor&""" cellpadding=""0"" cellspacing=""1"" align=""center""><tr><td>"&_
				"<table border=""0"" cellpadding=""6"" cellspacing=""0""><tr><td bgcolor="""&tablebodycolor&""" width=""450"" height=""25"">&nbsp;&nbsp;|&nbsp;<a href=treelist.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=bestlist.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;|"
Response.Write "</td><td bgcolor="""&tablebodycolor&""" height=""25"" width=""320"" align=""right"">&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 "&nbsp;&nbsp;</td></tr></table></td></tr></table>"
%>
<table width="680" border="1" bordercolor="<%=tablebackcolor%>" cellpadding="6" cellspacing="0" align="center">
  <tr align="center" bgcolor="<%=tabletitlecolor%>"> 
    <td width="8%" height="25" background="images/tablebg02.gif"><b><font color="#000000">状态</font></b></td>
    <td width="54%" bgcolor="<%=tabletitlecolor%>" background="images/tablebg02.gif"><b><font color="#000000">主题</font></b></td>
    <td width="12%" background="images/tablebg02.gif"><b><font color="#000000">作者</font></b></td>
    <td width="8%" background="images/tablebg02.gif"><b><font color="#000000">点击</font></b></td>
    <td width="18%" background="images/tablebg02.gif"><b><font color="#000000">时间</font></b></td>
  </tr>
</table>

<%
i=0
do while not rs.eof
i=i+1
response.write "<table width=""680"" border=""1"" bordercolor="""&tablebackcolor&""" cellpadding=""2"" cellspacing=""0"" align=""center"">"&_
  				"<td height=""22"" width=""8%"" align=""center"" bgcolor="""&tablebodycolor&""">"
				if  rs("istop") then
					response.write "<img src=images/istop.gif width=17 alt=固顶贴子>"
				elseif rs("best") then
					response.write "<img src=images/best.gif width=17 alt=精华贴子>"
				elseif rs("hits")>30 then
					response.write "<img src=images/hotfolder.gif width=16 alt=一般贴子>"
				else
					response.write "<img src=images/folder.gif width=16 alt=热门贴子>"
				end if
response.write "</td><td width=""54%"" bgcolor="""&tablebodyacolor&""" bgcolor="""&tablebodyacolor&""" onMouseOver=""this.bgColor='"&tabletitlecolor&"'"" onMouseOut=""this.bgColor='"&tablebodyacolor&"'""><img src=face/face"&rs("face")&".gif height=15>"
response.write "<a href=read.asp?boardid="&boardid&"&bbsid="&rs("bbsid")&">"&left(rs("title"),30)&"...</a></td>"&_
				"<td width=""12%"" align=""center"" bgcolor="""&tablebodycolor&"""><a href=userinf.asp?name="&rs("username")&">"&rs("username")&"</a></td>"&_
				"<td width=""8%"" align=""center"" bgcolor="""&tablebodycolor&""">"&rs("hits")&"</td>"&_
				"<td width=""18%"" align=""center"" bgcolor="""&tablebodycolor&""">"&rs("dateandtime")&"</td></tr></table>"
	set rs1=server.CreateObject("ADODB.RecordSet")
	sql="select replyid,replygrade,bbsid,face,content,dateandtime,username,hits from reply where not del and bbsid="&rs("bbsid")&" order by replyorder"
	rs1.open sql,conn,1,1
	do while not rs1.eof
	response.write "<table width=""680"" border=""1"" bordercolor="""&tablebackcolor&""" cellpadding=""2"" cellspacing=""0"" align=""center""><tr>"&_
  				"<td height=""22"" width=""8%"" align=""center"" bgcolor="""&tablebodyacolor&""">"
				if rs1("hits")>30 then
					response.write "<img src=images/hotfolder.gif width=16 alt=一般贴子>"
				else
					response.write "<img src=images/folder.gif width=16 alt=热门贴子>"
				end if
		response.write "</td><td width=""54%"" bgcolor="""&tablebodyacolor&""" bgcolor="""&tablebodyacolor&""" onMouseOver=""this.bgColor='"&tabletitlecolor&"'"" onMouseOut=""this.bgColor='"&tablebodyacolor&"'"">"
	for n=1 to rs1("replygrade")
		Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;"
	next
response.write "<img src=face/face"&rs1("face")&".gif height=15>"
response.write "<a href=read.asp?boardid="&boardid&"&bbsid="&rs1("bbsid")&"&replyid="&rs1("replyid")&">"
	if len(rs1("content"))<30 then
		response.write htmlnocode(rs1("content"))
	else
		response.write left(htmlnocode(rs1("content")),30-n*2)&"..."
	end if
Response.Write "</a></td>"&_
				"<td width=""12%"" align=""center"" bgcolor="""&tablebodyacolor&"""><a href=userinf.asp?name="&rs1("username")&" target=_blank>"&rs1("username")&"</a></td>"&_
				"<td width=""8%"" align=""center"" bgcolor="""&tablebodyacolor&""">"&rs1("hits")&"</td>"&_
				"<td width=""18%"" align=""center"" bgcolor="""&tablebodyacolor&""">"&rs1("dateandtime")&"</td></tr></table>"
	rs1.movenext
	loop
	rs1.close
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 width=""680"" border=""1"" cellpadding=""0"" cellspacing=""0"" align=""center"" bordercolor="""&tablebackcolor&"""><tr><form method=Post action="&filename&"?boardid="&boardid&"><td>"&_
				"<table border=""0"" cellpadding=""6"" cellspacing=""0""><tr bgcolor="""&tabletitlecolor&"""><td height=""25"" width=""270"" bgcolor="""&tablebodycolor&""">本分论坛共有贴子&nbsp;<b>"&count&"</b>&nbsp;篇&nbsp;其中主题帖子<b>&nbsp;"&totalnumber&"&nbsp;</b>篇</td><td height=""25"" align=""right"" width=""500"" bgcolor="""&tablebodycolor&""">|"
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></table></td></form></tr></table>"      
end function
set rs=nothing
conn.close
set conn=nothing
%>
<!--#include file="copyright.asp"-->