📄 jsscoreprintx1.asp
字号:
<!--#include file ="connection.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加教师信息</title>
<style type="text/css">
<!--
.STYLE1 {
color: #FFFFFF;
font-size: 18px;
font-weight: bold;
}
-->
</style>
</head>
<body bgcolor="#FBC2AD">
<div align=center>
<%
Response.ContentType ="application/msword"
response.AddHeader "content-disposition","inline: filename=report.doc"
%>
<%
teacherno=session("user")
lb=session("lb")
if teacherno=""or lb<>"teacher" then
response.redirect"index.asp"
%>
<table width="144" height="84">
<tr>
<td> </td>
</tr>
</table>
<%
else
banno=request.form("banno")
jino=request.form("jino")
xueqi=request.Form("xueqi")
lessonno=request.Form("lessonno")
'response.write "banno=" & banno
'response.write "jino=" & jino & "'" & xueqi & lessonno
if banno <> "--选择班级--" and jino<> "--选择年级--"then
if banno<>"" and jino <>"" then
sql = "select 学生.studentname,成绩.*,课程.lessonname from 学生,成绩,课程 where 学生.jino='" & jino &"' and 学生.banno='"& banno &"' and 成绩.xueqi='" & xueqi &"' and 成绩.lessonno='" & lessonno &"' and 成绩.studentno=学生.studentno and 成绩.lessonno=课程.lessonno"
set rs=Server.Createobject("ADODB.RecordSet")
rs.Open sql,CN
if rs.Eof then
response.Write "该班级还未录入该课成绩！"
response.End()
else
%>
<table width="391" border="1" cellpadding="3" cellspacing="1" bordercolor="#000000" bgcolor="#000000" class="sft">
<tr>
<td height="30" colspan="3" bgcolor="#FF903C"><div align="center" class="STYLE1">
<p><%=xueqi%><%=rs("lessonname")%><%=jino%>级<%=banno%>班</p>
<p>学生成绩 </p>
</div> </td>
</tr>
<%
while not rs.eof %>
<tr bordercolor="#D4D0C8">
<td width="110" height="30" bgcolor="#FFFFFF">
<div align="center">
<%=rs("studentno")%>
</div></td>
<td width="100" bgcolor="#FFFFFF"><div align="center"><%=rs("studentname")%></div></td>
<td width="159" height="30" bgcolor="#FFFFFF"><div align="center">
<%=rs("score")%>
</div></td>
</tr>
<%
rs.movenext
wend %>
</table>
<p class=sft>
</div>
<% end if
end if
end if
%>
</body>
</html>
<%
end if
'rs.close
'rs1.close
'rs2.close
CN.close
set rs=nothing
'set rs1=nothing
'set rs2=nothing
set CN=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -