addadmin.asp

一个漂亮的网络工作室源码 后台地址:/admin 用户名:admin 密码:admin888

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="top.asp"-->
<%
if Cint(Request.Cookies("IsSuper"))<>1 then
Response.Redirect("Default.asp")
Response.End()
End If
select case request("action")
case "saveedit"
call saveedit()
case else
call normal()
end select
sub normal()
dim id,rs,adminname,adminpwd,adminqx,IsSuper
id=request("id")
adminqx="0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||"
if id<>"" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from admin where id="&id&"",conn,1,1
if rs.bof and rs.eof then
response.Write("<script>alert('用户不存在或已被删除！');history.back()</script>")
response.End()
end if
adminname=rs("adminname")
adminpwd=rs("adminpassword")
IsSuper=rs("IsSuper")
adminqx=rs("AdminGroup")
end if
adminqx=split(adminqx,"|||")
response.Write("<table width='770' border='0' align='center' cellpadding='0' cellspacing='1' class='tablecolor'>")
response.Write("<tr class='banner'><td height='25' align='center' >管理管理员</td></tr></table>")
response.Write("<table width='770' border='0' align='center' cellpadding='3' cellspacing='1' class='tablecolor'>")
response.Write("<form name='form1' method='post' action='?action=saveedit'>")
response.Write("<tr class='tablebody'><td width='200' height='25' align='center'>管理员名称</td><td ><input name='adminname' type='text' id='adminname' value='"&adminname&"' maxlength='20'")
if adminname<>"" then response.Write("readonly")
response.Write("></td></tr>")
response.Write("<tr class='tablebody'><td height='25' align='center' >管理员密码</td><td><input name='adminpwd' type='password' value='"&adminpwd&"' maxlength='20'>&nbsp;至少6位</td></tr>")
response.Write("<tr class='tablebody'><td height='25' align='center' >管理员权限</td><td>")

response.Write("<input name='G0' type='checkbox' value=1")
if Cint(adminqx(0))=1 then response.Write(" checked")
response.Write(">&nbsp;网站设置&nbsp;<input name='G1' type='checkbox' value=1")
if Cint(adminqx(1))=1 then response.Write(" checked")
response.Write(">&nbsp;新闻管理&nbsp;<input name='G2' type='checkbox' value=1")
if Cint(adminqx(2))=1 then response.Write(" checked")
response.Write(">&nbsp;产品管理&nbsp;<input name='G3' type='checkbox' value=1")
if Cint(adminqx(3))=1 then response.Write(" checked")
response.Write(">&nbsp;留言管理&nbsp;<br><input name='G4' type='checkbox' value=1")
if Cint(adminqx(4))=1 then response.Write(" checked")
response.Write(">&nbsp;会员管理&nbsp;<input name='G5' type='checkbox' value=1")
if Cint(adminqx(5))=1 then response.Write(" checked")
response.Write(">&nbsp;友情联接&nbsp;<input name='G6' type='checkbox' value=1")
if Cint(adminqx(6))=1 then response.Write(" checked")
response.Write(">&nbsp;招聘管理&nbsp;<input name='G7' type='checkbox' value=1")
if Cint(adminqx(7))=1 then response.Write(" checked")
response.Write(">&nbsp;定单管理&nbsp;<br><input name='G8' type='checkbox' value=1")
if Cint(adminqx(8))=1 then response.Write(" checked")
response.Write(">&nbsp;营销网络&nbsp;<input name='G9' type='checkbox' value=1")
if Cint(adminqx(9))=1 then response.Write(" checked")
response.Write(">&nbsp;反馈信息&nbsp;<input name='G10' type='checkbox' value=1")
if Cint(adminqx(10))=1 then response.Write(" checked")
response.Write(">&nbsp;网站调查&nbsp;")

response.Write("<input name='IsSuper' type='checkbox' value=1") 
if IsSuper=1 then response.Write(" checked")
response.Write(">&nbsp;<font color=red>超级管理员</font></td></tr>")
response.Write("<tr class='tablebody'><td height='25' align='center' >&nbsp;</td><td><input type='hidden' name='id' value='"&id&"'><input type='submit' name='Submit' value='提 交'>&nbsp;<input type='reset' name='Submit2' value='重 置'></td></tr></form></table>")
end sub
sub saveedit()
dim adminname,adminpwd,id,adminqx
id=checkStr(request.Form("id"))
adminname=checkStr(Request.Form("adminname"))
adminpwd=checkStr(Request.Form("adminpwd"))
For i=0 to 10
adminqx=adminqx&Cint(Request.Form("G"&i))&"|||"
next
if adminname="" then
response.Write("<script>alert('用户名不能为空！');history.back()</script>")
response.End()
end if
if len(adminpwd)<6 then
response.Write("<script>alert('密码小于6位！');history.back()</script>")
response.End()
end if
dim rs
set rs=server.CreateObject("adodb.recordset")
if id="" then
rs.open "select * from admin where adminname='"&adminname&"'",conn,1,3
if not rs.bof and not rs.eof then
response.Write("<script>alert('用户名已存在！');history.back()</script>")
response.End()
end if
rs.addnew
rs("adminname")=adminname
rs("adminpassword")=md5(adminpwd)
rs("AdminGroup")=adminqx
rs("IsSuper")=Cint(Request.Form("IsSuper"))
rs.update 
rs.close
set rs=nothing
response.Write("<script>alert('添加成功！');location='admin.asp'</script>")
response.End()
else
rs.open "select * from admin where id="&id&"",conn,1,3
rs("adminname")=adminname
if adminpwd<>rs("adminpassword") then
rs("adminpassword")=md5(adminpwd)
end if
rs("AdminGroup")=adminqx
rs("IsSuper")=Cint(Request.Form("IsSuper"))
rs.update
rs.close
set rs=nothing
response.Write("<script>alert('修改成功！');location='admin.asp'</script>")
response.End()
end if
end sub
%>
<%CloseConn%>
<!--#include file="end.asp"-->