lite.asp 仿MOP对开式论坛程序 1.0源码程序 - ASP源码程序

www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > elite.asp
    <%@language="VBScript"%>
<!--#include file="title.asp"-->
<%
Dim id,forumid,forumadmin,typeid,erryes
id=Request.QueryString("id")
if IsNumeric(id) then
id=Clng(id)
else
id=0
end if
contents=contents &"<title>精华贴设置－"& caption &"</title>"&_
"</head>"&_
"<body>"&_
""&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">"
if id>0 then
rs.Open "Select forumid From topic Where id="& id,conn,1,1
if rs.Eof then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>该帖子不存在或者已经删除。<br>请确定你是通过正常方式进行操作，如果依旧出错，请<a href=""reporting.asp"">联系管理员报告错误</a>。<br><a href=""JavaScript:history.back();"">返回刚才的页面</a>。<br><br></td></tr>"
erryes="yes"
else
forumid=rs("forumid")
end if
rs.Close
if forumid>0 then
rs.Open "forum Where id="& forumid,conn,1,1
if Not rs.Eof then
typeid=rs("forumtype")
if Instr(LCase(rs("forumadmin")),"{gb|mad}"& LCase(gbmaduser) &"{gb|mad}")>0 then forumadmin="yes"
end if
rs.Close
end if
if typeid>0 then
if forumadmin<>"yes" then
rs.Open "forumtype Where id="& typeid &" and typeadmin Like '%{gb|mad}"& gbmaduser &"{gb|mad}%'",conn,1,1
if Not rs.Eof then forumadmin="yes"
rs.Close
end if
end if
if erryes<>"yes" then
if bbsadmin>2 or forumadmin="yes" then
rs.Open "Select topictype,gbmaduser From topic Where id="& id,conn,1,3
if rs("topictype")=1 then
rs("topictype")=Null
Session("tempadmin")="yes"
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">管理员设置</td></tr>"&_
"<form name=""setgb"" method=""post"" action=""setgb.asp"">"&_
"<input type=""hidden"" name=""matter"" value=""帖子：id="& id &"移出精华区""><input type=""hidden"" name=""username"" value="""& rs("gbmaduser") &""">"&_
"<tr class=""tds""><td>移出精华区原因：<input name=""cause"" type=""text"" maxlength=""255"" size=""40"" class=""iptwin"" value=""误加入精华区。""><br>扣除发帖人"& gbname &"：<input name=""minusgb"" type=""text"" maxlength=""10"" size=""10"" class=""iptwin"" value=""10"">　<input name=""button"" type=""submit"" value=""提交"" onmouseover=""this.className='over';"" onmouseout=""this.className='out';"" class=""out"">"&_
"</td></tr>"&_
"</form>"
else
rs("topictype")=1
Session("tempadmin")="yes"
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">管理员设置</td></tr>"&_
"<form name=""setgb"" method=""post"" action=""setgb.asp"">"&_
"<input type=""hidden"" name=""matter"" value=""帖子：id="& id &"加入精华区""><input type=""hidden"" name=""username"" value="""& rs("gbmaduser") &""">"&_
"<tr class=""tds""><td>加入精华区原因：<input name=""cause"" type=""text"" maxlength=""255"" size=""40"" class=""iptwin"" value=""精彩帖子。""><br>奖励发帖人"& gbname &"：<input name=""addsgb"" type=""text"" maxlength=""10"" size=""10"" class=""iptwin"" value=""10"">　<input name=""button"" type=""submit"" value=""提交"" onmouseover=""this.className='over';"" onmouseout=""this.className='out';"" class=""out"">"&_
"</td></tr>"&_
"</form>"
end if
rs.Update
rs.Close
else
call connclose
Response.Redirect "login.asp"
end if
end if
else
contents=contents &"<script language=""JavaScript"">alert(""出错：非法调用或者程序出错。\n请确定你是通过正常方式进行操作，如果依旧出错，请联系管理员报告错误。"");window.close();</script>"
end if
contents=contents &"</table>"&_
""
%>
<!--#include file="bottom.asp"-->