四川应用型自考 四川自考【课程】【书籍】订购入口

ASP制作学生档案管理系统

发布日期:2018-05-24 14:20:39 编辑整理:四川自考网 【字体:

一、制作数据库和建立数据源

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=;") //打开数据源information

set rs=createobject("ADODB.Recordset") //建立记录对象rs

rs.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 ("你已经成功注册的这位学员的信息。请继续<a href='input.htm'>注册 </a>") //显示提示信息

rs.close //关闭数据记录

conn.close //关闭连接

set rs=nothing

set conn=nothing

%>

2、信息查询

<%


dim strsql,conn,rs

set 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

%>

<table width="1205" border="1" align="left" bordercolor="#6600CC">

<tr> //本行写上要显示的字段的相应的中文名

<td width="69"><span align="center"><font size="2">姓名</font></span></td>

<td width="46"><span align="center"><font size="2">性别</font></span></td>

<td width="122"><span align="center"><font size="2">出生年</font></span></td>

<td width="46"><span align="center"><font size="2">学历</font></span></td>

<td width="91"><span align="center"><font size="2">政治面貌</font></span></td>

<td width="91"><span align="center"><font size="2">专业</font></span></td>

<td width="50"><span align="center"><font size="2">班级</font></span></td>

<td width="69"><span align="center"><font size="2">班主任</font></span></td>

<td width="122"><span align="center"><font size="2">入学时间</font></span></td>

<td width="146"><span align="center"><font size="2">联系电话</font></span></td>

<td width="337"><span align="center"><font size="2">联系地址</font></span></td>

</tr>

<% while Not rs.eof %> //循环语句控制符合条件的记录输出

<tr> //本行根据循环条件可以重复输出

<td><span align="center"><font size="2"><%=rs("name")%></font></span></td>

/*输出数据库中符合条件的name字段的值*/

<td><span align="center"><font size="2"><%=rs("sex")%></font></span></td>

<td><span align="center"><font size="2"><%=rs("birth")%></font></span></td>

<td><span align="center"><font size="2"><%=rs("xl")%></font></span></td>

<td><span align="center"><font size="2"><%=rs("zzmm")%></font></span></td>

<td><span align="center"><font size="2"><%=rs("career")%></font></span></td>

<td><span align="center"><font size="2"><%=rs("class")%></font></span></td>

<td><span align="center"><font size="2"><%=rs("teach")%></font></span></td>

<td><span align="center"><font size="2"><%=rs("date")%></font></span></td>

<td><span align="center"><font size="2"><%=rs("tel")%></font></span></td>

<td><span align="center"><font size="2"><%=rs("add")%></font></span></td> </tr>

<% rs.movenext

Wend

rs.close

conn.close

%>

</table>

3、信息修改

<%


set conn=server.createobject("adodb.connection")

conn.open "DSN=information;UID=;PWD=;"

set rs=server.CreateObject("adodb.recordset")

username=request("name") // 取得name表单的值赋给username

strsql="select * from infor where name='"&username&"'" //建立SQL查询

rs.open strsql,conn,3,3

%>

<form action="zhuce.asp" method="post">

// 以POST方式将修改的记录通过zhuce.asp页面的程序保存到数据库当中

<table width="75%" border="1" align="center" bordercolor="#663399">

<tr>

<td width="18%"><span align="right"><font size="2">姓 名:</font></span></td>

<td width="36%"><font size="2">

<input name="name" type="text" id="name" value="<%=rs.fields("name")%>">

</font></td> //显示符合查询条件的数据库当中name字段的值,供修改

<td width="15%"><span align="right"><font size="2">入学时间:</font></span></td>

<td width="31%"><input name="time" type="text" id="time" value="<%=rs.fields("date")%>"></td>

</tr>

<tr>

<td height="20"><span align="right"><font size="2">性 别:</font></span></td>

<td><p>

<label>

<input name="sex" type="radio" value="<%=rs.fields("sex")%>" checked>

男</label>

<label>

<input type="radio" name="sex" value="<%=rs.fields("sex")%>">

女</label>

<br>

</p></td>

<td><span align="right"><font size="2">专业:</font></span></td>

<td><input name="career" type="text" id="career" value="<%=rs.fields("career")%>"></td>

</tr>

<tr>

<td><span align="right"><font size="2">出生年月:</font></span></td>

<td><font size="2">

<input name="birthday" type="text" id="birthday" value="<%=rs.fields("birth")%>">

</font></td>

<td><span align="right"><font size="2">班级:</font></span></td>

<td><input name="class" type="text" id="class" value="<%=rs.fields("class")%>"></td>

</tr>

<tr>

<td><span align="right"><font size="2">政治面貌:</font></span></td>

<td><select name="zz" id="zz">

<option value="团员">团员</option>

<option value="党员">党员</option>

<option value="其他">其他</option>

</select></td>

<td><span align="right"><font size="2">班主任:</font></span></td>

<td><input name="teach" type="text" id="teach" value="<%=rs.fields("teach")%>"></td>

</tr>

<tr>

<td><span align="right"><font size="2">学历:</font></span></td>

<td><font size="2">

<select name="xl" id="xl">

<option value="初中">初中</option>

<option value="高中">高中</option>

<option value="大专">大专</option>

<option value="本科">本科</option>

<option value="研究生">研究生</option>

<option value="其他">其他</option>

</select>

</font></td>

<td><span align="right"><font size="2">教室:</font></span></td>

<td><input name="room" type="text" id="room"></td>

</tr>

<tr>

<td><span align="right"><font size="2">原毕业学校:</font></span></td>

<td><font size="2">

<input name="school" type="text" id="school" value="<%=rs.fields("school")%>">

</font></td>

<td colspan="2" rowspan="5"><span align="left">

<p><font color="#FF0000" size="2">请数据录入人员认真录入学员信息,以便以</font></p>

<p><font color="#FF0000" size="2">后查询!</font></p>

</span></td>

</tr>

<tr>

<td><span align="right"><font size="2"></font></span></td>

<td><font size="2">

<input name="add" type="text" id="add" value="<%=rs.fields("add")%>">

</font></td>

</tr>

<tr>

<td><span align="right"><font size="2">联系电话:</font></span></td>

<td><font size="2">

<input name="tel" type="text" id="tel" value="<%=rs.fields("tel")%>">

</font></td>

</tr>

<tr>

<td><span align="right"><font size="2">婚姻状况:</font></span></td>

<td><select name="mar" id="mar">

<option value="已婚">已婚</option>

<option value="未婚">未婚</option>

</select></td>

</tr>

<tr>

<td><span align="right"><font size="2">籍贯:</font></span></td>

<td><font size="2">

<input name="addr" type="text" id="addr" value="<%=rs.fields("jg")%>">

</font></td>

</tr>

</table>

<table width="75%" border="0">

<tr>

<td><span align="center">

<input type="submit" name="Submit2" value="保 存">

</span></td>

<td><input type="reset" name="Reset" value="重 写"></td>

</tr>

</table>

<p> </p>

</form>

本文标签:四川自考 管理类 ASP制作学生档案管理系统

转载请注明:文章转载自(http://www.sczk.sc.cn

本文地址:http://www.sczk.sc.cn/lw_gll/15284.html


《四川自考网》免责声明:

(一)由于考试政策等各方面情况的不断调整与变化,本网站所提供的考试信息仅供参考,请以省考试院及院校官方发布公布的正式信息为准。

(二)本站文章内容信息来源出处标注为其他平台的稿件均为转载稿,免费转载出于非商业性学习目的,版权归原作者所有。如您对内容、版权等问题存在异议请与本站联系,我们会及时进行处理解决。联系邮箱:812379481@qq.com

相关《ASP制作学生档案管理系统》的文章
nav

ASP制作学生档案管理系统

编辑:四川自考网 日期:2018-05-24 阅读:
课程购买

《自考课程》名师讲解,轻松易懂,助您轻松上岸!低至39.9元/科!


一、制作数据库和建立数据源

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=;") //打开数据源information

set rs=createobject("ADODB.Recordset") //建立记录对象rs

rs.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 ("你已经成功注册的这位学员的信息。请继续<a href='input.htm'>注册 </a>") //显示提示信息

rs.close //关闭数据记录

conn.close //关闭连接

set rs=nothing

set conn=nothing

%>

2、信息查询

<%


dim strsql,conn,rs

set 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

%>

<table width="1205" border="1" align="left" bordercolor="#6600CC">

<tr> //本行写上要显示的字段的相应的中文名

<td width="69"><span align="center"><font size="2">姓名</font></span></td>

<td width="46"><span align="center"><font size="2">性别</font></span></td>

<td width="122"><span align="center"><font size="2">出生年</font></span></td>

<td width="46"><span align="center"><font size="2">学历</font></span></td>

<td width="91"><span align="center"><font size="2">政治面貌</font></span></td>

<td width="91"><span align="center"><font size="2">专业</font></span></td>

<td width="50"><span align="center"><font size="2">班级</font></span></td>

<td width="69"><span align="center"><font size="2">班主任</font></span></td>

<td width="122"><span align="center"><font size="2">入学时间</font></span></td>

<td width="146"><span align="center"><font size="2">联系电话</font></span></td>

<td width="337"><span align="center"><font size="2">联系地址</font></span></td>

</tr>

<% while Not rs.eof %> //循环语句控制符合条件的记录输出

<tr> //本行根据循环条件可以重复输出

<td><span align="center"><font size="2"><%=rs("name")%></font></span></td>

/*输出数据库中符合条件的name字段的值*/

<td><span align="center"><font size="2"><%=rs("sex")%></font></span></td>

<td><span align="center"><font size="2"><%=rs("birth")%></font></span></td>

<td><span align="center"><font size="2"><%=rs("xl")%></font></span></td>

<td><span align="center"><font size="2"><%=rs("zzmm")%></font></span></td>

<td><span align="center"><font size="2"><%=rs("career")%></font></span></td>

<td><span align="center"><font size="2"><%=rs("class")%></font></span></td>

<td><span align="center"><font size="2"><%=rs("teach")%></font></span></td>

<td><span align="center"><font size="2"><%=rs("date")%></font></span></td>

<td><span align="center"><font size="2"><%=rs("tel")%></font></span></td>

<td><span align="center"><font size="2"><%=rs("add")%></font></span></td> </tr>

<% rs.movenext

Wend

rs.close

conn.close

%>

</table>

3、信息修改

<%


set conn=server.createobject("adodb.connection")

conn.open "DSN=information;UID=;PWD=;"

set rs=server.CreateObject("adodb.recordset")

username=request("name") // 取得name表单的值赋给username

strsql="select * from infor where name='"&username&"'" //建立SQL查询

rs.open strsql,conn,3,3

%>

<form action="zhuce.asp" method="post">

// 以POST方式将修改的记录通过zhuce.asp页面的程序保存到数据库当中

<table width="75%" border="1" align="center" bordercolor="#663399">

<tr>

<td width="18%"><span align="right"><font size="2">姓 名:</font></span></td>

<td width="36%"><font size="2">

<input name="name" type="text" id="name" value="<%=rs.fields("name")%>">

</font></td> //显示符合查询条件的数据库当中name字段的值,供修改

<td width="15%"><span align="right"><font size="2">入学时间:</font></span></td>

<td width="31%"><input name="time" type="text" id="time" value="<%=rs.fields("date")%>"></td>

</tr>

<tr>

<td height="20"><span align="right"><font size="2">性 别:</font></span></td>

<td><p>

<label>

<input name="sex" type="radio" value="<%=rs.fields("sex")%>" checked>

男</label>

<label>

<input type="radio" name="sex" value="<%=rs.fields("sex")%>">

女</label>

<br>

</p></td>

<td><span align="right"><font size="2">专业:</font></span></td>

<td><input name="career" type="text" id="career" value="<%=rs.fields("career")%>"></td>

</tr>

<tr>

<td><span align="right"><font size="2">出生年月:</font></span></td>

<td><font size="2">

<input name="birthday" type="text" id="birthday" value="<%=rs.fields("birth")%>">

</font></td>

<td><span align="right"><font size="2">班级:</font></span></td>

<td><input name="class" type="text" id="class" value="<%=rs.fields("class")%>"></td>

</tr>

<tr>

<td><span align="right"><font size="2">政治面貌:</font></span></td>

<td><select name="zz" id="zz">

<option value="团员">团员</option>

<option value="党员">党员</option>

<option value="其他">其他</option>

</select></td>

<td><span align="right"><font size="2">班主任:</font></span></td>

<td><input name="teach" type="text" id="teach" value="<%=rs.fields("teach")%>"></td>

</tr>

<tr>

<td><span align="right"><font size="2">学历:</font></span></td>

<td><font size="2">

<select name="xl" id="xl">

<option value="初中">初中</option>

<option value="高中">高中</option>

<option value="大专">大专</option>

<option value="本科">本科</option>

<option value="研究生">研究生</option>

<option value="其他">其他</option>

</select>

</font></td>

<td><span align="right"><font size="2">教室:</font></span></td>

<td><input name="room" type="text" id="room"></td>

</tr>

<tr>

<td><span align="right"><font size="2">原毕业学校:</font></span></td>

<td><font size="2">

<input name="school" type="text" id="school" value="<%=rs.fields("school")%>">

</font></td>

<td colspan="2" rowspan="5"><span align="left">

<p><font color="#FF0000" size="2">请数据录入人员认真录入学员信息,以便以</font></p>

<p><font color="#FF0000" size="2">后查询!</font></p>

</span></td>

</tr>

<tr>

<td><span align="right"><font size="2"></font></span></td>

<td><font size="2">

<input name="add" type="text" id="add" value="<%=rs.fields("add")%>">

</font></td>

</tr>

<tr>

<td><span align="right"><font size="2">联系电话:</font></span></td>

<td><font size="2">

<input name="tel" type="text" id="tel" value="<%=rs.fields("tel")%>">

</font></td>

</tr>

<tr>

<td><span align="right"><font size="2">婚姻状况:</font></span></td>

<td><select name="mar" id="mar">

<option value="已婚">已婚</option>

<option value="未婚">未婚</option>

</select></td>

</tr>

<tr>

<td><span align="right"><font size="2">籍贯:</font></span></td>

<td><font size="2">

<input name="addr" type="text" id="addr" value="<%=rs.fields("jg")%>">

</font></td>

</tr>

</table>

<table width="75%" border="0">

<tr>

<td><span align="center">

<input type="submit" name="Submit2" value="保 存">

</span></td>

<td><input type="reset" name="Reset" value="重 写"></td>

</tr>

</table>

<p> </p>

</form>

微信扫一扫,进群领取资料!

    微信咨询老师
  • (扫码加入[四川自考交流群])
    历年真题、复习资料、备考方案》,马上领取!
最新真题、复习资料、模拟试题 | 一键领取 >>
【四川自考网声明】:

1、由于各方面情况的调整与变化,本网提供的考试信息仅供参考,考试信息以省考试院及院校官方发布的信息为准。

2、本网信息来源为其他媒体的稿件转载,免费转载出于非商业性学习目的,版权归原作者所有,如有内容与版权问题等请与本站联系。联系邮箱:812379481@qq.com。