<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Description" content="asp-國內最實用的原創ASP網站，asp銷售網站,主要網站制作、網
站推廣、網站程序定制、各類BTOB、BTOC網站制作、原創asp、實用asp，代碼基地,學生程序管理.學校成績管理系統
教師工資管理系統！">
<meta name="wordkey" content="25175-你我一起舞-你我一起玩-網站推廣-網站制作-意順設計-SP-程序定制-代碼基地-ASP原創代碼">
<meta name="keyword" content="25175-你我一起舞-你我一起玩-網站推廣-網站制作-意順設計-SP-程序定制-代碼基地-ASP原創代碼">
<meta name="keywords" content="25175asp--歡迎光臨國內最實用的原創ASP網站"><title>學生成績統計系統-25175-你我一起舞-你我一起玩-實用asp-網站制作-意順設計-定制asp-asp程序定制-原創ASP代碼</title>



<!--#include file="conn.asp"-->
<%
'取得表單中的年級,姓名,入學年、考試名稱四項數據
dim  sheet
sheet=""
year2=request("year1")
team=request("team")
grade=request("grade")
name=request("name")
'得到數據庫中的一個成績表名，即一個年級的考成績表
sheet=  year2+grade+team 

'response.write  sheet

'取得年級中文名
select case grade
	case "a"
		gradename="高一年級 "
	case "b"
		gradename="高二年級 "
	case "c"
		gradename="高三年級 "
end select

'取得考試名稱
select case team
	case "a"
		teamname="第一學期期中"
	case "b"
		teamname="第一學期期終"
	case "c"
		teamname="第二學期期中"
        case "d"
		teamname="第二學期期終"
end select

'打開對應年級的數據庫，并取得所查姓名的考試號\姓名\班級\總分等字段對應值
'打開所選擇的一次考試年級數據庫		

		sql="select distinct * from " & sheet & " where xm like '%" &name& "%'"


'  select case grade
'	case "a"
'		sql="select distinct * from  2004aa where xm like '%" &name& "%'"
'	case "b"
'		sql="select distinct * from  2003ba where xm like '%" &name& "%'"
'	case "c"
'		sql="select distinct * from  2002ca where xm like '%" &name& "%'"
' end select


'response.write grade
'取得依姓名排序,這里涉及到同名同姓學生可全部顯示出來
sql=sql & " order by ksh "

set rs=conn.execute(sql)


'沒有查到此人
if rs.eof then
	response.write "查無此人！<a href=index.asp>返回主頁</a>"
	response.end
end if

response.write "<br><center>查找<font color=brul> "&name&" </font>結果如下:<a href=index.asp>返回再查</a></center>"


response.write "<br><center>" 

response.write year2 & "級 " & gradename 
response.write teamname & "考試"
response.write "</center>"
response.write "<br>"
'建立一個表格
response.write "<table border=1 align=center>"
'循環顯示所找姓名的各次成績
        response.write "<tr>"
	response.write "<td>考試號</td>"
	response.write "<td>班級</td>"
	response.write "<td>學號</td>"
	response.write "<td>姓名</td>"
	response.write "<td>語文</td>"
	response.write "<td>數學</td>"
	response.write "<td>外語</td>"
	response.write "<td>物理</td>"
	response.write "<td>化學</td>"
        response.write "<td>生物</td>"
	response.write "<td>政治</td>"
	response.write "<td>歷史</td>"
	response.write "<td>地理</td>"
	response.write "<td>總分</td>"
	response.write "<td>班名次</td>"
	response.write "<td>年級名次</td>"
	response.write "</tr>"
do while not rs.eof 
	response.write "<tr>"
	response.write "<td>"&rs("ksh")&"</td>"
	response.write "<td>"&rs("bj")&"</td>"
	response.write "<td>"&rs("xh")&"</td>"
	response.write "<td>"&rs("xm")&"</td>"
	response.write "<td>"&rs("yw")&"</td>"
	response.write "<td>"&rs("sx")&"</td>"
	response.write "<td>"&rs("yy")&"</td>"
	response.write "<td>"&rs("wl")&"</td>"
	response.write "<td>"&rs("hx")&"</td>"
	response.write "<td>"&rs("sw")&"</td>"
	response.write "<td>"&rs("zz")&"</td>"
	response.write "<td>"&rs("ls")&"</td>"
	response.write "<td>"&rs("dl")&"</td>"
	response.write "<td>"&rs("zf")&"</td>"
	response.write "<td>"&rs("mc")&"</td>"
	response.write "<td>"&rs("njmc")&"</td>"
%>

<%
	response.write "</tr>"
	rs.movenext
loop
response.write "</table>"
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<style type="text/css">
<!--
body {
	font-size: 12px;
}
a {
	font-size: 12px;
}
td {
	font-size: 12px;
}
-->
</style>