recycle.asp

一个美化的论坛程序

<!--#include file="function.asp"-->
<!--#include file="char.asp"-->
<!--#include file="top.asp"-->
<%
if request("boardid")="" then
	response.write "<script>javascript:alert('请选择论坛!');window.close();</script>"
	response.end
else
	boardid=request("boardid")
end if
set rs=server.createobject("adodb.recordset")
sql="select boardmaster from board"
rs.open sql,conn,1,1
do while not rs.eof
boardmaster=boardmaster+rs("boardmaster")
rs.movenext
loop
rs.close
if (instr(boardmaster,Request.Cookies("bookbaby")("username"))>0 and Request.Cookies("bookbaby")("username")<>"")  then
if not isempty(request("page")) then
	currentPage=cint(request("page"))
else
	currentPage=1
end if
set rs1=server.CreateObject("ADODB.RecordSet")
sql="select boardmaster,boardtitle from board where boardid="&boardid
rs.open sql,conn,1,1
if not rs.eof then
	boardtitle=rs("boardtitle")
	boardmaster=rs("boardmaster")
end if
rs.close
sql="select * from bbs where boardid="&boardid&" and del order by lastreply desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then 
else 
	PageUrl="recycle.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 
if not isempty(request("page")) then
	currentPage=cint(request("page"))
else
	currentPage=1
end if
	sql="select * from reply where del"
	rs1.open sql,conn,1,1
	if rs1.eof then
		response.write "<p align='center'>暂时无任何帖子</p>" 
	else
		PageUrl="recycle.asp"
		totalPut=rs1.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
			showContent1
			showpage totalput,MaxPerPage,PageUrl
		else 
			if (currentPage-1)*MaxPerPage<totalPut then 
				rs1.move  (currentPage-1)*MaxPerPage 
				bookmark=rs1.bookmark 
				showpage totalput,MaxPerPage,PageUrl
				showContent1 
				showpage totalput,MaxPerPage,PageUrl
			else 
				currentPage=1 
				showpage totalput,MaxPerPage,PageUrl
				showContent1 
				showpage totalput,MaxPerPage,PageUrl
			end if 
		end if 
	end if
	rs1.close 
			
sub showContent
response.write"<table align=center border=0 cellPadding=2 cellSpacing=0 width=""99%""><tr><td align=right style=""border-bottom:1px solid;""bgcolor=""#f2f2f2"">版面："&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>"
				next
				else
				response.write "就等你来当！"
				end if
response.write "</td></tr></table>"
i=0
response.write "<ul>" 
do while not rs.eof
i=i+1
response.write "<li><strong><img src=face/face"&rs("face")&".gif width=15 height=15>&nbsp;<a href=userinf.asp?name="&rs("username")&" target=_blank><font color=#0000ff>"&rs("username")&"</font></a></strong>　　<font color=#ffaf60>"&rs("dateandtime")&"</font>"
if (instr(boardmaster,Request.Cookies("bookbaby")("username"))>0 and Request.Cookies("bookbaby")("username")<>"") or session("isadmin")="club" then
response.write "　　<a href=manage.asp?act=nodel&action=bbs&boardid="&boardid&"&id="&rs("bbsid")&" title=将该帖子从回收站还原><font color=#ff0000>还原</font></a>"
end if
response.write "<blockquote>"&ubbcode(rs("content"))&"</blockquote>"
if i>=maxperpage then exit do
rs.movenext
loop
response.write "</ul>" 
end sub 

sub showContent1
i=0
	response.write "<ul><ul>"
	do while not rs1.eof
	i=i+1
	response.write "<li><strong><img src=face/face"&rs1("face")&".gif width=15 height=15>&nbsp;<a href=userinf.asp?name="&rs1("username")&" target=_blank><font color=#0000ff>"&rs1("username")&"</font></a></strong>　　<font color=#ffaf60>"&rs1("dateandtime")&"</font>