admin_admin_ok.asp
来自「物流管理系统,可以用于中小企业,建立自己的内部物流管理.」· ASP 代码 · 共 224 行
ASP
224 行
<%@ codepage ="936" %>
<%
if instr(session("flag_fyadmin"),"101")=0 then
response.write "<SCRIPT language=JavaScript>alert('对不起，你没有权限打开此页！');"
response.write"this.location.href='../login.asp';</SCRIPT>"
response.end
end if
%><!--#include file="../../inc/config.asp"-->
<!--#include file="../../conn/dbconn2.asp" -->
<!--#include file="../../inc/md5.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_fyadmin"),"101")=0 then
Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=../admin_login.asp><font color=#ff0000>登陆</font></a>后进入。<br><li>您没有管理本页面的权限。"
call Error()
else
call main()
set rs=nothing
conn.close
set conn=nothing
end if
sub 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()
else
call manager()
end if
%>
<p><%=body%></p>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
sub manager()
dim sql
dim rs
dim id
id=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=100%>
<TR>
<TD align="center">
<FORM action="admin_admin_ok.asp?action=editsave&id=<%=id%>" method="post" name="Form1">
<TABLE cellPadding=0 cellSpacing=0 width=100%>
<TR>
<TD align="left" height="28" colspan=2 bgcolor=#EFEFEF><b>管理员信息修改</b>--</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> <input type=text name=password size="20" class="smallInput" value="">
<font color=red>[不修改请保留为空]</font></TD>
</TR>
<TR>
<TD align="left" height="28" colspan=2 bgcolor=#EFEFEF>管理权限</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 for
tmpmenu=split(menu(i,j),",")
menuname=tmpmenu(0)
menurl=tmpmenu(1)
%>
<input type="checkbox" name="flag" <% if instr(session("flag_fyadmin"),"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=#EFEFEF>
<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.close
set rs=nothing
end sub
sub editsave()
set rs=server.createobject("adodb.recordset")
sql="select * from manage_user where id="&request("id")
rs.open sql,conn,3,3
rs("username")=request("username")
if trim(request("password"))<>"" then rs("password")=md5(trim(request("password")))
rs("flag")=request("flag")
rs.update
response.write "管理员信息修改成功，请<a href=admin_admin.asp?page="&CurrentPage&"><font color=#ff000>继续</font></a>其他操作。"
end sub
sub 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="100%">
<TR>
<TD align="center">
<FORM action="admin_admin_ok.asp?action=addsave&id=<%=id%>" method="post" name="Form1">
<TABLE cellPadding=0 cellSpacing=0 width="100%">
<TR>
<TD align="left" height="28" colspan=2 bgcolor=#EFEFEF><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=#EFEFEF><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 for
tmpmenu=split(menu(i,j),",")
menuname=tmpmenu(0)
menurl=tmpmenu(1)
%>
<input type="checkbox" name="flag" <% if instr(session("flag_fyadmin"),"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=#EFEFEF>
<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 sub
sub addsave()
set rs=server.createobject("adodb.recordset")
sql="select * from manage_user"
rs.open sql,conn,3,3
rs.addnew
rs("username")=request("username")
rs("password")=md5(request("password"))
rs("flag")=request("flag")
rs.update
response.write "管理员信息添加成功，请<a href=admin_admin.asp><font color=#ff000>继续</font></a>其他操作。"
end sub
%>
</center>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?