ASP原创信息管理系统(一)毕业论文(5)
2013-07-28 01:28
导读：任课班名:/div/td 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 nam
>任课班名:</div></td>
<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>
（科教作文网 zw.nseac.com整理）
<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>
（科教范文网http://fw.ΝsΕΑc.com编辑）
<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="" width="500" height="250">
<param name="movie" value="images/dayin.swf">
<param name="quality" value="high">
<embed src="images/dayin.swf" quality="high" pluginspage="" type="application/x-shockwave-flash" width="500" height="250"></embed></object></td>
（科教作文网http://zw.NSEaC.com编辑发布）
</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建模，以及数据库的设计、各模块功能的设计等，系统的设计为整个程序构造了骨架，而各个模块则实现了各个细节部分。
测试结果：
该系统在开发中出现过许多问题，通过编者的努力及指导教师的耐心指导，终于在规定的时间里能顺利的结束。
结束语
通过这次，我用自己所学的知识来开发一个比较复杂的程序。同时对课题的深入研究，又学到了不少知识。不仅包括专业方面的知识，还让我意识到，想作为一个有用之人，必须能够将自己学到的专业知识和具体实践结合起来，才能真正增长自己的才干，学有所用，用有所成。我们是新一代青年，就应该将自己的知识服务于社会。 （科教范文网 lw.nSeAc.com编辑发布）
由于编者经验和水平有限，所以存在许多的错误和不足之处，感谢各位老师和评委能够亲临我的现场给于我耐心指点。真心谢谢！
致谢
该系统的设计，完全是在所有在校老师的细心指点和耐心讲解下完成的，我感谢我的所有代课老师和领导对我的栽培和教导，感谢同学们给我的关心和理解。同时也感谢我的论文老师细心的指点，使我的论文在这短短的时间里能够顺利的完成。
参考文献
1.《数据库系统开发实例导航》 宣小平、但正刚、张文毅 编著。
《人民邮电出版社》出版
2.《网络程序设计---asp 》 沿俊杰 编著
《清华大学出版社》
《北方交通大学出版社》出版
3．《网络数据库应用教程》 袁玫 林志英 刘劲松 编著
《人民邮电出版社》出版
4．《DreamweaverMX网页设计教程》 廖疆星、张柯、黄智诚 编著 （科教作文网http://zw.ΝsΕAc.Com编辑整理）
《冶金工业出版社》出版
系统开发工具：
Asp技术 + Access数据库
