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>