摘要：本系统是根据现代化校园的发展而设计的基于ASP的学生档案管理系统，本系统可以方便老师、家长来学校查找学生。实现全校学生信息在线查询。还可以对新来的学员信息进行信息录入。由于学员上课情况复杂，可以实现信息修改，及时调整学员的基本情况。

关键字 ASP 在线查询 信息录入 信息修改



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



1、利用Microsoft Access 制作数据库，取名为information,然后制作表，表名为infor.下面写入数据字段。如图所示：

screen.width-400)this.style.width=screen.width-400;\>


2、建立ODBC数据源（在2000 professional 系统中建立）

步骤：

控制面板à管理工具àODBC数据源à系统DSNàAdd….

ODBC界面



screen.width-400)this.style.width=screen.width-400;\>


二、系统界面



一个好的系统需要一个友好的用户界面。由于本系统是基于ASP开发的，所以，我们利用网页制作工具制作友好的用户界面。部分界面如图所示：

进入界面

screen.width-400)this.style.width=screen.width-400;\>

信息录入界面

screen.width-400)this.style.width=screen.width-400;\>

信 息 查 询

screen.width-400)this.style.width=screen.width-400;\>

三、程序实现



由于本系统是基于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\)

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%\><div align=\right\><font size=\2\>姓 名：</font></div></td>

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

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

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

<td width=\15%\><div align=\right\><font size=\2\>入学时间：</font></div></td>

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

</tr>

<tr>

<td height=\20\><div align=\right\><font size=\2\>性 别：</font></div></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><div align=\right\><font size=\2\>专业：</font></div></td>

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

</tr>

<tr>

<td><div align=\right\><font size=\2\>出生年月：</font></div></td>

<td><font size=\2\>

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

</font></td>

<td><div align=\right\><font size=\2\>班级：</font></div></td>

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

</tr>

<tr>

<td><div align=\right\><font size=\2\>政治面貌：</font></div></td>

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

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

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

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

</select></td>

<td><div align=\right\><font size=\2\>班主任：</font></div></td>

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

</tr>

<tr>

<td><div align=\right\><font size=\2\>学历：</font></div></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><div align=\right\><font size=\2\>教室：</font></div></td>

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

</tr>

<tr>

<td><div align=\right\><font size=\2\>原毕业学校：</font></div></td>

<td><font size=\2\>

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

</font></td>

<td colspan=\2\ rowspan=\5\><div align=\left\>

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

<p><font color=\#FF0000\ size=\2\>后查询！</font></p>

</div></td>

</tr>

<tr>

<td><div align=\right\><font size=\2\>联系地址：</font></div></td>

<td><font size=\2\>

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

</font></td>

</tr>

<tr>

<td><div align=\right\><font size=\2\>联系电话：</font></div></td>

<td><font size=\2\>

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

</font></td>

</tr>

<tr>

<td><div align=\right\><font size=\2\>婚姻状况：</font></div></td>

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

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

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

</select></td>

</tr>

<tr>

<td><div align=\right\><font size=\2\>籍贯：</font></div></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><div align=\center\>

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

</div></td>

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

</tr>

</table>

<p>&nbsp;</p>

</form>