📄 adminuser_edit.asp

📁 ASP网页
💻 ASP
字号:
<%@ Language=VBScript%>
<%
Response.Buffer=false
Response.Expires=0

if Session("userqx")="1" or Session("userqx")="9" then
else
	Response.Redirect "../warn.asp"
end if

username=Request.QueryString("username")
pageno=Request.QueryString("pageno")
htmlname="adminuser_edit.asp?username="+username+"&pageno="+pageno
backhtml="adminuser_admin.asp?pageno="+pageno

%>
<!-- #include file="../dsn.asp" -->
<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} 
.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">
<%

bz=1
set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")

if Request.ServerVariables("REQUEST_METHOD")="POST" then
	username=Request.QueryString("username")
	newname=Request.Form("username")
	realname=Request.Form("realname")
	userpass=Request.Form("userpass")
	authority=Request.Form("authority")
	classcode=trim(Request.Form("classcode"))

	if username="" then
		sqltext="select top 1 username from adminuser where username='"+newname+"'"
		rs.Open sqltext,cn,1,1
		if not rs.EOF then
			bz=2				'会员代号重名
		end if	
		rs.Close
	end if	
	if bz=1 then
		if username="" then
			rs.Open "adminuser",cn,3,3
			rs.AddNew
			rs("creadate")=now()
			rs("username")=newname
			rs("flag")="1"
		else	
			sqltext="select * from adminuser where username='"+username+"'"
			rs.Open sqltext,cn,3,3
		end if	
		rs("realname")=realname
		rs("userpass")=userpass
		rs("authority")=authority
		rs("classcode")=classcode
		qxflag=""
		for i=1 to 20
			checksele=Request.Form("qxflag"&i)
			if checksele="1" then
				qxflag=qxflag+"1"
			else
				qxflag=qxflag+"0"
			end if
		next
		rs("qxflag")=qxflag	
		rs.Update()
		bz=1
		rs.Close
		Response.Write("<script language=Javascript>")
		Response.Write("window.location.href='"+backhtml+"'")
		Response.Write("</script>")
	end if
else	
	if username="" then
		xgstate=""
		authority="1"
		userpass=""
		userpass2=userpass
	else
		sqltext="select * from adminuser where username='"+username+"'"
		rs.Open sqltext,cn,1,1
		if not rs.EOF then
			realname=trim(rs("realname"))
			userpass=trim(rs("userpass"))
			authority=trim(rs("authority"))
			qxflag=trim(rs("qxflag"))
			classcode=trim(rs("classcode"))
			userpass2=userpass
			xgstate="disabled"
		else
			xgstate=""
		end if
		rs.Close	
	end if
end if	
if bz=1 or bz=2 or bz=3 then
 %>
 <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
	<tr><td width=70 height=26><b>用户资料</b></td>
	<td>&nbsp;
	<%if Session("userqx")="1" or Session("userqx")="9" then%>
		 ← <a href="<%=backhtml%>">返回列表</a>
	<%end if%>	
	<%if bz=2 then%>
		&nbsp;&nbsp;&nbsp;&nbsp;<font color=red>提示:此用户名(<%=newname%>)已被别人使用!</font>
	<%end if%>
	</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 width=70 class=td1>用户编号</td>
		<td class=td2><INPUT type="text" value="<%=username%>" name=username maxlength=15 size=20 <%=xgstate%>><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="<%=userpass%>" name=userpass 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="<%=userpass2%>" name=userpass2 maxlength=15 size=15><font color=red>*</font>
		<font class=td3>请再次输入密码(两次密码需一致)</font>
		</td></tr>
	<tr><td class=td1>管理权限：</td>
		<td class=td2>
			<input type=radio name=authority value="1" <%if authority="1" then Response.Write("checked")%>>普通管理员
			<input type=radio name=authority value="9" <%if authority="9" then Response.Write("checked")%>>高级管理员
  	    </td>
	</tr>
	<tr><td width=70 class=td1 align=right>大类权限</td>
		<td class=td2>
			<select name="classcode"><option value=''>请选择...
			<%
			sqltext="select classcode,classname from product_class where parentcode='0' order by sortnum"
			rs2.Open sqltext,cn,1,1
			do while not rs2.EOF
			%>
			<option value="<%=trim(rs2(0))%>" <%if trim(rs2(0))=classcode then Response.Write("selected") end if%>><%=trim(rs2(1))%></option>
			<%	
				rs2.MoveNext()
			loop				
			rs2.Close()
		    %></select>
  	    </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")%>>产品管理
  	    </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>
	&nbsp;&nbsp;&nbsp;&nbsp;<input type="submit" name="submit" value="确认提交" onclick="checkinput(form1)">&nbsp;&nbsp;&nbsp;&nbsp;
	</td></tr>
	</table>
</td></tr>
</table>	
<%
end if
%>
</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("userpass").value=="")
			{alert("密码不能为空!");form("userpass").focus();flag=false;return}else{flag=true}
		if(form("userpass2").value!=form("userpass2").value)
			{alert("两次密码不一致!");
			form("userpass").value="";
			form("userpass2").value="";
			form("userpass").focus();flag=false;return}else{flag=true}
			
	}
	
</script>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -