网站地图| 免费获取|
免费论文网
  • 网站首页|
  • 论文范文|
  • 修改降重|
  • 职称论文|
  • 合作期刊|
  • 论文下载|
  • 计算机论文|
  • 外文翻译|
  • 免费论文|
  • 原创论文|
  • 开题报告论文
搜索

当前位置:免费论文网 -> 免费论文 -> 计算机论文 -> ASP原创信息管理系统(五)
计算机论文| ASP设计| Delphi| VB设计| JSP设计| ASP.NET设计| VB.NET| java设计| VC| pb| VS| dreamweaver| c#.net| vf| VC++| 计算机论文范文| 论文下载| 自动化论文

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

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原创信息管理系统(五)由免费论文网(www.jaoyuw.com)会员上传。
原创论文流程 相关论文
上一篇:ASP原创交友网设计 下一篇:信用卡数据分析系统软件说明书
推荐论文 本专业最新论文
Tags:ASP 原创 信息 管理系统 2010-03-28 13:07:09【返回顶部】
精彩推荐
发表论文

联系方式 | 论文说明 | 网站地图 | 免费获取 | 钻石会员 | 硕士论文


免费论文网提供论文范文,论文代发,原创论文

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

Copyright@ 2009-2020 免费论文网 版权所有 湘ICP备19027999