www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > topictool.asp
<%@language="VBScript"%>
<!--#include file="title.asp"-->
<!--#include file="sub.asp"-->
<%
Dim title,id,topic,reply,explore,elite
title=Request.QueryString("title")
id=Request.QueryString("id")
if IsNumeric(id) then
id=Clng(id)
else
id=0
end if
topic=Request.QueryString("topic")
if IsNumeric(topic) then
topic=Clng(topic)
else
topic=0
end if
reply=Request.QueryString("reply")
if IsNumeric(reply) then
reply=Clng(reply)
else
reply=0
end if
explore=Request.QueryString("explore")
if IsNumeric(explore) then
explore=Clng(explore)
else
explore=0
end if
contents=contents &"<title>道具使用－"& caption &"</title>"&_
"</head>"&_
"<body>"&_
""&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">"
if gbmaduser="" then
contents=contents &"<script language=""JavaScript"">alert(""出错：你还没登陆或者已经掉线，请重新登陆。"");window.close();</script>"
else
if validate<>creatvalidate(gb+imprison,ip) then
contents=contents &"<script language=""JavaScript"">alert(""出错：验证Cookies信息出错，请重新登陆。引起该错误的原因可能是因为你手动修改了Cookies。"");window.close();</script>"
else
if imprison="2" or imprison="4" or imprison="6" or imprison="7" then
contents=contents &"<script language=""JavaScript"">alert(""出错：你因为违反社区条例，被禁止使用道具。具体可以查看异动报告。"");window.close();</script>"
else
if id>0 then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">帖子道具</td></tr>"&_
"<tr class=""tds""><td>"&_
"你可以为帖子 <font class=""anonymity"">"& title &"</font> 使用以下道具。"&_
"<table border=""0"" cellpadding=""3"" cellspacing=""3"" width=""100%"">"&_
"<tr><td width=""36""><a href=""suspend.asp?id="& id &""">使用悬浮陨石</a></td><td class=""otr"">悬浮陨石：可以让帖子浮在顶端24小时，点击图使用。</td></tr>"&_
"<tr><td width=""36""><a href=""angelwing.asp?id="& id &""">使用天使翅膀</a></td><td class=""otr"">天使翅膀：可以让帖子浮在顶端72小时，点击图使用。</td></tr>"&_
"<tr><td width=""36""><a href=""koala.asp?id="& id &""">使用乱抱树熊</a></td><td class=""otr"">乱抱树熊：可以让置顶的帖子置顶时间减少48小时，点击图使用。</td></tr>"&_
"</table>"&_
"</td></tr>"
if bbsadmin>1 then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">管理工具</td></tr>"&_
"<tr class=""tds""><td>"&_
"<a href=""elite.asp?id="& id &""">把帖子加入/移出精华区</a>"&_
"</td></tr>"
end if
elseif topic>0 then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">显影水晶</td></tr>"&_
"<tr class=""tds""><td>"&_
"你想对 <font class=""anonymity"">神秘人物"& title &"</font> 使用显影水晶吗？"&_
"<table border=""0"" cellpadding=""3"" cellspacing=""3"" width=""100%"">"&_
"<tr><td width=""36""><a href=""develop.asp?topic="& topic &""">使用显影水晶</a></td><td class=""otr"">显影水晶：可以查看发贴人名为 神秘人物?????? 的真实名称，点击图使用。</td></tr>"&_
"</table>"&_
"</td></tr>"
elseif reply>0 then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">显影水晶</td></tr>"&_
"<tr class=""tds""><td>"&_
"你想对 <font class=""anonymity"">神秘人物"& title &"</font> 使用显影水晶吗？"&_
"<table border=""0"" cellpadding=""3"" cellspacing=""3"" width=""100%"">"&_
"<tr><td width=""36""><a href=""develop.asp?reply="& reply &""">使用显影水晶</a></td><td class=""otr"">显影水晶：可以查看发贴人名为 神秘人物?????? 的真实名称，点击图使用。</td></tr>"&_
"</table>"&_
"</td></tr>"
elseif explore>0 then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">探察视镜</td></tr>"&_
"<tr class=""tds""><td>"&_
"你想查看被 <font class=""anonymity"">"& title &"</font> 删除的回复吗？"&_
"<table border=""0"" cellpadding=""3"" cellspacing=""3"" width=""100%"">"&_
"<tr><td width=""36""><a href=""explore.asp?id="& explore &""">使用探察视镜</a></td><td class=""otr"">探察视镜：可以查看已经被删除不显示的回复，点击图使用。</td></tr>"&_
"</table>"&_
"</td></tr>"
else
contents=contents &"<script language=""JavaScript"">alert(""出错：非法调用或者程序出错。\n请确定你是通过正常方式进行操作，如果依旧出错，请联系管理员报告错误。"");window.close();</script>"
end if
end if
end if
end if
contents=contents &"</table>"&_
""
%>
<!--#include file="bottom.asp"-->