📄 mgstudent.asp
字号:
<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<!--#include file="Checkadmin.asp"-->
<%
dim isedit '是否在编辑状态
dim id'定义变量，用户的id
dim sql,rs,rsc
dim curpage, i,page,number '显示试题数默认值
number=55 '默认每页行数
isedit=false
if request("action")="edit" then
isedit=true
end if
if request("action")="modify" then '修改用户
set rs=server.createobject("ADODB.recordset")
if trim(request("studentpassword"))="" then
response.write "错误!密码不能为空! <a href=# onclick='javascript:window.history.go(-1)'>返回</a>"
response.end
end if
studentname=request("studentname")
name=request("name")
rs.open "select * from student where studentname='"&studentname&"'",conn,1,3
rs("studentpassword")=request("studentpassword")
rs("studentname")=request("studentname")
rs("name")=request("name")
rs("dq")=request("dq")
rs.update
rs.close
set rs=nothing
end if
%>
<%
if request("action")="add" then '添加新用户
if trim(request("studentname"))="" or trim(request("studentpassword"))="" then
response.write "错误!用户名或密码不能为空! <a href=# onclick='javascript:window.history.go(-1)'>返回</a>"
response.end
end if
set rs=server.createobject("adodb.recordset") '检查学生是否重名
rs.open "select * from student where studentname='" & cstr(trim(request("studentname"))) & "'",conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else if not rs.bof and not rs.eof then
response.write "错误!该用学生存在! <a href=# onclick='javascript:window.history.go(-1)'>返回</a>"
response.end
end if
end if
rs.close
set rs=nothing
sql="insert into student(name,studentname,studentpassword) values('" & cstr(trim(request("name"))) & "','" & cstr(trim(request("studentname"))) & "','" & cstr(trim(request("studentpassword"))) & "')"
conn.execute sql
if err.number <> 0 then
response.write "数据库操作出错:" + err.description
else %>
<script language=vbscript>
msgbox "操作成功!新用户 <%=trim(request("studentname"))%> 的信息添加成功!"
</script>
<%end if
end if
if request("action")="del" then '删除用户
sql="delete from student where id=" &request("id")
conn.execute sql
if err.number <> 0 then
response.write "数据库操作错误：" + err.description
err.clear
else %>
<script language=vbscript>
msgbox "操作成功!用户号为<%=trim(request("id"))%>的信息已删除!"
</script>
<% end if
end if
%>
<html>
<head>
<title>管理学生</title>
<script language=javascript>
function SureDel(id)
{
if ( confirm("您确定要删除该用户吗？"))
{
window.location.href = "mgstudent.asp?action=del&id=" +id
}
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body link="#333333" vlink="#333333" alink="#333333">
<center>
<p align="left"><a href="primarypage.asp"><font color=red size=+0 face=楷体>返回管理界面</font></a></p>
<h1><font color=blue size=6 face="华文行楷" ><b><a href="primarypage.asp">考生信息管理</a></b></font>
</h1>
<hr>
<% if isedit then
set rs=server.createobject("adodb.recordset")
studentname=request("studentname")
rs.open "select * from student where studentname='"&studentname&"'",conn,1,1
response.write "<p align='center'><font size=3><b>编 辑 学 生 信 息</b></font></p>"
else
response.write "<p align='center'><font size=3><b>添 加 学 生 信 息</b></font></p>"
end if %>
<form action="mgstudent.asp" method="post">
<input type="Hidden" name="action" value='<% If isedit then%>modify<% Else %>add<% End If %>'>
<%If isedit then%>
<input type="Hidden" name="studentname" value='<%=studentname%>'>
<%End If%>
身份证号:
<% if isedit then
response.write request("studentname")
else
%>
<input type="text" name="studentname" class=input maxlength=14 size="16">
<%end if%>
<br>
考生姓名:
<input type="text" name="name" class=input maxlength=12 size="16" value='<% if isedit then
response.write trim(rs("name"))
end if %>'>
<br>
考生密码:
<input type="text" name="studentpassword" class=input maxlength=12 size="16" value='<% if isedit then
response.write trim(rs("studentpassword"))
else
response.write "123456"
end if %>'>
<br>所在地区:<input type="text" name="dq" class=input maxlength=12 size="16" value='<% if isedit then
response.write trim(rs("dq"))
end if %>'>
<br>
<input type="submit" name="submit" value="确 定" class=button>
</form>
<hr size="1">
</center><br>
<table width="90%" border="0" align="center" cellpadding="4" cellspacing="1" bordercolor=purble bgcolor="#000000">
<tr align="center" bgcolor="#FFCC00">
<td width="11%" height="20" style="font-size:9pt">身份证号</td>
<td width="10%" style="font-size:9pt">考生姓名</td>
<td width="23%" style="font-size:9pt"> 成绩 </td>
<td width="14%" style="font-size:9pt">所在地区</td>
<td width="12%" style="font-size:9pt">所在单位</td>
<td width="13%" style="font-size:9pt">职称</td>
<td width="17%" style="font-size:9pt">操作</td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from student ORDER BY studentname",conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if rs.bof and rs.eof then
'rs.close
response.write "目前没有学生"
else
'开始分页显示
if request("page")="" then
curpage = 1
else
curpage = cint(request("page"))
end if
rs.pagesize=cint(number)
rs.absolutepage = curpage
for i = 1 to rs.pagesize %>
<tr align="center" bgcolor="#FFFFFF">
<td width="11%" height="26" style="font-size:9pt"> <%=rs("studentname")%> </td>
<td width="10%" height="26" style="font-size:9pt"> <%=rs("name")%></font>
</td>
<td width="23%" height="26" style="font-size:9pt"> <%
set rsc=server.createobject("adodb.recordset")
rsc.open "select * from score where studentname='"& rs("studentname") &"'",conn,1,1%><%if RSc.BOF AND RSc.EOF then
Response.Write "未考试"%><%else%><%=rsc("score")%><%end if%>
</font>
</font>
</td>
<td width="14%" height="26" style="font-size:9pt"> <a href="gdqxx.asp?dq=<%=rs("dq")%>" title="点击可按罗列该地区所有考生"><%=rs("dq")%></a> </td>
<td width="12%" style="font-size:9pt"> <%=rs("dw")%></td>
<td width="13%" style="font-size:9pt"> <%=rs("zc")%></td>
<td width="17%" style="font-size:9pt"> <a href='mgstudent.asp?studentname=<%=trim(rs("studentname"))%>&action=edit'>编辑</a>  
<%
response.write "<a href='javascript:SureDel(" & cstr(rs("id")) & ")'>删除</a>"
%>
</font></td>
</tr>
<% rs.movenext
if rs.eof then
i = i + 1
exit for
end if
next %>
</table>
<% response.write "<hr size=0 width='0%'><div align=center>"
response.write "第<font color=red>" + cstr(curpage) + "</font>页/共<font color=red>" + cstr(rs.pagecount) + "</font>页 "
response.write "本页<font color=red>" + cstr(i-1) + "</font>条/共<font color=red>" + cstr(rs.recordcount) + "</font>条 "
if curpage = 1 then
else
response.write "<a href='mgstudent.asp?page=1'>首页</a> <a href='mgstudent.asp?page=" & cstr(curpage-1) & "'>前页</a> "
end if
if curpage = rs.pagecount then
else
response.write "<a href='mgstudent.asp?page=" + cstr(curpage+1) + "'>后页</a> <a href='mgstudent.asp?page=" + cstr(rs.pagecount) + "'>末页</a>"
end if
end If
end if
'rs.close
set rs=nothing
%>
<p align="center">
<p align=center><a href="primarypage.asp"><font color=red size=+0 face=楷体>返回管理界面</font></a></p>
<p>
<%
'rs.close
set rs=nothing
%>
</p>
<p> </p>
<p align="center"><a href='deleteall.asp'>删除所有考生信息（非常危险，不可恢复，小心，必须在无人考试的情况下才可以删除零分纪录！）</a> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -