- 相關(guān)推薦
ASP制作學(xué)生檔案管理系統(tǒng) 2
摘要：本系統(tǒng)是根據(jù)現(xiàn)代化校園的發(fā)展而設(shè)計(jì)的基于ASP的學(xué)生檔案管理系統(tǒng)，本系統(tǒng)可以方便老師、家長(zhǎng)來(lái)學(xué)校查找學(xué)生。實(shí)現(xiàn)全校學(xué)生信息在線查詢。還可以對(duì)新來(lái)的學(xué)員信息進(jìn)行信息錄入。由于學(xué)員上課情況復(fù)雜，可以實(shí)現(xiàn)信息修改，及時(shí)調(diào)整學(xué)員的基本情況。關(guān)鍵字 ASP在線查詢信息錄入信息修改
一、制作數(shù)據(jù)庫(kù)和建立數(shù)據(jù)源
1、利用MicrosoftAccess制作數(shù)據(jù)庫(kù)，取名為information,然后制作表，表名為infor.下面寫入數(shù)據(jù)字段。如圖所示：
2、建立ODBC數(shù)據(jù)源（在2000professional系統(tǒng)中建立）
步驟：
控制面板à管理工具àODBC數(shù)據(jù)源à系統(tǒng)DSNàAdd….
ODBC界面
二、系統(tǒng)界面
一個(gè)好的系統(tǒng)需要一個(gè)友好的用戶界面。由于本系統(tǒng)是基于ASP開(kāi)發(fā)的，所以，我們利用網(wǎng)頁(yè)制作工具制作友好的用戶界面。部分界面如圖所示：
進(jìn)入界面
信息錄入界面
信息查詢
三、程序?qū)崿F(xiàn)
由于本系統(tǒng)是基于ASP開(kāi)發(fā)的實(shí)現(xiàn)在線操作的系統(tǒng)。所以，本系統(tǒng)的完成需要借助HTML，又由于HTML是網(wǎng)頁(yè)編程的基礎(chǔ)，所以，在這里就省去HTML代碼，相信大家都是HTML高手。
1、信息錄入
<%
dimstrsql,rs
setconn=createobject("ADODB.connection")//建立ADODB連接
conn.open("DSN=information;UID=;PWD=;")//打開(kāi)數(shù)據(jù)源information
setrs=createobject("ADODB.Recordset")//建立記錄對(duì)象rs
rs.open"infor",conn,3,3//打開(kāi)數(shù)據(jù)庫(kù)里的infor表
rs.Addnew//添加一條新的記錄
rs("name").value=request.form("name")/*取得表單名為name里的內(nèi)容“送”
到數(shù)據(jù)庫(kù)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ù)庫(kù)里的記錄
Response.Write("你已經(jīng)成功注冊(cè)的這位學(xué)員的信息。請(qǐng)繼續(xù)<ahref='input.htm'>注冊(cè)</a>")//顯示提示信息
rs.close//關(guān)閉數(shù)據(jù)記錄
conn.close//關(guān)閉連接
setrs=nothing
setconn=nothing
%>
2、信息查詢
<%
dimstrsql,conn,rs
setconn=server.createobject("ADODB.connection")
conn.open("DSN=information;UID=;PWD=;")
setrs=server.createobject("ADODB.Recordset")
strsql="select*frominforwherename='"&request("name")&"'"http://利用SQL建立查詢
rs.openstrsql,conn
%>
<tablewidth="1205"border="1"align="left"bordercolor="#6600CC">
<tr>//本行寫上要顯示的字段的相應(yīng)的中文名
<tdwidth="69"><divalign="center"><fontsize="2">姓名&l
t;/font></div></td>
<tdwidth="46"><divalign="center"><fontsize="2">性別</font></div></td>
<tdwidth="122"><divalign="center"><fontsize="2">出生年</font></div></td>
<tdwidth="46"><divalign="center"><fontsize="2">學(xué)歷</font></div></td>
<tdwidth="91"><divalign="center"><fontsize="2">政治面貌</font></div></td>
<tdwidth="91"><divalign="center"><fontsize="2">專業(yè)</font></div></td>
<tdwidth="50"><divalign="center"><fontsize="2">班級(jí)</font></div></td>
<tdwidth="69"><divalign="center"><fontsize="2">班主任</font></div></td>
<tdwidth="122"><divalign="center"><fontsize="2">入學(xué)時(shí)間</font></div></td>
<tdwidth="146"><divalign="center"><fontsize="2">聯(lián)系電話</font></div></td>
<tdwidth="337"><divalign="center"><fontsize="2">聯(lián)系地址</font></div></td>
</tr>
<%whileNotrs.eof%>//循環(huán)語(yǔ)句控制符合條件的記錄輸出
<tr>//本行根據(jù)循環(huán)條件可以重復(fù)輸出
<td><divalign="center"><fontsize="2"><%=rs("name")%></font></div></td>
/*輸出數(shù)據(jù)庫(kù)中符合條件的name字段的值*/
<td><divalign="center"><fontsize="2"><%=rs("sex")%></font></div></td>
<td><divalign="center"><fontsize="2"><%=rs("birth")%></font></div></td>
<td><divalign="center"><fontsize="2"><%=rs("xl")%></font></div></td>
<td><divalign="center"><fontsize="2"><%=rs("zzmm")%></font></div></td>
<td><divalign="center"><fontsize="2"><%=rs("career")%></font></div></td>
<td><divalign="center"><fontsize="2"><%=rs("class")%></font></div></td>
<td><divalign="center"><fontsize="2"><%=rs("teach")%></font></div></td>
<td><divalign="center"><fontsize="2"><%=rs("date")%></font></div></td>
<td><divalign="center"><fontsize="2"><%=rs("tel")%></font></div></td>
<td><divalign="center"><fontsize="2"><%=rs("add")%></font></div></td></tr>
<%rs.movenext
Wend
rs.close
conn.close
%>
</table>
3、信息修改
<%
setconn=server.createobject("adodb.connection")
conn.open"DSN=information;UID=;PWD=;"
setrs=server.CreateObject("adodb.recordset")
userna
me=request("name")//取得name表單的值賦給username
strsql="select*frominforwherename='"&username&"'"http://建立SQL查詢
rs.openstrsql,conn,3,3
%>
<formaction="zhuce.asp"method="post">
//以POST方式將修改的記錄通過(guò)zhuce.asp頁(yè)面的程序保存到數(shù)據(jù)庫(kù)當(dāng)中
<tablewidth="75%"border="1"align="center"bordercolor="#663399">
<tr>
<tdwidth="18%"><divalign="right"><fontsize="2">姓名：</font></div></td>
<tdwidth="36%"><fontsize="2">
<inputname="name"type="text"id="name"value="<%=rs.fields("name")%>">
</font></td>//顯示符合查詢條件的數(shù)據(jù)庫(kù)當(dāng)中name字段的值，供修改
<tdwidth="15%"><divalign="right"><fontsize="2">入學(xué)時(shí)間：</font></div></td>
<tdwidth="31%"><inputname="time"type="text"id="time"value="<%=rs.fields("date")%>"></td>
</tr>
<tr>
<tdheight="20"><divalign="right"><fontsize="2">性別：</font></div></td>
<td><p>
<label>
<inputname="sex"type="radio"value="<%=rs.fields("sex")%>"checked>
男</label>
<label>
<inputtype="radio"name="sex"value="<%=rs.fields("sex")%>">
女</label>
<br>
</p></td>
<td><divalign="right"><fontsize="2">專業(yè)：</font></div></td>
<td><inputname="career"type="text"id="career"value="<%=rs.fields("career")%>"></td>
</tr>
<tr>
<td><divalign="right"><fontsize="2">出生年月：</font></div></td>
<td><fontsize="2">
<inputname="birthday"type="text"id="birthday"value="<%=rs.fields("birth")%>">
</font></td>
<td><divalign="right"><fontsize="2">班級(jí)：</font></div></td>
<td><inputname="class"type="text"id="class"value="<%=rs.fields("class")%>"></td>
</tr>
<tr>
<td><divalign="right"><fontsize="2">政治面貌：</font></div></td>
<td><selectname="zz"id="zz">
<optionvalue="團(tuán)員">團(tuán)員</option>
<optionvalue="黨員">黨員</option>
<optionvalue="其他">其他</option>
</select></td>
<td><divalign="right"><fontsize="2">班主任：</font></div></td>
<td><inputname="teach"type="text"id="teach"value="<%=rs.fields("teach")%>"></td>
</tr>
<tr>
<td><divalign="right"><fontsize="2">學(xué)歷：</font></div></td>
<td><fontsize="2">
<selectname="xl"id="xl">
<optionvalue="初中">初中</option>
<optionvalue="高中">高中</option>
<optionvalue="大專">大專</option>
<optionvalue="本科">本科</option>
<optionvalue="研究生">研究生</option>
<optionvalue="其他">其他</option>
</select>
</font></td>
<td><divalign="right"><fontsize="2">教室：</font></div></td>
<td><inputname="room"type="text"id="room"></td>
</tr>
<tr>
<td><divalign="right"><fontsize="2">原畢業(yè)學(xué)校：</font></div></td>
<td><fontsize="2">
<inputname="school"type="text"id="school"value="<%=rs.fields("school")%>">
</font></td>
<tdcolspan="2"rowspan="5"><divalign="left">
<p><fontcolor="#FF0000"size="2">請(qǐng)數(shù)據(jù)錄入人員認(rèn)真錄入學(xué)員信息，以便以</font></p>
<p><fontcolor="#FF0000"size="2">后查詢！</font></p>
</div></td>
</tr>
<tr>
<td><divalign="right"><fontsize="2">聯(lián)系地址：</font></div></td>
<td><fontsize="2">
<inputname="add"type="text"id="add"value="<%=rs.fields("add")%>">
</font></td>
</tr>
<tr>
<td><divalign="right"><fontsize="2">聯(lián)系電話：</font></div></td>
<td><fontsize="2">
<inputname="tel"type="text"id="tel"value="<%=rs.fields("tel")%>">
</font></td>
</tr>
<tr>
<td><divalign="right"><fontsize="2">婚姻狀況：</font></div></td>
<td><selectname="mar"id="mar">
<optionvalue="已婚">已婚</option>
<optionvalue="未婚">未婚</option>
</select></td>
</tr>
<tr>
<td><divalign="right"><fontsize="2">籍貫：</font></div></td>
<td><fontsize="2">
<inputname="addr"type="text"id="addr"value="<%=rs.fields("jg")%>">
</font></td>
</tr>
</table>
<tablewidth="75%"border="0">
<tr>
<td><divalign="center">
<inputtype="submit"name="Submit2"value="保存">
</div></td>
<td><inputtype="reset"name="Reset"value="重寫"></td>
</tr>
</table>
<p> </p>
</form>
【ASP制作學(xué)生檔案管理系統(tǒng) 2】相關(guān)文章：
公司檔案管理自查報(bào)告 2篇04-14
制作賀卡學(xué)生作文12-22
制作書簽的小學(xué)生作文12-09
小學(xué)生法制作文11-18
制作賀卡小學(xué)生作文11-08
制作賀卡的小學(xué)生作文11-08
檔案管理心得01-29
學(xué)生實(shí)習(xí)報(bào)告2篇06-14
學(xué)生軍訓(xùn)心得2篇01-04