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

'response.write  sheet

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

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

'打開對應(yīng)年級(jí)的數(shù)據(jù)庫，并取得所查姓名的考試號(hào)\姓名\班級(jí)\總分等字段對應(yīng)值
'打開所選擇的一次考試年級(jí)數(shù)據(jù)庫		

		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
'取得依姓名排序,這里涉及到同名同姓學(xué)生可全部顯示出來
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><h3>查找<font color=brul> "&name&" </font>結(jié)果如下:<a href=index.asp>返回再查</a></h3></center>"


response.write "<br><center><h3>" 

response.write year2 & "級(jí) " & gradename 
response.write teamname & "考試"
response.write "</h3></center>"
response.write "<br>"

response.write "<br>"
response.write "<br>"
'建立一個(gè)表格
response.write "<table border=1 align=center>"
'循環(huán)顯示所找姓名的各次成績
        response.write "<tr>"
	response.write "<td>考試號(hào)</td>"
	response.write "<td>班級(jí)</td>"
	response.write "<td>學(xué)號(hào)</td>"
	response.write "<td>姓名</td>"
	response.write "<td>語文</td>"
	response.write "<td>數(shù)學(xué)</td>"
	response.write "<td>外語</td>"
	response.write "<td>物理</td>"
	response.write "<td>化學(xué)</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>年級(jí)名次</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
%>