ASP和ACCESS做查询系统
学生成绩管理系统的设计与实现要求:1.学生信息管理:系统提供对学生信息的录入和查询。2.成绩管理:系统提供成绩录入和查询。3.成绩统计与报表打印:系统提供多种方式的成绩统...
学生成绩管理系统的设计与实现
要求:
1.学生信息管理:系统提供对学生信息的录入和查询。
2.成绩管理:系统提供成绩录入和查询。
3.成绩统计与报表打印:系统提供多种方式的成绩统计与报表打印.
高手帮帮忙? 展开
要求:
1.学生信息管理:系统提供对学生信息的录入和查询。
2.成绩管理:系统提供成绩录入和查询。
3.成绩统计与报表打印:系统提供多种方式的成绩统计与报表打印.
高手帮帮忙? 展开
4个回答
展开全部
首先是数据库比如为cj.mdb,里面有表为grade存储成绩。
查询首页(index.html):
<form method="POST" action="result.asp">
姓名:<input type="text" name="xm" size="20">
准考证号:<input type="text" name="kh" size="20">
<input type="submit" value="提交" name="B1">
以下是result.asp:
<%
set conn=server.createobject("adodb.connection")
dbpath=server.mappath("cj.mdb")
conn.open "driver={microsoft access driver (*.mdb)};dbq="& dbpath
dim xm,kh
xm=trim(request("xm"))
kh=trim(request("kh"))
if xm=""then
Response.write "<script language='javascript'>" & VbCRlf
Response.write "alert('系统提示\n姓名不能为空!');" & VbCrlf
Response.write "history.go(-1);" & vbCrlf
Response.write "</script>" & VbCRLF
Response.end
end if
if kh=""then
Response.write "<script language='javascript'>" & VbCRlf
Response.write "alert('系统提示\n准考证号不能为空!');" & VbCrlf
Response.write "history.go(-1);" & vbCrlf
Response.write "</script>" & VbCRLF
Response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from grade where xm='"&bh&"' and kh='"&kh&"'"
rs.open sql,conn,1,1
%〉
<div align="center">神汪
<center>
<table border="1" width="400" cellspacing="0" cellpadding="5" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td width="100%" colspan="5">
<p align="center">查找结果</p>
</td>
</tr><%
if not rs.eof then
%>
<%do while not rs.eof%>
<tr>
<td width="20%" align="center">准考证号</td>
<td width="20%" align="center">姓名</td>
<td width="20%" align="center">语文</td>
<td width="20%" align="center">数学</肆瞎敬td>
<td width="20%" align="center">外语</td>
<td width="20%" align="center">综合成绩</td>
</tr>
<tr>
<td width="20%" align="center"><%=rs("kh")%></td>
<td width="20%" align="center">裂慎<%=rs("xm")%></td>
<td width="20%" align="center"><%=rs("yw")%></td>
<td width="20%" align="center"><%=rs("sx")%></td>
<td width="20%" align="center"><%=rs("wy")%></td>
<td width="20%" align="center"><%=rs("zhcj")%></td>
</tr>
<%rs.movenext%>
<%loop%>
<%else%>
<tr>
<td width="100%" colspan="5"><marquee>没有您所查找的学生成绩</marquee></td>
</tr>
<%end if%>
</table>
</center>
</div>
<%
rs.close
set rs=nothing
%>
应该就可以了,不懂再问
查询首页(index.html):
<form method="POST" action="result.asp">
姓名:<input type="text" name="xm" size="20">
准考证号:<input type="text" name="kh" size="20">
<input type="submit" value="提交" name="B1">
以下是result.asp:
<%
set conn=server.createobject("adodb.connection")
dbpath=server.mappath("cj.mdb")
conn.open "driver={microsoft access driver (*.mdb)};dbq="& dbpath
dim xm,kh
xm=trim(request("xm"))
kh=trim(request("kh"))
if xm=""then
Response.write "<script language='javascript'>" & VbCRlf
Response.write "alert('系统提示\n姓名不能为空!');" & VbCrlf
Response.write "history.go(-1);" & vbCrlf
Response.write "</script>" & VbCRLF
Response.end
end if
if kh=""then
Response.write "<script language='javascript'>" & VbCRlf
Response.write "alert('系统提示\n准考证号不能为空!');" & VbCrlf
Response.write "history.go(-1);" & vbCrlf
Response.write "</script>" & VbCRLF
Response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from grade where xm='"&bh&"' and kh='"&kh&"'"
rs.open sql,conn,1,1
%〉
<div align="center">神汪
<center>
<table border="1" width="400" cellspacing="0" cellpadding="5" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td width="100%" colspan="5">
<p align="center">查找结果</p>
</td>
</tr><%
if not rs.eof then
%>
<%do while not rs.eof%>
<tr>
<td width="20%" align="center">准考证号</td>
<td width="20%" align="center">姓名</td>
<td width="20%" align="center">语文</td>
<td width="20%" align="center">数学</肆瞎敬td>
<td width="20%" align="center">外语</td>
<td width="20%" align="center">综合成绩</td>
</tr>
<tr>
<td width="20%" align="center"><%=rs("kh")%></td>
<td width="20%" align="center">裂慎<%=rs("xm")%></td>
<td width="20%" align="center"><%=rs("yw")%></td>
<td width="20%" align="center"><%=rs("sx")%></td>
<td width="20%" align="center"><%=rs("wy")%></td>
<td width="20%" align="center"><%=rs("zhcj")%></td>
</tr>
<%rs.movenext%>
<%loop%>
<%else%>
<tr>
<td width="100%" colspan="5"><marquee>没有您所查找的学生成绩</marquee></td>
</tr>
<%end if%>
</table>
</center>
</div>
<%
rs.close
set rs=nothing
%>
应该就可以了,不懂再问
展开全部
分少,条件模糊!嘿 嘿 )_( 闪 过
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
给钱直接跟你做好!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
还高手帮忙,懒人越帮越忙!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询