addadmin.asp

英文版全站B2B仿阿里巴巴贸易平台网站,全英文

<%
	if instr(session("EAPurview"),"41")=0 then
		response.redirect "../login.asp"
		response.end
	end if
%>
<!--#include file="../../Inc/DBConn1.asp" -->
<!-- #include file="../../inc/md5.asp" -->
<!--#include file="../Popedom.asp"-->
<LINK href="../../CSS/style.css" rel="stylesheet" type="text/css"></LINK>

<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>

<script LANGUAGE="JavaScript">
	function Check()
	{
		if (document.Form1.AdminName.value=="")
		{
			alert("请输入管理员名称！");
			document.Form1.AdminName.focus();
			return false;
		}
		if (document.Form1.Password.value=="")
		{
			alert("请输入密码！");
			document.Form1.Password.focus();		
			return false;
		}
		document.Form1.submit()
	}
</SCRIPT>

<%
	if request("action")="add" then
		set Rs1=server.createobject("adodb.recordset")
		Rs1.open "select * from AdminUser",conn,3,3
		
		Rs1.addnew
		Rs1("AdminName")=request("AdminName")
		Rs1("Password")=md5(replace(trim(request("Password")),"'","''"),16)
		Rs1("Purview")=request("Purview")
		
		Rs1.update
		Rs1.Close
		Set Rs1=nothing
		response.Redirect "Administrators.asp"
		response.End
	end if
%>

<TABLE border="0" cellspacing="0" width="100%" cellpadding="4" ID="Table1">
	<form name="Form1" method="post" action="AddAdmin.asp?action=add" ID="Form1">
	<TR>
		<TD bgcolor="#F78200" height=30 colspan=2><b><font color="#FFFFFF">添加网站管理员</font></b></TD>
	</TR>
	<tr>
		<td height=20 colspan=2 align=right style="padding-right:20px;">带&nbsp;<font color="#F78200">*</font>&nbsp;为必填项</td>
	</tr>
	<TR> 
		<TD width="15%" height="25" align=right><b><font color="#F78200">*</font>&nbsp;管理员名称：</b></TD>
		<TD width="85%" height="25">
			<input type=text name=AdminName size="20" ID="Text1">
		</TD>
	</TR>
	<TR> 
		<TD width="15%" height="25" align=right><b><font color="#F78200">*</font>&nbsp;管理员密码：</b></TD>
		<TD width="85%" height="25">
			<input type=text name=Password size="20" ID="Text2">
		</TD>
	</TR>
	<TR>
		<TD bgcolor="#F78200" height=30 colspan=2><b><font color="#FFFFFF">管理员权限&nbsp;——&nbsp;选择所有权限<input name=chkall type=checkbox value=on onclick=CheckAll(this.form) ID="Checkbox1"></font></b></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="Purview" value="<%=i&j%>"><%=menuname%></a>&nbsp;&nbsp;
			<%next%>
			<%if i<ubound(menu,1)-2 then%><br><br><%end if%>
			<%next%>
		</TD>
    </TR>
	<tr>
		<td colspan=2 align=center>
			<input type="button" value="确认无误，提交！" onclick="Check()" style="height:25pt;" ID="Button1" NAME="Button1">
		</td>
	</tr>
	</form>
</table>