show.asp

本程序蓝本为6kbbs 默认前台管理员的帐号是:woodcoal

<!--#include file="up.asp"-->
<!--#include file="inc/grade.asp"-->
<!--#include file="inc/ubbcode.asp"-->

<style type="text/css">
<!--
.leftbeautiful{
	border-top-width: 1px;
	border-right-width: 1px;
	border-bottom-width: 1px;
	border-left-width: 1px;
	border-top-style: solid;
	border-right-style: solid;
	border-bottom-style: solid;
	border-left-style: solid;
	border-top-color: #FFFFFF;
	border-right-color: #9D9DA1;
	border-bottom-color: #9D9DA1;
	border-left-color: #FFFFFF;
	table-layout:fixed; 
	word-break:break-all;
	overflow:hidden;
	text-align:left;
}
-->
</style>

<%checklg()
set idrs=conn.execute("select top 1 top,type,renum,hits from topic where id="&id&" and bd="&bd&"")
if idrs.eof then
	tl=""
	mes="<b>对不起，你不能查看改帖子，可能存在以下问题：</b><br>·该帖子不存在。<br>·该帖子已经被删除。<br>·该帖子被移动到别的版面。"
	call sendinfo(tl,mes)
	call down
	response.end
else
	idtop=idrs("top")
	idtype=idrs("type")
	idhits=idrs("hits")
end if
set idrs=nothing

dim sql,pagesetup,count,totalpage,pagecount,ii,iii,fontcolor,whichd,whichl,sexinfo,userinfoyn,svote,voten,voteb,n,vtype,votealln,vwidth,voteduser,outtime,canvote,userntype,nowon,idxianhua,idjidan

userinfoyn=checknum(request.Cookies(prefix&"1")("userinfo"))
whichd=checknum(request.querystring("topage"))
if whichd="" then whichd=1
dim content,topicuserid,userinfo,usern
if idtype=3 then
	tl=""
	mes="<b>你不能浏览该帖子帖子，可能存在以下问题。</b><br>·该帖子已经被被删除。"
	call sendinfo(tl,mes)
	call down
	response.end
end if

set rs=conn.execute("select top 1 * from bbs"&totable&" where id="&id&" and bd="&bd&"")
content=split(rs("content"),"|")
topicuserid=rs("userid")%>

<div>
	<a href="say.asp?bd=<%=bd%>&topictype=1"><img border="0" src="images/skin/<%=sid%>/fabiao.gif" /></a>&nbsp;
	<a href="say.asp?bd=<%=bd%>&topictype=1&vote=1"><img border="0" src="images/skin/<%=sid%>/vote.gif" /></a>&nbsp;

<%if not (idtype=2 and (usertype<3 or (usertype=3 and instr("|"&adminbd&"|","|"&bd&"|")=0))) then
	response.write"<a href=""say.asp?bd="&bd&"&topictype=2&bid="&id&"&totable="&totable&"""><img border=""0"" src=""images/skin/"&sid&"/huifu.gif"" /></a>"
end if%>

</div>

<%if usertype>3 or (usertype=3 and instr("|"&adminbd&"|","|"&bd&"|"))>0 then%>
	<div class="BBS_BoardList">
		<h1><img border="0" src="pic/gl.gif" /> 帖子管理</h1>
		<div>
	
<%	if usertype=4 or usertype=5 then
		if idtop=2 then
			response.write"&nbsp;【<a href=adminbd.asp?action=delalltop&bd="&bd&"&id="&id&">取消总置顶</a>】&nbsp;"
		else
			response.write"&nbsp;【<a href=adminbd.asp?action=alltop&bd="&bd&"&id="&id&">总置顶</a>】&nbsp;"
		end if
	end if
	
	if idtop<>2 then
		if idtop=1 then
			response.write"&nbsp;【<a href=adminbd.asp?action=deltop&bd="&bd&"&id="&id&"&totable="&totable&">取消置顶</a>】&nbsp;"
		else
			response.write"&nbsp;【<a href=adminbd.asp?action=top&bd="&bd&"&id="&id&"&totable="&totable&">置顶</a>】&nbsp;"
		end if
	end if
	
	if idtype=1 then
		response.write"&nbsp;【<a href=adminbd.asp?action=delgood&bd="&bd&"&id="&id&"&totable="&totable&">取消精华</a>】&nbsp;"
	else
		response.write"&nbsp;【<a href=adminbd.asp?action=good&bd="&bd&"&id="&id&"&totable="&totable&">精华</a>】&nbsp;"
	end if
	
	if idtype=2 then
		response.write"&nbsp;【<a href=adminbd.asp?action=dellock&bd="&bd&"&id="&id&"&totable="&totable&">解锁</a】&nbsp;"
	else
		response.write"&nbsp;【<a href=adminbd.asp?action=lock&bd="&bd&"&id="&id&"&totable="&totable&">锁定</a>】&nbsp;"
	end if
	response.write"&nbsp;【<a href=adminbd.asp?action=delbbs&bd="&bd&"&id="&id&">删除</a>】&nbsp;&nbsp;【<a href=adminbd.asp?action=move&bd="&bd&"&id="&id&">移动</a>】&nbsp;&nbsp;【<a href=adminbd.asp?action=update&bd="&bd&"&id="&id&"&totable="&totable&">提升</a>】&nbsp;"
%>	
	</div>
</div>

<%end if

response.write"<script type=""text/javascript"">document.title="""&content(1)&""";</script>"
nowon=bdinfo(0)&"→浏览帖子：&#13;&#10;"&replace(replace(content(1),"'","’"),"&","&amp;")

if isnull(lguserid) or lguserid="" then
	if conn.execute("select userid from online where ip='"&ip&"'").eof then
		sql="insert into online(ip,lasttime,onbd,nowon) values('"&ip&"',now(),"&bd&",'"&nowon&"')"
	else
		sql="update online set userid=0,lasttime=now(),pic=0,onbd="&bd&",nowon='"&nowon&"' where ip='"&ip&"'"
	end if
else
	if conn.execute("select userid from online where userid="&lguserid&" or ip='"&ip&"'").eof then
		sql="insert into online(userid,name,ip,lasttime,pic,onbd,nowon) values("&lguserid&",'"&lgname&"','"&ip&"',now(),"&usertype&","&bd&",'"&nowon&"')"
	else
		sql="update online set userid="&lguserid&",name='"&lgname&"',lasttime=now(),pic="&usertype&",onbd="&bd&",nowon='"&nowon&"' where userid="&lguserid&" or ip='"&ip&"'"
	end if
end if
conn.execute(sql)
conn.execute("delete*from online where now()-lasttime>"&onlinetime&"/24")

if content(0)="vote" then
	set svote=conn.execute("select*from vote where id="&id&"")
	voten=split(svote("votenum"),"|")
	voteb=svote("content")
	voteb=split(voteb,"|")
	voteduser=svote("voteduser")
	if isnull(voteduser) or voteduser="" then voteduser="|0"
		voteduser=split(voteduser,"|")
		outtime=svote("outtime")
		n=ubound(voten)
		votealln=0
		for i=1 to n
			votealln=int(votealln)+int(voten(i))
		next
		if votealln=0 then votealln=1
%>

<table align="center" class="BBS_BoardList" cellpadding="0" cellspacing="1">
    <form method="post" action="cookies.asp?action=vote&id=<%=id%>">
	<tr class="BBS_BoardTitle">
		<td colspan="2">&nbsp;<img src="images/face/vote.gif" border="0" align="absmiddle" />&nbsp;投票选项</td>
	</tr>
	<tr class="BBS_BoardItem">

<%for i=1 to n
	vwidth=voten(i)/votealln*80%>
	<tr class="BBS_BoardItem">
		<td width="60%">
		<%if svote("type")=1 then%>
			<input type="radio" value="<%=i%>" name="votenum" size="20">
		<%else%>
			<input type="checkbox" name="votenum_<%=i%>" value="1">
		<%end if%>
			&nbsp;<%=kbbs(voteb(i))%>
		</td>
		<td width="40%">
			<img src="pic/voteline.gif" border="0" width="<%=vwidth%>%" height="10" /> <b><%=voten(i)%></b> 票
		</td>
	</tr>
<%next%>

	<tr class="BBS_BoardItem">
		<td width="60%">
			过期时间：<%=outtime%>&nbsp;

	<%canvote=true
	if outtime<now()+timeset/24 then
		response.write"[ 该投票截止时间已到 ]"
		canvote=false
	else
		for i=1 to ubound(voteduser)
			if isnull(lguserid) or lguserid="" then
				response.write"[ 你没有登陆，不能投票 ]"
				canvote=false
				exit for
			elseif int(voteduser(i))=lguserid then
				response.write"[ 你已经投票了 ]"
				canvote=false
				exit for
			end if
		next
	end if%>
		
		</td>
		<td width="40%">
		<%if canvote=true then%><input type="submit" value="    投    票    " name="B1"><%end if%>
		</td>
	</tr>
	</form>

	<%set svote=nothing
end if%>
</table>

<table align="center" class="BBS_BoardList" cellpadding="5" cellspacing="1">
	<tr class="BBS_BoardTitle">
		<td colspan="2"><img src="pic/gl.gif" border="0" align="absmiddle" />&nbsp;作者信息及帖子信息：你是本帖的第 <%=idhits+1%> 位读者</td>
	</tr>
	<tr>
		<td width="25%" align="center" valign="top">

<%set usern=conn.execute("select top 1 userinfo,mark,faction,wife,grade,alltopicnum,del,type from [user] where userid="&topicuserid&"")
userntype=usern("type")
if userinfoyn=1 or userinfoyn="" then
	userinfo=usern("userinfo")
	userinfo=split(userinfo,"|")%>
			
			<table style="table-layout: fixed; word-break: break-all" cellspacing="0" cellpadding="0" width="155">
				<tr><td height="40" align="center" valign="middle" background="pic/left/photo_bg1.gif">

				<%if usern("del")=true then
					response.write "<b title=""该用户已被删除"" disabled>" & kbbs(content(2)) & "</b>&nbsp;"
				else
					if usern("grade")>13 then
						response.write "<font color=""blue""><b>" & kbbs(content(2)) & "</b></font>&nbsp;"
					else
						response.write "<b>" & kbbs(content(2)) & "</b>&nbsp;"
					end if
				end if
				if kbbs(userinfo(4))=1 then
					sexinfo= "（帅哥）"
				elseif kbbs(userinfo(4))=2 then 
					sexinfo= "（靓女）"
				else
					sexinfo= "（保密）"
				end if%>	
			
				</td></tr>
				<tr><td align="center" valign="middle" background="pic/left/photo_bg2.gif">

				<%if userinfo(11)="1" and userinfo(3)<>"" then
					response.write "<img src=""http://qqshow-user.tencent.com/"&kbbs(userinfo(3))&"/11/00/"" border=""1""  title=""" & sexinfo & """ />"
				else
					response.write "<img src=""" & kbbs(userinfo(5)) & """ width=""" & kbbs(userinfo(6)) & """ height=""" & kbbs(userinfo(7)) & """ border=""0"" title=""" & sexinfo & """ />"
				end if%>

					<br />
					<img height="8" src="pic/left/null.gif" />
					<img src="images/grade/<%=usern("grade")%>.gif" border="0" />		
				
				</td></tr>
				<tr><td><img src="pic/left/photo_bg4.gif" border="0" /></td></tr>
				<tr><td align="center" valign="middle" background="pic/left/photo_bg2.gif">
				
					<table style="table-layout: fixed; word-break: break-all" cellspacing="0" cellpadding="3" width="140">

					<%if usern("wife")<>"" and usern("wife")<>"无" then
						response.Write"<tr><td class=""leftbeautiful""><img src=""pic/left/qianmian.gif"" />&nbsp;<font color=""blue"">恋人："&usern("wife")&"</font></td></tr>"
					end if%>
					
					<tr><td class="leftbeautiful"><img src="pic/left/qianmian.gif" />&nbsp;积分：<%=usern("mark")%></td></tr>
					<tr><td class="leftbeautiful"><img src="pic/left/qianmian.gif" />&nbsp;帖数：<%=usern("alltopicnum")%></td></tr>

					<%if usern("faction")<>"" then
						response.write"<tr><td class=""leftbeautiful""><img src=""pic/left/qianmian.gif"" />&nbsp;帮派：<span style=""behavior:url(INC/font.htc)"">"&usern("faction")&"</span></td></tr>"
					end if
					
					if userinfo(10)<>"" then
						response.write"<tr><td class=""leftbeautiful""><img src=""pic/left/qianmian.gif"" />&nbsp;头衔："&kbbs(userinfo(10))&"</td></tr>"
					end if%>

					<tr><td class="leftbeautiful"><img src="pic/left/qianmian.gif" />&nbsp;身份：<%gradename(usern("grade"))%></td></tr>
					<tr><td class="leftbeautiful"><img src="pic/left/qianmian.gif" />&nbsp;注册：<font color="red"><%=userinfo(9)%></font></td></tr>

					</table>
				
				</td></tr>
				<tr><td><img src="pic/left/photo_bg3.gif" /></td></tr>
			</table>

<%else
	response.write "<br />"&kbbs(content(2))
end if
set usern=nothing%>

		</td>
		<td valign="top" style="background-color: #ffffff;">
			<table cellspacing="3" cellpadding="5" width="100%">
				<tr>
					<td class="leftbeautiful">
						<a href="userinfo.asp?userid=<%=topicuserid%>" title="查看作者信息"><img border="0" src="pic/info.gif" align="absmiddle" />&nbsp;信息</a>&nbsp;
						<a href="sms.asp?action=write&toname=<%=kbbs(content(2))%>" title="给作者留言"><img border="0" align="absmiddle" src="pic/newmail.gif" />&nbsp;留言</a>&nbsp;
					
					<%if userinfoyn=1 or userinfoyn="" then
						if userinfo(1)<>"" then
							response.write"<a title=""访问作者主页"" target=""_blank"" href="""&kbbs(userinfo(1))&"""><img border=""0"" src=""pic/home.gif"" align=""absmiddle"" />&nbsp;主页</a>&nbsp;"
						end if
					end if%>

						<a href="edit.asp?bbsid=<%=rs("bbsid")%>&topictype=1&bd=<%=bd%>&totable=<%=totable%>" title="编辑帖子"><img border="0" align="absmiddle" src="pic/edit.gif" />&nbsp;编辑</a>&nbsp;
						<a href="say.asp?topictype=2&bd=<%=bd%>&quoteid=<%=rs("bbsid")%>&bid=<%=id%>&totable=<%=totable%>" title="引用帖子"><img border="0" align="absmiddle" src="pic/xie.gif" />&nbsp;引用</a>&nbsp;
						
						<img border="0" src="pic/ip.gif" align="absmiddle" />&nbsp;
		
						<%if userinfoyn=1 or userinfoyn="" then
							response.write"<span title=""IP 地址："
							if usertype>=3 then 
								response.write rs("ip")
							else
								response.write"保密"
							end if
							response.write""">"
							if conn.execute("select top 1 userid from online where userid="&topicuserid&" and showyn=true").eof then
								response.write"<font color=#808080>离线</font>&nbsp;"
							else
								response.write"<font color="&c1&">在线</font>&nbsp;"
							end if
							response.write"</span>"