📄 score_ps_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
%>
<%
'取出插入平时成绩的参数sort和cdate。因cdate在asp中是函数名，故改名为checkdate
checkdate=request("nd")&"-"&request("yd")&"-"&request("rd")
sort=request("sort")
%>
<body>
<!--#include file="../inc/score_head.asp"-->
<form name="form1" method="post" action="score_ps_save.asp">
<table width="650" border="2" 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>
</tr>
<%
update=request("update")
'判断是录入还是修改
if update="y" then
'如果是修改，则从pscj表中取出数据并显示
Set rs = Server.CreateObject("adodb.recordset")
sql="select * from pscj order by sid,cdate"
rs.open sql,conn,3,1
sum=1
while not rs.eof
%>
<tr><input name=id<%=sum%> type="hidden" value="<%=rs("id")%>">
<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"><input name=sort<%=sum%> type="text" class="he1" value="<%=rs("sort")%>"></td>
<td align="center"><input name=cdate<%=sum%> type="text" class="he0" size="10" value="<%=rs("cdate")%>"></td>
<td align="center"><input name="score<%=sum%>" type="text" class="he0" size="5" value="<%=rs("score")%>"/></td>
<td align="center"><input name="memo<%=sum%>" type="text" class="he0" size="20" 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
%>
<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"><%=sort%><input name=sort<%=sum%> type="hidden" value="<%=sort%>"></td>
<td align="center"><%=checkdate%><input name=cdate<%=sum%> type="hidden" value="<%=checkdate%>"></td>
<td align="center"><input name="score<%=sum%>" type="text" class="he0" size="5" /></td>
<td align="center"><input name="memo<%=sum%>" type="text" class="he0" size="20" /></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">返回</a><br></div>
</form>
</body>
</html>
<!--#include file="../inc/conn_close.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -