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

gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > adminer.asp
    <%@language="VBScript"%>
<!--#include file="title.asp"-->
<%
contents=contents &"<title>社区管理人员－"& caption &"</title>"&_
"</head>"&_
"<body>"&_
""&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">"
if bbsadmin>4 then
Dim adminuser,tbbsadmin,aselect,i,admintype,id,delid
adminuser=Trim(Request.Form("username"))
tbbsadmin=Request.Form("bbsadmin")
if IsNumeric(tbbsadmin) then
tbbsadmin=Clng(tbbsadmin)
else
tbbsadmin=0
end if
id=Request.QueryString("id")
if IsNumeric(id) then
id=Clng(id)
else
id=0
end if
delid=Request.QueryString("delid")
if IsNumeric(delid) then
delid=Clng(delid)
else
delid=0
end if
if adminuser<>"" and tbbsadmin>0 then
if tbbsadmin=2 then
admintype="精华区管理员"
elseif tbbsadmin=3 then
admintype="普通管理员"
elseif tbbsadmin=4 then
admintype="高级管理员"
elseif tbbsadmin>4 then
admintype="超级管理员"
tbbsadmin=5
end if
rs.Open "Select gbmadadmin From gbmaduser Where gbmaduser='"& adminuser &"'",conn,1,3
if Not rs.Eof then
rs("gbmadadmin")=tbbsadmin
rs.Update
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">添加/设置管理员</td></tr><tr><td><br>　<img border=""0"" src="""& theme &"08.gif""> 已将 "& adminuser &" 设置为 "& admintype &"。<br><br></td></tr>"
adminuser=""
tbbsadmin=0
else
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">添加/设置管理员</td></tr><tr><td><br>　<img border=""0"" src="""& theme &"08.gif""> 用户 "& adminuser &" 不存在，请检查后再试。<br><br></td></tr>"
end if
rs.Close
end if
if delid>0 then
rs.Open "Select gbmaduser,gbmadadmin From gbmaduser Where id="& delid &" and gbmadadmin>1",conn,1,3
if Not rs.Eof then
rs("gbmadadmin")=Null
rs.Update
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">移除管理员</td></tr><tr><td><br>　<img border=""0"" src="""& theme &"08.gif""> 已将 "& rs("gbmaduser") &" 移出管理组。<br><br></td></tr>"
end if
rs.Close
end if
if id>0 then
rs.Open "Select gbmaduser,gbmadadmin From gbmaduser Where id="& id &" and gbmadadmin>1",conn,1,1
if Not rs.Eof then
adminuser=rs("gbmaduser")
tbbsadmin=rs("gbmadadmin")
end if
rs.Close
end if
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">添加/设置管理员</td></tr>"&_
"<form name=""adminer"" onsubmit=""return validinput();"" method=""post"" action=""adminer.asp"">"&_
"<tr class=""tds""><td>"&_
"<Script Language=""JavaScript"">"&_
"function validinput()"&_
"{"&_
"if (document.adminer.username.value.length==0)"&_
"{"&_
"alert(""还没输入用户名呢。"");"&_
"document.adminer.username.focus();"&_
"return false;"&_
"}"&_
"return true;"&_
"}"&_
"</Script>"&_
"用 户 名：<input name=""username"" type=""text"" maxlength=""20"" size=""20"" class=""iptwin"" value="""& adminuser &"""><br>"&_
"用户权限：<select name=""bbsadmin"" size=""1"">"
aselect=""
if tbbsadmin=2 then aselect=" selected"
contents=contents &"<option value=""2"""& aselect &">精华区管理员</option>"
aselect=""
if tbbsadmin=3 then aselect=" selected"
contents=contents &"<option value=""3"""& aselect &">普 通 管理员</option>"
aselect=""
if tbbsadmin=4 then aselect=" selected"
contents=contents &"<option value=""4"""& aselect &">高 级 管理员</option>"
aselect=""
if tbbsadmin=5 then aselect=" selected"
contents=contents &"<option value=""5"""& aselect &">超 级 管理员</option>"&_
"</select>　"&_
"<input type=""submit"" value=""提交"" class=""out"" onmouseover=""this.className='over'"" onmouseout=""this.className='out'"">"&_
"</td></tr>"&_
"</form>"&_
"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">管理员列表</td></tr>"&_
"<tr class=""tds""><td>"&_
"<table border=""0"" cellpadding=""0"" cellspacing=""3"" width=""100%"">"&_
"<tr class=""toptr""><td width=""32"">ID</td><td>用户名</td><td width=""96"">权限</td><td width=""32"">删除</td></tr>"
rs.Open "Select id,gbmaduser,gbmadadmin From gbmaduser Where gbmadadmin>1",conn,1,1
For i=1 to rs.RecordCount
if rs("gbmadadmin")=2 then
admintype="精华区管理员"
elseif rs("gbmadadmin")=3 then
admintype="普通管理员"
elseif rs("gbmadadmin")=4 then
admintype="高级管理员"
elseif rs("gbmadadmin")=5 then
admintype="超级管理员"
end if
contents=contents &"<tr class=""otr""><td>"& rs("id") &"</td><td><a href=""adminer.asp?id="& rs("id") &""">"& rs("gbmaduser") &"</a></td><td>"& admintype &"</td><td><a href=""adminer.asp?delid="& rs("id") &""">删权</a></td></tr>"
rs.MoveNext
Next
rs.Close
contents=contents &"</table>"&_
"</td></tr>"
else
call connclose
Response.Redirect "login.asp"
end if
contents=contents &"</table>"&_
""
%>
<!--#include file="bottom.asp"-->