哪位老兄能帮忙做一个学生成绩查询系统?

主题：哪位老兄能帮忙做一个学生成绩查询系统?

tslele [专家分：0] 发布于 2007-10-05 22:40:00

想做一个简单的班级学生成绩查询系统，具体设想是:如果用户输入的学号和姓名正确的话，就显示该学生的某次考试的成绩.数据库中有各次考试的成绩(均在一个表中，表中的字段有考试名称,学号,姓名,数学,语文,英语,物理，化学,生物,综合，班名次,校名次等),页面上有输入学号和姓名的两个文本框,还有1个选择考试名称的框(下拉),如果不选考试名称，则显示该学生历次考试的成绩.
本想下载一个现成的，但改了半天没改好，请大家多帮忙,做一个合适的,多谢了.

最后更新于：2007-10-05 22:42:00

本帖地址： http://bbs.pfan.cn/post/252770.html

回复列表（共5个回复）

沙发

haoboy0817 [专家分：880] 发布于 2007-10-06 07:57:00

这是我以前做的一个成绩查询系统，只要你稍加修改就能用（数据库连接和显示项目与格式重新做），希望能够帮上你的忙！！
登陆页面：（chaxun.asp）
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0

Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-

transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html;

charset=gb2312" />
<title>成绩查询系统</title>
</head>
<body bgcolor="#CCCCCC">

<form name="form1" method="post" action="xx.asp">
  <table width="300" align="center" cellpadding="2"

cellspacing="2" border="1">
    <tr>
      <td colspan="2" bgcolor="#996633"><div align="center">成

绩查询</div></td>
    </tr>
    <tr bgcolor="#999999">
      <td align="center" width="30%">学号:</td>
      <td align="center"><input name="xh" type="text" id="xh"

value="2002151"></td>
    </tr>
    <tr bgcolor="#999999">
      <td align="center" width="30%">课程号:</td>
      <td align="center"><input type="text" name="kch" id="kch"

></td>
    </tr>
    <tr bgcolor="#996633">
      <td colspan="2"><div align="center">
          <input type="submit" name="Submit" value="查询" />
          <input type="reset" name="Submit2" value="重置" />
      </div></td>
    </tr>
  </table>
</form>
<div align="center"><font color="#996666">友情提

示:</font><font face="华文新魏" size="3">学号：200215121-

--200215160
课程号：1---9</font>
</body>
</html>

结果处理页面：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>查询结果</title>
</head>

<body>
<table width="400" align="center"  cellpadding="0" cellspacing="0" border="1">
<tr>
<td><div align="center">学号</div></td>
<td><div align="center">课程号</div></td>
<td><div align="center">成绩</div></td>
</tr>

<%
dim xh,kch
If Request.ServerVariables("REQUEST_METHOD")="POST" then
xh=Request.Form("xh")
kch=Request.Form("kch")

end if

'建立数据库连接
dim dbcn
set dbcn = Server.CreateObject("ADODB.Connection")
dbcn.open="Driver={SQL Server};User ID=sa;Password=111;Server=www-1B84FA56E53;Database=学生管理系统"

dim dbcmd
set dbcmd=Server.CreateObject("ADODB.command")
dbcmd.Activeconnection= dbcn
dbcmd.commandtype=1
dim strSQL
strSQL="Select 学号,课程号,成绩 from sc where 学号='"&xh&"' and 课程号= '"&kch&"'"
dbcmd.CommandText=strSQL
dim dbrs
set dbrs=dbcmd.execute
Do while not dbrs.Eof
%>
<tr>
  <td><div align="center"><%=dbrs("学号") %></div></td>
    <td><div align="center"><%=dbrs("课程号") %></div></td>
    <td><div align="center"><%=dbrs("成绩") %></div></td>
</tr>
<%
dbrs.movenext
loop%>
</table>
<%
dbrs.close
Set dbrs=nothing
dbcn.close
Set dbcn=nothing
%>
</body>
</html>

板凳

tslele [专家分：0] 发布于 2007-10-06 08:04:00

多谢!
我是个菜鸟,上面的程序数据库连接这里我不会修改,我用的是ACESS数据库,里面就一个表,数据库名称为chengji.mdb,表名为cj.上面的程序中我找不到修改名称的位置

3 楼

tslele [专家分：0] 发布于 2007-10-06 08:06:00

这是我的首页代码:
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>高三四班学生成绩查询系统</title>
</head>

<body>

<p align="center">　</p>
<p align="center"><font color="#FF0000" size="4" face="黑体"><b>高三四班学生成绩查询系统(2007.10)</b></font></p>


<form action="search.asp" method="POST">
  <p align="center"> &nbsp学号：
    <input name="xh" type="text" id="xh" size="12">
    &nbsp学生姓名：
    <input type="text" name="name" size="12">
     
    <select size="1" name="kaoshi">
      <option value="a">高二开学</option>
      <option value="b">高二10月月考</option>
      <option value="c">高二上学期期中</option>
      <option value="d">高二12月月考</option>
      <option value="e">高二上学期期末</option>
      <option value="f">高二开学测试</option>
      <option value="g">高二4月月考</option>
      <option value="h">高二下学期期中</option>
      <option value="i">高二6月月考</option>
      <option value="j">高二下学期期末</option>
      <option value="k">高三开学测试</option>
      <option value="l">摸底考试</option>
      <option value="z" selected>高二以来所有考试</option>
    </select>  
    <input type="submit" value="搜索" name="submit"></p>
  <p align="center"><font color="#0000FF">
  最新考试：高三摸底考试<br>
  </font>

  </form>

<p align="center">
<a href="http://www.zhaihua.cn">返回班级首页</a> </p>
<p align="center">E-mail:<a href="mailto:zhaihua2008@sohu.com">zhaihua2008@sohu.com</a>
  　
</body>

</html>

<script language="vbscript"></script>

4 楼

tslele [专家分：0] 发布于 2007-10-06 08:08:00

这是查询页:search.asp的代码:(从这里也可以看出数据库表中的各个字段)

<%
xh=request("xh")
name=request("name")
kaoshi=request("kaoshi")

rs.Open sql,conn,1,1
totalput=rs.RecordCount
        if  xh <> "" then
    sql="select * from cj where XUEHAO like'" & xh & "'"
        else
    sql="select  *  from cj"
end if

if rs.EOF and  rs.BOF then
    Response.Write "对不起，没有查询到这个号码的成绩记录，请检查你是否输入了正确的学号！"
response.end
end if




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

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

response.write "<br>"
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>名次1</td>"
    response.write "<td>语文</td>"
    response.write "<td>名次2</td>"
    response.write "<td>数学</td>"
    response.write "<td>名次3</td>"
    response.write "<td>外语</td>"
    response.write "<td>名次4</td>"
    response.write "<td>历史</td>"
    response.write "<td>名次5</td>"
    response.write "<td>地理</td>"
    response.write "<td>名次6</td>"
    response.write "<td>综合</td>"
    response.write "<td>名次7</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("ksmc")&"</td>"
    response.write "<td>"&rs("banji")&"</td>"
    response.write "<td>"&rs("xuehao")&"</td>"
    response.write "<td>"&rs("xingming")&"</td>"
    response.write "<td>"&rs("zhengzhi")&"</td>"
    response.write "<td>"&rs("mc1")&"</td>"
    response.write "<td>"&rs("yuwen")&"</td>"
    response.write "<td>"&rs("mc2")&"</td>"
    response.write "<td>"&rs("shuxue")&"</td>"
    response.write "<td>"&rs("mc3")&"</td>"
    response.write "<td>"&rs("yingyu")&"</td>"
    response.write "<td>"&rs("mc4")&"</td>"
    response.write "<td>"&rs("lishi")&"</td>"
    response.write "<td>"&rs("mc5")&"</td>"
    response.write "<td>"&rs("dili")&"</td>"
    response.write "<td>"&rs("mc6")&"</td>"
    response.write "<td>"&rs("zonghe")&"</td>"
    response.write "<td>"&rs("mc7")&"</td>"
    response.write "<td>"&rs("gaokaofen")&"</td>"
    response.write "<td>"&rs("banmingci")&"</td>"
    response.write "<td>"&rs("xiaomingci")&"</td>"

%>

<%
    response.write "</tr>"
    rs.movenext
loop
response.write "</table>"
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

正在修改中，已经修改了半天的时间了，还没改好

5 楼

nlysailor [专家分：0] 发布于 2007-10-08 12:20:00

无语了。。。

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：哪位老兄能帮忙做一个学生成绩查询系统?

回复列表（共5个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：哪位老兄能帮忙做一个学生成绩查询系统?

回复列表 （共5个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共5个回复）