ASP+Acces制作学生档案管理系统
更多更新更免费论文网,专业毕业设计论文,课程设计源代码,上机实习报告,实验报告请点击www.lwfree.cn
摘要：本系统是根据现代化校园的发展而设计的基于ASP的学生档案管理系统，本系统可以方便老师、家长来学校查找学生。实现全校学生信息在线查询。还可以对新来的学员信息进行信息录入。由于学员上课情况复杂，可以实现信息修改，及时调整学员的基本情况。关键字 ASP 在线查询 信息录入 信息修改一、制作数据库和建立数据源1、利用Microsoft Access 制作数据库，取名为information,然后制作表，表名为infor.下面写入数据字段。如图所示：2、建立ODBC数据源（在2000 professional 系统中建立）步骤： 控制面板à管理工具àODBC数据源à系统DSNàAdd….ODBC界面二、系统界面一个好的系统需要一个友好的用户界面。由于本系统是基于ASP开发的，所以，我们利用网页制作工具制作友好的用户界面。部分界面如图所示：进入界面
信息录入界面
信 息 查 询
三、程序实现由于本系统是基于ASP开发的实现在线操作的系统。所以，本系统的完成需要借助HTML，又由于HTML是网页编程的基础，所以，在这里就省去HTML代码，相信大家都是HTML高手。1、信息录入<%dim strsql,rs
set conn=createobject("ADODB.connection") //建立ADODB连接conn.open ("DSN=information;UID=;PWD=;") //打开数据源informationset rs=createobject("ADODB.Recordset") //建立记录对象rsrs.open "infor",conn,3,3 //打开数据库里的infor表rs.Addnew //添加一条新的记录rs("name").value=request.form("name") /*取得表单名为 name里的内容“送”到数据库name记录里（备注：表单名是信息录入界面里的提示信息是“姓名”的表单域的名字，以下类似）*/rs("sex").value=request.form("sex")rs("birth").value=request.form("birthday")rs("zzmm").value=request.form("zz")rs("teach").value=request.form("teach")rs("xl").value=request.form("xl")rs("class").value=request.form("class")rs("school").value=request.form("school")rs("add").value=request.form("add")rs("tel").value=request.form("tel")rs("hy").value=request.form("mar")rs("jg").value=request.form("addr")rs("career").value=request.form("career")rs("date").value=request.form("time")rs("school").value=request.form("school")rs.Update //保存数据库里的记录Response.Write ("你已经成功注册的这位学员的信息。请继续
注册 ") //显示提示信息rs.close //关闭数据记录conn.close //关闭连接set rs=nothingset conn=nothing%>2、信息查询<%dim strsql,conn,rsset conn=server.createobject("ADODB.connection")conn.open ("DSN=information;UID=;PWD=;")set rs=server.createobject("ADODB.Recordset") strsql="select * from infor where name= '" & request("name") &"'"//利用SQL建立查询rs.open strsql,conn%>
//本行写上要显示的字段的相应的中文名姓名 | 性别 | 出生年 | 学历 | 政治面貌 | 专业 | 班级 | 班主任 | 入学时间 | 联系电话 | 联系地址 |
<% while Not rs.eof %> //循环语句控制符合条件的记录输出 //本行根据循环条件可以重复输出<%=rs("name")%> | /*输出数据库中符合条件的name字段的值*/<%=rs("sex")%> | <%=rs("birth")%> | <%=rs("xl")%> | <%=rs("zzmm")%> | <%=rs("career")%> | <%=rs("class")%> | <%=rs("teach")%> | <%=rs("date")%> | <%=rs("tel")%> | <%=rs("add")%> |
<% rs.movenextWendrs.closeconn.close%>
3、信息修改<% set conn=server.createobject("adodb.connection")conn.open "DSN=information;UID=;PWD=;"set rs=server.CreateObject("adodb.recordset")username=request("name") // 取得name表单的值赋给usernamestrsql="select * from infor where name='"&username&"'" //建立SQL查询rs.open strsql,conn,3,3%>
