ASP制作學(xué)生檔案管理系統(tǒng)
ASP制作學(xué)生檔案管理系統(tǒng)
摘要：本系統(tǒng)是根據(jù)現(xiàn)代化校園的發(fā)展而設(shè)計的基于ASP的學(xué)生檔案管理系統(tǒng)，本系統(tǒng)可以方便老師、家長來學(xué)校查找學(xué)生。實現(xiàn)全校學(xué)生信息在線查詢。還可以對新來的學(xué)員信息進(jìn)行信息錄入。由于學(xué)員上課情況復(fù)雜，可以實現(xiàn)信息修改，及時調(diào)整學(xué)員的基本情況。
關(guān)鍵字 ASP 在線查詢 信息錄入 信息修改
一、制作數(shù)據(jù)庫和建立數(shù)據(jù)源
1、利用Microsoft Access 制作數(shù)據(jù)庫，取名為information,然后制作表，表名為infor.下面寫入數(shù)據(jù)字段。如圖所示：
2、建立ODBC數(shù)據(jù)源（在2000 professional 系統(tǒng)中建立）
步驟：
控制面板0管理工具0ODBC數(shù)據(jù)源0系統(tǒng)DSN0Add….
ODBC界面
二、系統(tǒng)界面
一個好的系統(tǒng)需要一個友好的用戶界面。由于本系統(tǒng)是基于ASP開發(fā)的，所以，我們利用網(wǎng)頁制作工具制作友好的用戶界面。部分界面如圖所示：
進(jìn)入界面
信息錄入界面
信 息 查 詢
三、程序?qū)崿F(xiàn)
由于本系統(tǒng)是基于ASP開發(fā)的實現(xiàn)在線操作的系統(tǒng)。所以，本系統(tǒng)的完成需要借助HTML，又由于HTML是網(wǎng)頁編程的基礎(chǔ)，所以，在這里就省去HTML代碼，相信大家都是HTML高手。
1、信息錄入
<%
dim strsql,rs
set conn=createobject("ADODB.connection") //建立ADODB連接
conn.open ("DSN=information;UID=;PWD=;") //打開數(shù)據(jù)源information
set rs=createobject("ADODB.Recordset") //建立記錄對象rs
rs.open "infor",conn,3,3 //打開數(shù)據(jù)庫里的infor表
rs.Addnew //添加一條新的記錄
rs("name").value=request.form("name") /*取得表單名為 name里的內(nèi)容“送”
到數(shù)據(jù)庫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 //保存數(shù)據(jù)庫里的記錄
Response.Write ("你已經(jīng)成功注冊的這位學(xué)員的信息。請繼續(xù)<a href='input.htm'>注冊 </a>") //顯示提示信息
rs.close //關(guān)閉數(shù)據(jù)記錄
conn.close //關(guān)閉連接
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") &"'"http://利用SQL建立查詢
rs.open strsql,conn
%>
<table width="1205" border="1" align="left" bordercolor="#6600CC">
<tr> //本行寫上要顯示的字段的相應(yīng)的中文名
<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">專業(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é)時間</font></div></td>
<td width="146"><div align="center"><font size="2">聯(lián)系電話</font></div></td>
<td width="337"><div align="center"><font size="2">聯(lián)系地址</font></div></td>
</tr>
<% while Not rs.eof %> //循環(huán)語句控制符合條件的記錄輸出
<tr> //本行根據(jù)循環(huán)條件可以重復(fù)輸出
<td><div align="center"><font size="2"><%=rs("name")%></font></div></td>
/*輸出數(shù)據(jù)庫中符合條件的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頁面的程序保存到數(shù)據(jù)庫當(dāng)中
<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> //顯示符合查詢條件的數(shù)據(jù)庫當(dāng)中name字段的值，供修改
<td width="15%"><div align="right"><font size="2">入學(xué)時間：</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">專業(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="團(tuán)員">團(tuán)員</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="大專">大專</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">請數(shù)據(jù)錄入人員認(rèn)真錄入學(xué)員信息，以便以</font></p>
<p><font color="#FF0000" size="2">后查詢！</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)系電話：</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> </p>
</form>
【ASP制作學(xué)生檔案管理系統(tǒng)】相關(guān)文章：
ASP制作學(xué)生檔案管理系統(tǒng) 204-12
學(xué)生檔案管理系統(tǒng)08-06
動態(tài)網(wǎng)頁制作技術(shù)JSP與ASP的比較08-06