免费获取|
论文天下网
  • 论文天下网 |
  • 原创毕业论文 |
  • 论文范文 |
  • 论文下载 |
  • 计算机论文 |
  • 论文降重 |
  • 毕业论文 |
  • 外文翻译 |
  • 免费论文 |
  • 开题报告 |
  • 心得体会 |

当前位置:论文天下网 -> 免费论文 -> 计算机论文

ASP原创信息管理系统(五)

>任课班名:</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">&nbsp;</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数据库

首页 上一页 2 3 4 5 下一页 尾页 5/5/5

相关论文
上一篇:ASP原创交友网设计 下一篇:信用卡数据分析系统软件说明书
推荐论文 本专业最新论文
Tags:ASP 原创 信息 管理系统 【返回顶部】

相关栏目

自动化相关
计算机论文
工程管理论文
法律论文
医学论文
人力资源
电子专业
电气工程
英语论文
行政管理
电子商务
社科文学
教育论文
物流专业
金融专业
财务管理
会计专业
化学化工材料科学
电子通信
环境科学
经济类
机械模具类
报告,总结,申请书
其他专业论文


关于我们 | 联系方式 | 论文说明 | 网站地图 | 免费获取 | 钻石会员 | 原创毕业论文

 

论文天下网提供论文检测,论文降重,论文范文,论文排版,网站永久域名WWW.GEPUW.NET

本站部分文章来自网友投稿上传,如发现侵犯了您的版权,请联系指出,本站及时确认并删除  E-mail: 893628136@qq.com

Copyright@ 2009-2022 GEPUW.NET 论文天下网 版权所有