📄 print.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="Session.asp"-->
<html><head>
<title><%response.write webname%>-----栏目：学生资料中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="images/vpei.css">
</head>
<body topmargin=10 leftmargin=5>
<%
If Request("Ke_Id")="" Then
Response.write("<script>alert('科目不能为空，请选择科目！');location.href=""PrintC.asp"";</script>")
Response.End
End If
'读出科目相关信息
Set Rs_T_Ke=Conn.Execute("Select * From T_Ke Where C_Id="&int(Request("Ke_Id"))&" ")
X_T_Ke_Area=Rs_T_Ke("C_Area")
X_T_Ke_Style=Rs_T_Ke("C_Style")
X_T_Ke_Name=Rs_T_Ke("C_Name")
X_T_Ke_Class=Rs_T_Ke("C_Class")
X_T_Ke_Week=Rs_T_Ke("C_Week")
X_T_Ke_CRoom=Rs_T_Ke("C_CRoom")
X_T_Ke_CCount=Rs_T_Ke("C_CCount")
X_T_Ke_Count=Rs_T_Ke("C_Count")
X_T_Ke_Teacher=Rs_T_Ke("C_Teacher")
X_T_Ke_What=Rs_T_Ke("C_What")
Rs_T_Ke.Close
Set Rs_T_Ke=nothing
%>
<%
'判断选课的时间
If Request("XQ")="上" Then
Y=(DatePart("yyyy",now())-int(Request("X_Year")))*365+182
Else
Y=(DatePart("yyyy",now())-int(Request("X_Year")))*365-182
End If
Dim TEMPS
If Request("Ke_Id")<>"" Or Y<>"" Then
If Request("Ke_Id")<>"" Then TEMPS=" Where C_KeId="&int(Request("Ke_Id"))
If Y<>"" Then TEMPS=TEMPS&" and C_AddTime < "&SqlNow&"-"&int(Y)&" and C_AddTime > "&SqlNow&"-"&int(Y+365)
Set Rs=Conn.Execute("Select * From T_Class "&TEMPS&" order by C_Xhao")
Else
Set Rs=Conn.Execute("Select * From T_Class order by C_Xhao")
End If
if rs.eof and rs.bof then %>
<p align="center">没有或没找到任何记录！</p>
<%
else
%>
<table width="100%" cellspacing="1" cellpadding="3" bgcolor="#000000" align="center">
<tr bgcolor=#FFFFFF><td background=images/cent.gif height=25 colspan=5><font size=5><%=Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Request("X_Year"),"1","一"),"2","二"),"3","三"),"4","四"),"5","五"),"6","六"),"7","七"),"8","八"),"9","九"),"0","Ｏ")%> <%=X_T_Ke_Name&"("&X_T_Ke_Class&")"%>全体学生名单</font></td></tr>
<tr bgcolor=#FFFFFF><td height=25 colspan=5><%
Response.Write "科目概况： ["& X_T_Ke_Style&"]"&X_T_Ke_Name&X_T_Ke_Class&X_T_Ke_Week&"在"&X_T_Ke_Area&X_T_Ke_CRoom&"教室上课 课时："&X_T_Ke_CCount&" 人数："&Conn.Execute("Select count(C_Id) from [T_Class] Where C_KeId="&int(Request("Ke_Id"))&" and C_AddTime < "&SqlNow&"-"&int(X)&" and C_AddTime > "&SqlNow&"-"&int(Y)&" ")(0)&" 授课老师："
dim Tea:Tea=0
Set Rs_TeaC=Conn.Execute("Select * from T_TeaC where T_Id in ("&X_T_Ke_Teacher&") order by T_Id")
do until Rs_TeaC.eof
Tea=Tea+1
If Tea>1 Then Response.Write "/"
Response.Write Rs_TeaC("T_Name")
Rs_TeaC.movenext
loop
Rs_TeaC.close
set Rs_TeaC=nothing
'&Conn.Execute("Select * from [T_TeaC] Where T_Id in ("&X_T_Ke_Teacher&") ")("T_Name")
%></td></tr>
<tr bgcolor=#FFFFFF>
<td width=100 align=center><font color="#000000">所在系院</font></td>
<td width=60 align=center><font color="#000000">学 号</font></td>
<td width=50 align=center><font color="#000000">姓 名</font></td>
<td width=65%><font color="#000000"> 备 注</font></td>
<td width=50 align=center><font color="#000000">成 绩</font></td>
</tr>
<% do while not (rs.eof or err) %>
<%
'读出每个学生相关信息
Set Rs_T_Stu=Conn.Execute("Select * From T_Stu Where xhao='"&Rs("C_Xhao")&"' ")
If not Rs_T_Stu.EOF Then
X_T_Stu_Name=Rs_T_Stu("Name")
X_T_Stu_xy=Rs_T_Stu("xy")
X_T_Stu_Rschool=Rs_T_Stu("S_Rschool")
X_T_Stu_Tel=Rs_T_Stu("S_Tel")
End If
Rs_T_Stu.Close
Set Rs_T_Stu=nothing
%>
<TR bgcolor=#FFFFFF>
<td align=center><%=Conn.Execute("Select * From T_Yz Where Yz_Id="&int(X_T_Stu_xy)&" ")("Yz_Name")%></td>
<td align=center><%=Rs("C_Xhao")%></td>
<td align=center><%=X_T_Stu_Name%></td>
<td><%=Rs("C_Bei")%></td>
<td align=center><%
If Rs("C_Pass")=-1 Then
Response.Write "未评分"
ElseIf Rs("C_Pass")>=60 Then
Response.Write "合格"
Else
Response.Write "<font color=red>不合格</font>"
End If
%></td>
</tr>
<%
i=i+1
rs.movenext
loop
%>
<tr bgcolor=#FFFFFF><td colspan=5 align=center background=images/cent.gif height=25> </td></tr>
</table>
<% end If %>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -