search.asp

超级简单的25175学生成绩查询系统,适合初学者学习之用。

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