📄 adminuser_edit.asp
字号:
<%@ Language=VBScript%>
<%
Response.Buffer=false
Response.Expires=0
%>
<!-- #include file="../dsn.asp" -->
<!-- #include file="../links.asp" -->
<%
if session("adminusername")="" then
session("xhy")=1
Response.Redirect linkwarn
end if
username=trim(Request.QueryString("username"))
pageno=Request.QueryString("pageno")
id=Request.QueryString("id")
htmlname=linkadminuseredit&"?username="+username+"&pageno="+pageno&"&id="&id
backhtml=linkadmins&"?pageno="+pageno
%>
<%
set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs1 = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")
%>
<%
if Request.ServerVariables("REQUEST_METHOD")="POST" then
newname=Request.Form("username")
realname=Request.Form("realname")
password=Request.Form("password")
authority=Request.Form("authority")
password2=password
if id="" then
sqltext3="select * from adminuser where username='"+newname+"'"
rs2.Open sqltext3,cn,1,1
if not rs2.EOF then
errtxt="用户编号:“"&newname&"”已被别人使用，请换号重试！"
newname=""
password=""
password2=""
else
sqltext2="select * from adminuser"
rs1.Open sqltext2,cn,1,2
rs1.AddNew
rs1("username")=newname
rs1("relname")=realname
rs1("userpass")=password
rs1("adminflag")=authority
rs1("enable")=1
for i=1 to 7
checksel=Request.Form("qxflag"&i)
if checksel="1" then
adminqx=adminqx+"1"
else
adminqx=adminqx+"0"
end if
next
adminqx=adminqx+"1"
rs1("adminqx")=adminqx
rs1.Update
id=rs1("id")
rs1.Close
Response.Redirect backhtml
end if
rs2.Close
else
sqltext3="select * from adminuser where id<>"&id&" and username='"+newname+"'"
rs2.Open sqltext3,cn,1,1
if not rs2.EOF then
errtxt="用户编号:“"&newname&"”已被别人使用，请换号重试！"
newname=""
password=""
password2=""
else
sqltext2="select * from adminuser where id="&id
rs1.Open sqltext2,cn,1,2
rs1("username")=newname
rs1("relname")=realname
rs1("userpass")=password
rs1("adminflag")=authority
for i=1 to 7
checksel=Request.Form("qxflag"&i)
if checksel="1" then
adminqx=adminqx+"1"
else
adminqx=adminqx+"0"
end if
next
adminqx=adminqx+"1"
rs1("adminqx")=adminqx
rs1.Update
rs1.Close
Response.Redirect backhtml
end if
rs2.Close
end if
end if
if id<>"" then
sqltext1="select * from adminuser where id="&id
rs1.Open sqltext1,cn,1,1
username=rs1("username")
realname=rs1("relname")
password=rs1("userpass")
password2=rs1("userpass")
authority=rs1("adminflag")
if authority=1 then
qxflag="11111111"
else
qxflag=rs1("adminqx")
end if
rs1.Close
else
authority="0"
end if
%>
<html>
<head>
<title>会员资料</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {font-size: 12px; color: #000; font-family: 宋体}
td {font-size: 12px; color: #000; font-family: 宋体;line-height:130%}
.t1 {font:12px 宋体;color=000000}
.t2 {font:12px 宋体;color:ffffff}
.t3 {font:12px 宋体;color:336699}
.t4 {font:12px 宋体;color:ff0000}
.t5 {font:12px 宋体;color:ff6600}
.bt1 {font:14px 宋体;color=000000}
.bt2 {font:14px 宋体;color:ffffff}
.bt3 {font:14px 宋体;color:336699}
.bt4 {font:bold 16px 宋体;color:maroon}
.td1 {font-size:12px;line-height:24px;text-align:right;background-color:#efefef;color:#000000}
.td2 {font-size:12px;line-height:24px;text-align:left;background-color:#ffffff;color:#000000;}
.td3 {font-size:12px;line-height:24px;text-align:left;background-color:#ffffff;color:#000000;}
A:link {color: #000077}
A:visited {color: #000077}
A:hover {color: #ff0000}
A.title1:link {text-decoration:none;color:#000000;}
A.title1:visited {text-decoration:none;color:#000000;}
A.title1:active {text-decoration:none;color:#ff0000;}
A.title1:hover {font-size:13px;text-decoration:none;color:#ff0000;}
-->
</style>
</head>
<body bgcolor=#ffffff topmargin=10>
<form action="<%=htmlname%>" method=post name=form1 onsubmit="return checkform()" autocomplete = "off">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr><td><font class=t5>网站综合管理→ 系统操作员资料 ←<a href="<%=backhtml%>">返回系统操作员列表</a></td></tr>
<tr><td><hr size=1></td></tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="2" align="center">
<tr bgcolor=ffdfbf><td colspan=2 height=22><font class=t1>管理人员资料</font></td></tr>
<tr ><td colspan=3 align=center><font size=3 color="red"><b><%=errtxt%></b></font></td></tr>
<tr><td width=70 class=td1>用户编号</td>
<td class=td2><INPUT type="text" value="<%=username%>" name=username maxlength=15 size=20 <%if username<>"" then Response.Write ("STYLE=background-color:efefef readonly")%>><font color=red>*</font>
<tr><td class=td1>真实姓名</td>
<td class=td2><INPUT type="text" value="<%=realname%>" name=realname maxlength=12 size=20><font color=red>*</font>
</td></tr>
<tr><td class=td1>密码</td>
<td class=td2><INPUT type="password" value="<%=password%>" name=password maxlength=15 size=15><font color=red>*</font>
<font class=td3>不分大小写</font>
</td></tr>
<tr><td class=td1 bgcolor=ffffff>确认密码</td>
<td class=td2><INPUT type="password" value="<%=password2%>" name=password2 maxlength=15 size=15><font color=red>*</font>
<font class=td3>请再次输入密码(两次密码需一致)</font>
</td></tr>
<tr><td class=td1>管理权限：</td>
<td class=td2>
<%if username<>"admin" then%>
<input type=radio name=authority value="0" <%if authority="0" then Response.Write("checked")%>>普通管理员
<%end if%>
<input type=radio name=authority value="1" <%if authority="1" then Response.Write("checked")%>>高级管理员
</td>
</tr>
<tr><td class=td1>权限分配：</td>
<td class=td2>
<input type=checkbox name=qxflag1 value="1" <%if mid(qxflag,1,1)="1" then Response.Write("checked")%>>基本资料
<input type=checkbox name=qxflag2 value="1" <%if mid(qxflag,2,1)="1" then Response.Write("checked")%>>下属企业
<input type=checkbox name=qxflag3 value="1" <%if mid(qxflag,3,1)="1" then Response.Write("checked")%>>产品世界
<input type=checkbox name=qxflag4 value="1" <%if mid(qxflag,4,1)="1" then Response.Write("checked")%>>销售网络
<input type=checkbox name=qxflag5 value="1" <%if mid(qxflag,5,1)="1" then Response.Write("checked")%>>人才招聘
<input type=checkbox name=qxflag6 value="1" <%if mid(qxflag,6,1)="1" then Response.Write("checked")%>>联系我们
<input type=checkbox name=qxflag7 value="1" <%if mid(qxflag,7,1)="1" then Response.Write("checked")%>>综合管理
</td>
</tr>
<tr><td class=td2></td>
<td class=td2><font color=ff0000>注：高级管理员具有完全权限</font>
</td>
</tr>
<tr><td class=td2 bgcolor=ffffff ></td><td class=td2 bgcolor=ffffff align=middle><br>
<input type="submit" name="submit" value="确认提交" onclick="checkinput(form1)">
</td></tr>
</table>
</td></tr>
</table>
</form>
<body>
</html>
<script language=Javascript>
var flag=true;
function checkform()
{
return flag;
}
function checkinput(form)
{
if(form("username").value=="")
{alert("请输入用户编号!");form("username").focus();flag=false;return}else{flag=true}
if(form("realname").value=="")
{alert("请输入真实名称!");form("realname").focus();flag=false;return}else{flag=true}
if(form("password").value=="")
{alert("密码不能为空!");form("password").focus();flag=false;return}else{flag=true}
if(form("password2").value!=form("password").value)
{alert("两次密码不一致!");
form("password").value="";
form("password2").value="";
form("password").focus();flag=false;return}else{flag=true}
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -