📄 admin_input.asp
字号:
<!--#INCLUDE FILE="../inc/conn_open.asp"-->
<html>
<head>
<title>学生成绩管理系统欢迎您！</title>
<style type="text/css">
<!--
.STYLE1 {
font-size: 26px;
color: #990000;
}
.he0 {
height: 20px;
background-color: #F2F2F2;
}
.he1 {
height: 25px;
width: 60px;
background-color: #F2F2F2;
}
body {
background-color: #F2F2F2;
margin-top: 0px;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /></head>
<%
'判断权限是否正确
if session("sort")<>"管理员" then
%>
<Script Language ="JavaScript">
alert("对不起，您没有此项权限，请返回！！！");
history.back();
</Script>
<%
response.end
end if
%>
<body>
<!--#include file="../inc/score_head.asp"-->
<form name="form1" method="post" action="admin_save.asp">
<table width="770" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#663300" bordercolordark="white">
<tr>
<td height="50" align="center">序号</td>
<td align="center" >用户名</td>
<td height="50" align="center">密码 </td>
<td align="center">真实姓名</td>
<td align="center">院系</td>
<td align="center">班级</td>
<td align="center">角色</td>
<td align="center">备注</td>
</tr>
<%
'若有权限，则显示数据
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from yonghu order by sort,username"
rs.open sql,conn,3,3
sum=1
while not rs.eof
%>
<tr><input name=id<%=sum%> type="hidden" value="<%=rs("id")%>">
<td align="center"><%=sum%></td>
<td align="center"><input name="username<%=sum%>" type="text" class="he0" size="10" value="<%=rs("username")%>"/></td>
<td height="50" align="center"><input name="password<%=sum%>" type="text" class="he0" size="10" value="<%=rs("password")%>" /></td>
<td align="center"><input name="truename<%=sum%>" type="text" class="he0" size="7" value="<%=rs("truename")%>"/></td>
<td align="center"><input name="dept<%=sum%>" type="text" class="he0" size="15" value="<%=rs("dept")%>" /></td>
<td align="center"><input name="class<%=sum%>" type="text" class="he0" size="15" value="<%=rs("class")%>" /></td>
<td align="center"><select name="sort<%=sum%>" class="he1">
<option <%if rs("sort")="管理员" then response.write("selected")%>>管理员</option>
<option <%if rs("sort")="教师" then response.write("selected")%>>教师</option>
<option <%if rs("sort")="学生" then response.write("selected")%>>学生</option>
</select></td>
<td align="center"><input name="memo<%=sum%>" type="text" class="he0" size="15" value="<%=rs("memo")%>" /></td>
</tr>
<%
sum=sum+1
rs.movenext
wend
rs.close
set rs=nothing
%>
</table>
<div align="center"><font color="#FF0000">清空用户名称即可将该记录删除!</font><br> <input name=sum type="hidden" value="<%=sum%>"><input type="submit" name="Submit" value="确定" class="he1" /> <br></div>
</form>
</body>
</html>
<!--#INCLUDE FILE="../inc/conn_close.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -