摘要：本系統是根據現代化校園的發(fā)展而設計的基于ASP的學(xué)生檔案管理系統，本系統可以方便老師、家長(cháng)來(lái)學(xué)校查找學(xué)生。實(shí)現全校學(xué)生信息在線(xiàn)查詢(xún)。還可以對新來(lái)的學(xué)員信息進(jìn)行信息錄入。由于學(xué)員上課情況復雜，可以實(shí)現信息修改，及時(shí)調整學(xué)員的基本情況。

關(guān)鍵字 ASP 在線(xiàn)查詢(xún) 信息錄入 信息修改



一、制作數據庫和建立數據源



1、利用Microsoft Access 制作數據庫，取名為information,然后制作表，表名為infor.下面寫(xiě)入數據字段。如圖所示：




2、建立ODBC數據源（在2000 professional 系統中建立）

步驟：

控制面板à管理工具àODBC數據源à系統DSNàAdd….

ODBC界面






二、系統界面



一個(gè)好的系統需要一個(gè)友好的用戶(hù)界面。由于本系統是基于ASP開(kāi)發(fā)的，所以，我們利用網(wǎng)頁(yè)制作工具制作友好的用戶(hù)界面。部分界面如圖所示：

進(jìn)入界面

信息錄入界面

信 息 查 詢(xún)

三、程序實(shí)現



由于本系統是基于ASP開(kāi)發(fā)的實(shí)現在線(xiàn)操作的系統。所以，本系統的完成需要借助HTML，又由于HTML是網(wǎng)頁(yè)編程的基礎，所以，在這里就省去HTML代碼，相信大家都是HTML高手。



1、信息錄入



<%

dim strsql,rs

set conn=createobject("ADODB.connection") //建立ADODB連接

conn.open ("DSN=information;UID=;PWD=;") //打開(kāi)數據源information

set rs=createobject("ADODB.Recordset") //建立記錄對象rs

rs.open "infor",conn,3,3 //打開(kāi)數據庫里的infor表

rs.Addnew //添加一條新的記錄

rs("name").value=request.form("name") /*取得表單名為 name里的內容“送”

到數據庫name記錄里（備注：表單名是信息錄入界面里的提示信息是“姓名”的表單域的名字，以下類(lèi)似）*/

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 ("你已經(jīng)成功注冊的這位學(xué)員的信息。請繼續<a href='input.htm'>注冊 </a>") //顯示提示信息

rs.close //關(guān)閉數據記錄

conn.close //關(guān)閉連接

set rs=nothing

set conn=nothing

%>



2、信息查詢(xún)



<%

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") &"'"http://利用SQL建立查詢(xún)

rs.open strsql,conn

%>

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

<tr> //本行寫(xiě)上要顯示的字段的相應的中文名

<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">學(xué)歷</font></div></td>

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

<td width="91"><div align="center"><font size="2">專(zhuān)業(yè)</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">入學(xué)時(shí)間</font></div></td>

<td width="146"><div align="center"><font size="2">聯(lián)系電話(huà)</font></div></td>

<td width="337"><div align="center"><font size="2">聯(lián)系地址</font></div></td>

</tr>

<% while Not rs.eof %> //循環(huán)語(yǔ)句控制符合條件的記錄輸出

<tr> //本行根據循環(huán)條件可以重復輸出

<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查詢(xún)

rs.open strsql,conn,3,3

%>

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

// 以POST方式將修改的記錄通過(guò)zhuce.asp頁(yè)面的程序保存到數據庫當中

<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> //顯示符合查詢(xún)條件的數據庫當中name字段的值，供修改

<td width="15%"><div align="right"><font size="2">入學(xué)時(shí)間：</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">專(zhuān)業(yè)：</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">學(xué)歷：</font></div></td>

<td><font size="2">

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

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

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

<option value="大專(zhuān)">大專(zhuān)</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">原畢業(yè)學(xué)校：</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">請數據錄入人員認真錄入學(xué)員信息，以便以</font></p>

<p><font color="#FF0000" size="2">后查詢(xún)！</font></p>

</div></td>

</tr>

<tr>

<td><div align="right"><font size="2">聯(lián)系地址：</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">聯(lián)系電話(huà)：</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="重寫(xiě)"></td>

</tr>

</table>

<p>&nbsp;</p>

</form>
　

[全文完,參考資料請自行補充]