摘要：本系统是根据现代化校园的发展而设计的基于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=;") //打开数据源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"><div align="center"><font size="2">姓名</font></div></td>

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

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

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

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

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

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

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

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

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

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

</tr>

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

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

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

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

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

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

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

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

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

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

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

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

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

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

<% rs.movenext

Wend

rs.close

conn.close

%>

</table>



3、信息修改



<%

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

[1] [2]  下一页