📄 score_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="score_save.asp">
<table width="650" 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>
</tr>
<%
'根据update参数判断是录入还是修改，“y”为修改
update=request("update")
'如果是修改，则从zongcj表中取出数据并显示
if update="y" then
Set rs = Server.CreateObject("adodb.recordset")
sql="select * from zongcj order by sid"
rs.open sql,conn,3,1
sum=1
while not rs.eof
%>
<tr>
<td align="center"><%=sum%></td>
<td align="center"><%=rs("sid")%><input name=sid<%=sum%> type="hidden" value="<%=rs("sid")%>"></td>
<td height="50" align="center"><%=rs("sname")%><input name=sname<%=sum%> type="hidden" value="<%=rs("sname")%>"></td>
<td align="center"> <%=rs("psscore")%><input name=psscore<%=sum%> type="hidden" value="<%=rs("psscore")%>"></td>
<td align="center"><input name="qmscore<%=sum%>" type="text" class="he0" size="5" value="<%=rs("qmscore")%>"/></td>
<td align="center"><input name="memo<%=sum%>" type="text" class="he0" size="30" value="<%=rs("memo")%>"/></td>
</tr>
<%
sum=sum+1
rs.movenext
wend
rs.close
set rs=nothing
else
'若是插入数据，则从yonghu表中取出username、truename
Set rs = Server.CreateObject("adodb.recordset")
sql="select * from yonghu where sort='学生'"
rs.open sql,conn,3,1
sum=1
while not rs.eof
'取出每人的平均值
Set rspscj = Server.CreateObject("adodb.recordset")
sqlpscj="select avg(score) as score from pscj where sid='"&rs("username")&"'"
rspscj.open sqlpscj,conn,3,1
if not rspscj.eof then
pscj=rspscj("score")
end if
rspscj.close
set rspscj=nothing
%>
<tr>
<td align="center"><%=sum%></td>
<td align="center"><%=rs("username")%><input name=sid<%=sum%> type="hidden" value="<%=rs("username")%>"></td>
<td height="50" align="center"><%=rs("truename")%><input name=sname<%=sum%> type="hidden" value="<%=rs("truename")%>"></td>
<td align="center"> <%=pscj%><input name=psscore<%=sum%> type="hidden" value="<%=pscj%>"></td>
<td align="center"><input name="qmscore<%=sum%>" type="text" class="he0" size="5" /></td>
<td align="center"><input name="memo<%=sum%>" type="text" class="he0" size="30" /></td>
</tr>
<%
sum=sum+1
rs.movenext
wend
rs.close
set rs=nothing
end if
%>
</table>
<div align="center"><br> <input name=sum type="hidden" value="<%=sum%>">
<input type="submit" name="Submit" value="确定" class="he1" /> <a href="score_list.asp"> <input type="submit" name="Submit" value="返回" class="he1" /></a><br></div>
</form>
</body>
</html>
<!--#include file="../inc/conn_close.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -