www.gusucode.com > ASP+ACCESS学生信息管理系统设计(源代码+论文) > ASP+ACCESS学生信息管理系统设计(源代码+论文)\赵超\AdminUserMod.asp

    <!--#include file="Conn.asp"-->
<link href="Css/wangye9pt.css" rel="stylesheet" type="text/css">
<title>修改管理员信息</title>
<%
Call IsLog() 
	IF Request("Isok")=1 then
	UserName=ReplaceBadChar(Request.Form("UserName"))
	UserPwd=ReplaceBadChar(Request.Form("UserPwd"))
    UserOpr1=Cint(ReplaceBadChar(Request.Form("UserOpr")))
	
	Str="Update XcUser Set UserPwd='" & UserPwd & "',UserOpr=" & UserOpr1 & " Where UserName='" & UserName & "'"
	Conn.execute(Str)
	Call UserOpr(" 修改管理员:" & UserName & "的信息!")
	Call ShowMess("修改管理员成功,请关闭本窗口!")
	End if


UID=Cint(Request.QueryString("UID"))
Str="Select * From XcUser where ID=" & UID
Set Rs=Conn.execute(Str)
		
%>
<table width="95%"  border="0" align="center" cellpadding="0" cellspacing="1" class="TableAll">
  <tr>
    <td height="25" align="center" class="TrTop">修改管理员信息</td>
  </tr>
  <tr>
    <td height="30" align="center" class="TrBody"><form action="" method="post" name="FrmSearch" id="FrmSearch" onSubmit="return Search()">
        <table  border="0" cellpadding="5" cellspacing="0" class="TrBody">
          <tr>
            <td height="15" align="right">用户名</td>
            <td height="15"><input name="UserName" type="text" id="UserName" style="width:100px" value="<%=Rs("UserName")%>" readonly="true"></td>
          </tr>
          <tr>
            <td height="15" align="right">密码</td>
            <td height="15"><input name="UserPwd" type="text" id="UserPwd2" style="width:100px" value="<%=Rs("UserPwd")%>" size="10"></td>
          </tr>
          <tr>
            <td height="15" align="right">权限</td>
            <td height="15"><select name="UserOpr" id="select"  style="width:100px">
                <% Str="Select * From IsOpr Order By ID"
			Set Rs=Conn.execute(Str)
			Do while Not Rs.eof
		  %>
                <option value="<%=Rs("OprValue")%>"><%=Rs("OprName")%></option>
                <%
		 	Rs.MoveNext
			Loop
			%>
              </select></td>
          </tr>
          <tr>
            <td height="15" colspan="2" align="center"><input type="submit" name="Submit" value="确认修改">
              <input type="button" name="Submit2" value="关闭窗口" onClick="window.close()">
              <input name="Isok" type="hidden" id="Isok" value="1"></td>
          </tr>
          <script language="javascript">
function Search()
{
if(FrmSearch.UserName.value==""){
alert('请输入用户名!');
FrmSearch.UserName.focus();
return false;
}
if(FrmSearch.UserPwd.value==""){
alert('请输入密码!');
FrmSearch.UserPwd.focus();
return false;
}
if(confirm('确实要修改数据吗?'))
		{
		return true;
		}
return false;
}
function DeleteUser(UserName,UID)
{
if(confirm('确实要删除用户' + UserName + '吗?此操作不能恢复!'))
		{
		window.location.href='AdminUser.asp?UserName=' + UserName + '&DelID=' + UID;
		}
}
</script>
        </table>
      </form></td>
  </tr>
</table>