📄 admin_admin_ok.asp
字号:
<%@ codepage ="936" %><%if instr(session("flag"),"81")=0 thenresponse.write "<SCRIPT language=JavaScript>alert('对不起，你没有权限打开此页！');"response.write"this.location.href='../login.asp';</SCRIPT>" response.endend if%><!--#include file="../../conn/dbconn2.asp" --><!--#include file="../menu.asp"--><script LANGUAGE="JavaScript">function check(){if (document.Form1.username.value==""){alert("请输入用户名！")document.Form1.username.focus()document.Form1.username.select()return}if (document.Form1.password.value==""){alert("请输入密码！")document.Form1.password.focus()document.Form1.password.select() return}document.Form1.submit()}</SCRIPT><link rel="stylesheet" type="text/css" href="../style.css"><body marginheight=0 marginwidth=0 leftmargin=0><%if instr(session("flag"),"61")=0 thenErrmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=../admin_login.asp><font color=#ff0000>登陆</font></a>后进入。<br><li>您没有管理本页面的权限。"call Error()elsecall main()set rs=nothingconn.closeset conn=nothingend ifsub main()%><center><table cellpadding=0 cellspacing=0 border=0 width=100% align=center><tr><td><table cellpadding=4 cellspacing=1 border=0 width=100%><tr><td width="100%" valign=top><%if request("action")="editsave" then call editsave()elseif request("action")="add" then call add()elseif request("action")="addsave" then call addsave()elsecall manager()end if%><p><%=body%></p></td></tr></table></td></tr></table><%end subsub manager()dim sqldim rsdim idid=request("id")sql="select * from manage_user where id="&cstr(id)Set rs= Server.CreateObject("ADODB.Recordset")rs.open sql,conn,1,1%><script language="JavaScript"><!--function CheckAll(form) {for (var i=0;i<form.elements.length;i++) {var e = form.elements[i];if (e.name != 'chkall') e.checked = form.chkall.checked; }}//--></script><TABLE border=0 cellPadding=0 cellSpacing=0 width="600"><TR><TD align="center"><FORM action="admin_admin_ok.asp?action=editsave&id=<%=id%>" method="post" name="Form1"><TABLE cellPadding=0 cellSpacing=0 width=600><TR> <TD align="left" height="28" colspan=2 bgcolor=#e8f4ff> 管理员信息修改--</td></TR><TR> <TD align="center" height="28">用 户 名：</td><TD><font color="#FFFFFF"> <input type=text name=username size="20" class="smallInput" value=<%=rs("username")%>></font></TD></TR><TR><TD align="center" height="28">密 码：</TD><TD><font color="#FFFFFF"> <input type=text name=password size="20" class="smallInput" value=<%=rs("password")%>></font></TD></TR><TR> <TD align="left" height="28" colspan=2 bgcolor=#e8f4ff>管理权限</td></TR><TR><TD colspan=2><%for i=0 to ubound(menu,1)%><b><%=menu(i,0)%></b><br><%for j=1 to ubound(menu,2)if isempty(menu(i,j)) then exit fortmpmenu=split(menu(i,j),",")menuname=tmpmenu(0)menurl=tmpmenu(1)%><input type="checkbox" name="flag" <% if instr(session("flag"),"61")=0 then response.write "disabled=true" %> value="<%=i&j%>" <% if instr(rs("flag"),i&j)<>0 then response.write "checked" %>><%=menuname%></a> <%next%><br><br><%next%></TD></TR><TR><TD colspan=2 height="28" align="center" bgcolor=#e8f4ff> <input type="button" value="修 改" class="smallInput" onclick=check()> <input name=chkall type=checkbox value=on onclick=CheckAll(this.form)>选择所有权限</TD></TR></TABLE></TD></TR></TABLE></FORM><%rs.closeset rs=nothingend subsub editsave()set rs=server.createobject("adodb.recordset")sql="select * from manage_user where id="&request("id")rs.open sql,conn,3,3rs("username")=request("username")rs("password")=request("password")rs("flag")=request("flag")rs.updateresponse.write "管理员信息修改成功，请<a href=admin_admin.asp?page="&CurrentPage&"><font color=#ff000>继续</font></a>其他操作。"end subsub add()%><script language="JavaScript"><!--function CheckAll(form) {for (var i=0;i<form.elements.length;i++) {var e = form.elements[i];if (e.name != 'chkall') e.checked = form.chkall.checked; }}//--></script><TABLE border=0 cellPadding=0 cellSpacing=0 width="600"><TR><TD align="center"><FORM action="admin_admin_ok.asp?action=addsave&id=<%=id%>" method="post" name="Form1"><TABLE cellPadding=0 cellSpacing=0 width=600><TR> <TD align="left" height="28" colspan=2 bgcolor=#e8f4ff><b>管理员信息修改--</b></td></TR><TR> <TD align="center" height="28">用 户 名：</td><TD><font color="#FFFFFF"> <input type=text name=username size="20"></font></TD></TR><TR><TD align="center" height="28">密 码：</TD><TD> <input type=text name=password size="20"></TD></TR><TR> <TD align="left" height="28" colspan=2 bgcolor=#e8f4ff><b>管理权限</b></td></TR><TR> <TD height="20" colspan=2></td></TR><TR><TD colspan=2><%for i=0 to ubound(menu,1)%><%=menu(i,0)%><br><%for j=1 to ubound(menu,2)if isempty(menu(i,j)) then exit fortmpmenu=split(menu(i,j),",")menuname=tmpmenu(0)menurl=tmpmenu(1)%><input type="checkbox" name="flag" <% if instr(session("flag"),"61")=0 then response.write "disabled=true" %> value="<%=i&j%>"><%=menuname%></a> <%next%><br><br><%next%></TD></TR><TR><TD colspan=2 height="28" align="center" bgcolor=#e8f4ff> <input type="button" value="添 加" class="smallInput" onclick=check()> <input name=chkall type=checkbox value=on onclick=CheckAll(this.form)>选择所有权限</TD></TR></TABLE></TD></TR></TABLE></FORM><%end subsub addsave()set rs=server.createobject("adodb.recordset")sql="select * from manage_user"rs.open sql,conn,3,3rs.addnewrs("username")=request("username")rs("password")=request("password")rs("flag")=request("flag")rs.updateresponse.write "管理员信息添加成功，请<a href=admin_admin.asp><font color=#ff000>继续</font></a>其他操作。"end sub%></center>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -