<td height="40" colspan="2"><input name="rkbm" type="text" id="rkbm" value="<%=rs("rkbm")%>"></td>
</tr>
<tr>
<td height="40"><div align="right">备注:</div></td>
<td height="40" colspan="2"><input name="beizhu" type="text" id="beizhu" value="<%=rs("beizhu")%>"></td>
</tr>
<tr>
<td height="40" colspan="3">
<div align="center">
<input type="submit" name="Submit" value="确定">
</div></td>
</tr>
</table>
</form>
</div>
</body>
</html>
成绩信息信息的修改设计与代码:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改记录</title>
</head>
<body bgcolor="#FF66FF">
<%
Dim varid
varid=Request.QueryString("cjxx_id")
Session("cjxx_id")=varid
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.open"driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("data.mdb")
Dim strSql,rs
strSql="Select * From cjxx Where cjxx_id=" &Session("cjxx_id")
Set rs=db.Execute(strSql)
%>
<div align="center"><strong><font color="#FF0000" size="6">修改记录</font></strong>
<hr>
<form action="update2.asp" method="post" name="form" id="form">
<table width="50%" height="548" border="0">
<tr>
<td height="40"> </td>
<td width="55%" height="40"><strong><font size="4">成绩信息修改在线</font></strong></td>
<td width="20%"><a href="deletecjxx.asp">返回上级</a></td>
</tr>
<tr>
<td width="25%" height="40"> <div align="right">学号:</div></td>
<td height="40" colspan="2"><input name="xh" type="text" id="xh" value="<%=rs("xh")%>"></td>
</tr>
<tr>
<td height="40"><div align="right">姓名:</div></td>
<td height="40" colspan="2"><input name="xm" type="text" id="xm" value="<%=rs("xm")%>"></td>
</tr>
<tr>
<td height="40"> <div align="right">性别:</div></td>
<td height="40" colspan="2"><input name="xb" type="text" id="xb" value="<%=rs("xb")%>"></td>
</tr>
<tr>
<td height="40"> <div align="right">所在系名:</div></td>
<td height="40" colspan="2"><input name="szxm" type="text" id="szxm" value="<%=rs("szxm")%>"></td>
</tr>
<tr>
<td height="40"> <div align="right">所在班级:</div></td>
<td height="40" colspan="2"><input name="szbj" type="text" id="szbj" value="<%=rs("szbj")%>"></td>
</tr>
<tr>
<td height="40"><div align="right">课程名:</div></td>
<td height="40" colspan="2"><input name="kcm" type="text" id="kcm" value="<%=rs("kcm")%>"></td>
</tr>
<tr>
<td height="40"> <div align="right">成绩:</div></td>
<td height="40" colspan="2"><input name="cj" type="text" id="cj" value="<%=rs("cj")%>"></td>
</tr>
<tr>
<td height="40" colspan="3"><div align="center">若补考,请填写补考信息。</div></td>
</tr>
<tr>
<td height="40"><div align="right">课程名:</div></td>
<td height="40" colspan="2"><input name="kcm1" type="text" id="kcm1" value="<%=rs("kcm1")%>"></td>
</tr>
<tr>
<td height="40"><div align="right">成绩:</div></td>
<td height="40" colspan="2"><input name="cj1" type="text" id="cj1" value="<%=rs("cj1")%>"></td>
</tr>
<tr>
<td height="40"><div align="right">备注:</div></td>
<td height="40" colspan="2"><input name="bz" type="text" id="bz" value="<%=rs("bz")%>"></td>
</tr>
<tr>
<td height="40" colspan="3">
<div align="center">
<input type="submit" name="Submit" value="确定">
</div></td>
</tr>
</table>
</form>
</div>
</body>
</html>
3.删除信息的设计与代码:
学生信息删除代码:
<%
response.buffer=true
dim varxsxx_id,strsql
varxsxx_id=request.QueryString("xsxx_id")
strsql="delete from xsxx where xsxx_id=" & varxsxx_id
db.execute(strsql)
response.Redirect"deletexsxx.asp"
%>
课程信息、成绩信息的删除基本如学生信息的删除,稍加以修改属性,就可实现删除功能。
查询信息的代码
按学号查询
<%
if trim(request("kh"))<>""then
dim rs,strsql
set rs=server.CreateObject("ADODB.Recordset")
strsql="select * from xsxx where kh like'%"&trim(request("kh"))&"%'"
rs.open strsql,db,1
if rs.recordcount<=0 then
response.Write"对不起,没有找到相关信息!"
response.Write"<a href='kaohaochaxun.asp'>重新查找"
else
response.Write"共找到"&rs.recordcount&"条记录。"
%>
按课程名查询
<%
if trim(request("kcm"))<>""then
dim rs,strsql
set rs=server.CreateObject("ADODB.Recordset")
strsql="select * from kcxx where kcm like'%"&trim(request("kcm"))&"%'"
rs.open strsql,db,1
if rs.recordcount<=0 then
response.Write"对不起,没有找到相关信息!"
response.Write"<a href='kechengchaxun.asp'>重新查找"
else
response.Write"共找到"&rs.recordcount&"条记录。"
%>
按学号查询
<%
if trim(request("xh"))<>""then
dim rs,strsql
set rs=server.CreateObject("ADODB.Recordset")
strsql="select * from xxzcb where xh like'%"&trim(request("xh"))&"%'"
rs.open strsql,db,1
if rs.recordcount<=0 then
response.Write"对不起,没有找到相关信息!"
response.Write"<a href='xueshengxinxi.html'>重新查找"
else
response.Write"共找到"&rs.recordcount&"条记录。"
%>
打印报表代码如下:
<body>
<table width="75%" border="0" align="center">
<tr>
<td colspan="3"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="500" height="250">
<param name="movie" value="images/dayin.swf">
<param name="quality" value="high">
<embed src="images/dayin.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="500" height="250"></embed></object></td>
</tr>
<tr>
<td><div align="center"><a href="dyxx.asp">学生信息打印</a></div></td>
<td><div align="center"><a href="dykc.asp">课程信息打印</a></div></td>
<td><div align="center"><a href="dycj.asp">成绩信息打印</a></div></td>
</tr>
<tr>
<td colspan="3"><div align="center"><a href="guanli.asp">退出</a></div></td>
</tr>
<tr>
<td colspan="3"><div align="center">版权所有</div></td>
</tr>
<tr>
<td colspan="3"><div align="center">联系方式: QQ:398944573 E—mail:wanhuzhihou@126.com</div></td>
</tr>
</table>
</body>
</html>
统计代码:
<%
dim fileobject
set fileobject=server.CreateObject("scripting.filesystemobject")
dim textfile
set textfile=fileobject.opentextfile("文件所在盘:\xxglxt\num.txt",1)
dim visit_number
visit_number=clng(textfile.readline)
visit_number=visit_number+1
set textfile=fileobject.opentextfile("文件所在盘:\xxglxt\num.txt",2)
textfile.writeline(visit_number)
textfile.close
%>
第5章 系统小结
本系统范文,讲解了学生信息系统管理的设计过程,包括前期的需求分析、UML建模,以及数据库的设计、各模块功能的设计等,系统的设计为整个程序构造了骨架,而各个模块则实现了各个细节部分。
测试结果:
该系统在开发中出现过许多问题,通过编者的努力及指导教师的耐心指导,终于在规定的时间里能顺利的结束。
结束语
通过这次文档设计,我用自己所学的知识来开发一个比较复杂的程序。同时对课题的深入研究,又学到了不少知识。不仅包括专业方面的知识,还让我意识到,想作为一个有用之人,必须能够将自己学到的专业知识和具体实践结合起来,才能真正增长自己的才干,学有所用,用有所成。我们是新一代青年,就应该将自己的知识服务于社会。
由于编者经验和水平有限,所以存在许多的错误和不足之处,感谢各位老师和评委能够亲临我的范文答辩现场给于我耐心指点。真心谢谢!
致谢
该系统的设计,完全是在所有在校老师的细心指点和耐心讲解下完成的,我感谢我的所有代课老师和领导对我的栽培和教导,感谢同学们给我的关心和理解。同时也感谢我的范文老师细心的指点,使我的范文在这短短的时间里能够顺利的完成。
参考文献
1.《数据库系统开发实例导航》 宣小平、但正刚、张文毅 编著。
《人民邮电出版社》出版
2.《网络程序设计---asp 》 沿俊杰 编著
《清华大学出版社》
《北方交通大学出版社》出版
3.《网络数据库应用教程》 袁玫 林志英 刘劲松 编著
《人民邮电出版社》出版
4.《DreamweaverMX网页设计教程》 廖疆星、张柯、黄智诚 编著
《冶金工业出版社》出版
系统开发工具:
Asp技术 + Access数据库