📄 showgrade1.asp
字号:
<%@ Language=VBScript %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
<LINK href="Css/style.css" rel=stylesheet>
<TITLE>成绩管理</TITLE>
<!--#include file="Conn.Inc" -->
<!--#include file="adovbs.inc" -->
</HEAD>
<body bgcolor="ffffff" TOPMARGIN="0" MARGINHEIGHT="0">
<%
Const SeleSCount=2
dim SType, SeachValue
Dim i, Rs, Sql, SeleType(2), SeleTypeName(2)
dim pages, Cur_RecordCounts
SeleType(0) = "学号"
SeleType(1) = "课程"
SeleType(2) = "班级"
SeleTypeName(0) = "A.StudentID"
SeleTypeName(1) = "CourseName"
SeleTypeName(2) = "ClassName"
pages = Cint(Request.QueryString("Pages"))
Oper = Request("Oper")' 用于打印
if Oper="打印" then Oper="Prt"
SType = Trim(Request("SType"))
SeachValue = Trim(Request("SeachValue"))
Set Rs = Server.CreateObject("ADODB.Recordset")
if Oper<>"Prt" then Rs.PageSize=8
Rs.CursorType=adOpenStatic
Rs.ActiveConnection = Conn
Sql = "SELECT A.StudentID, B.StudentName, A.CourseID, CourseName, ClassName, Grade "
Sql = Sql&" FROM Grade A, Student B, Course C, Class D"
Sql = Sql&" Where A.StudentID=B.StudentID and A.CourseID=C.CourseID "
Sql = Sql&" And B.ClassID=D.ClassID "
if (SType<>"") and (SeachValue<>"") then
Sql = Sql &" And "&SType&" Like '%"&SeachValue&"%'"
end if
Sql = Sql &" Order By A.StudentID"
Rs.Open Sql
if Not Rs.Eof then
if Oper<>"Prt" then
if Pages=0 then
Pages=1
else
Rs.Move (Pages-1)*Rs.PageSize
end if
'根据PageSize、PageCount属性计算出当前页的记录数
if pages<Rs.PageCount then
Cur_RecordCounts=Rs.PageSize
else
Cur_RecordCounts=Rs.RecordCount-(Pages-1)*Rs.PageSize
end if
else
Cur_RecordCounts=Rs.RecordCount
end if
end if
%>
<% if Oper<>"Prt" then %>
<form name="formSearch" method="Post" action="ShowGrade.asp">
<table width="616" border="0" cellpadding="0" bgcolor="#99FFCC">
<tr>
<td width="53"> </td>
<td width="177" align="center">查询方式：
<select name="SType">
<%for i=0 to SeleSCount
if SType=SeleTypeName(i) then%>
<option Value=<%=SeleTypeName(i)%> selected> <%=SeleType(i)%> </option>
<% Else %>
<option Value=<%=SeleTypeName(i)%>> <%=SeleType(i)%> </option>
<% End if
Next %>
</select> </td>
<td width="186"><input name="SeachValue" type="text" value="<% =SeachValue %>" size="20" maxlength="50"></td>
<td width="228"><input type="submit" name="Search" value="搜索">
<input type="Button" name="BtnAdd" onclick=top.location.href="UpdateGrade.asp?Oper=Add" value="添加">
<input name="Oper" type="submit" value="打印"> </td>
</tr>
</table>
</form>
<% end if%>
<table width="580" height="31" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="580" height="31">
<div align="center"><b><font size="3">成绩</font></b></div></td>
</tr>
</table>
<table width="580" border="1" cellpadding="2" cellspacing="0" bordercolor="#6666FF" bgcolor="#fef7d8">
<TBODY>
<TR align="center">
<TD width="86" height="28"><strong>学号</strong></TD>
<TD width="86"><strong>姓名</strong></TD>
<TD width="157"><strong>课程名</strong></TD>
<TD width="60"><strong>成绩</strong></TD>
<TD width="81"><strong>数量<br>
(吨)</strong></TD>
<% if Oper<>"Prt" then %>
<TD> </TD>
<TD> </TD>
</TR>
<% end if
for i=1 to Cur_RecordCounts %>
<TR>
<TD height="29" align="center"><span style="width:86px;"><%=Rs("StudentID")%></span></TD>
<TD><span style="width:86px;"><%=Rs("StudentName")%></span></TD>
<TD><span style="width:158px;"><%=Rs("CourseName")%></span></TD>
<TD><div align="right"><span style="width:60px;"><%=Rs("Grade")%></span></div></TD>
<TD align="right"><%'=Rs("CountTon")%></TD>
<% if Oper<>"Prt" then %>
<TD width="35"><b><a href="UpdateGrade.asp?Oper=Update&StudentID=<%=Rs("StudentID")%>&CourseID=<%=Rs("CourseID")%>&SType=<%=SType%>&SeachValue=<%=SeachValue%>">修改</a></b></TD>
<TD width="34" align="center"><b><a href="UpdateGrade.asp?Oper=Delete&StudentID=<%=Rs("StudentID")%>&CourseID=<%=Rs("CourseID")%>&SType=<%=SType%>&SeachValue=<%=SeachValue%>">删除</a></b></TD>
<% end if %>
</TR>
<% Rs.MoveNext()
Next %>
</table>
<%if Oper<>"Prt" then ' 打印报表 %>
<table width="581" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="581" height="31" align="center">
<%
'输出前一页的链接，若当前已是首页，则没有超链接
if pages>1 then
Response.Write "<a href='ShowGrade.asp?Pages="&Pages-1&"&SType="&SType&"&SeachValue="&SeachValue&"'>前一页</a> "
else
Response.Write "前一页 "
end if
'输出每一页的链接，若是当前页，则没有超链接
for i=1 to Rs.PageCount
if i=Pages then
Response.Write " "&i&" "
else
Response.Write "<a href='ShowGrade.asp?Pages="&i&"&SType="&SType&"&SeachValue="&SeachValue&"'> "&i&"</a> "
end if
Next
'输出后一页的链接，若当前已是最后页，则没有超链接
if pages<Rs.PageCount then
' Response.Write "<a href='ShowShipDayLogic.asp?Pages="&Pages+1&"'>下一页</a>"
Response.Write "<a href='ShowGrade.asp?Pages="&Pages+1&"&SType="&SType&"&SeachValue="&SeachValue&"'>下一页</a> "
else
Response.Write "下一页"
end if
%>
</td>
</tr>
</table>
<% End if
Rs.Close()
Set Rs = Nothing
Conn.Close()
Set Conn = Nothing %>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -