自考“計(jì)算機(jī)及應(yīng)用”專業(yè)論文參考范文（5） -自考串講筆記

ASP制作學(xué)生檔案管理系統(tǒng)

摘要：本系統(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、利用Microsoft Access 制作數(shù)據(jù)庫(kù)，取名為information，然后制作表，表名為infor.下面寫(xiě)入數(shù)據(jù)字段。如圖所示：

2、建立ODBC數(shù)據(jù)源（在2000 professional 系統(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、信息錄入

<%

dim strsql，rs

set conn=createobject（“ADODB.connection”） //建立ADODB連接

conn.open （“DSN=information；UID=；PWD=；”） //打開(kāi)數(shù)據(jù)源information

set rs=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ù)注冊(cè) ”） //顯示提示信息

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

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

set rs=nothing

set conn=nothing

%>