?? 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 + -