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

1、ASP制作學(xué)生檔案管理系統(tǒng) 發(fā)布時間： 2004-04-15 作者：陳慶平 安徽新華電腦學(xué)校 摘要：本系統(tǒng)是根據(jù)現(xiàn)代化校園的發(fā)展而設(shè)計(jì)的基于ASP的學(xué)生檔案管理系統(tǒng)，本系統(tǒng)可以方便老師、家長來學(xué)校查找學(xué)生。實(shí)現(xiàn)全校學(xué)生信息在線查詢。還可以對新來的學(xué)員信息進(jìn)行信息錄入。由于學(xué)員上課情況復(fù)雜，可以實(shí)現(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 profession

2、al 系統(tǒng)中建立）步驟： 控制面板0管理工具0ODBC數(shù)據(jù)源0系統(tǒng)DSN0Add.ODBC界面二、系統(tǒng)界面一個好的系統(tǒng)需要一個友好的用戶界面。由于本系統(tǒng)是基于ASP開發(fā)的，所以，我們利用網(wǎng)頁制作工具制作友好的用戶界面。部分界面如圖所示：進(jìn)入界面信息錄入界面信 息 查 詢?nèi)⒊绦驅(qū)崿F(xiàn)由于本系統(tǒng)是基于ASP開發(fā)的實(shí)現(xiàn)在線操作的系統(tǒng)。所以，本系統(tǒng)的完成需要借助HTML，又由于HTML是網(wǎng)頁編程的基礎(chǔ)，所以，在這里就省去HTML代碼，相信大家都是HTML高手。1、信息錄入<%dim strsql,rsset conn=createobject("ADODB.connection&quo

3、t;) /建立ADODB連接conn.open ("DSN=information;UID=;PWD=;") /打開數(shù)據(jù)源informationset rs=createobject("ADODB.Recordset") /建立記錄對象rsrs.open "infor",conn,3,3 /打開數(shù)據(jù)庫里的infor表rs.Addnew /添加一條新的記錄rs("name").value=request.form("name") /*取得表單名為 name里的內(nèi)容“送”到數(shù)據(jù)庫name記錄里（備注

4、：表單名是信息錄入界面里的提示信息是“姓名”的表單域的名字，以下類似）*/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

5、.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&q

6、uot;)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ù)

7、<a href='input.htm'>注冊 </a>") /顯示提示信息rs.close /關(guān)閉數(shù)據(jù)記錄conn.close /關(guān)閉連接set rs=nothingset conn=nothing%>2、信息查詢<%dim strsql,conn,rsset conn=server.createobject("ADODB.connection")conn.open ("DSN=information;UID=;PWD=;")set rs=server.createobject("A

8、DODB.Recordset") strsql="select * from infor where name= '" & request("name") &"'"/利用SQL建立查詢r(jià)s.open strsql,conn%><table width="1205" border="1" align="left" bordercolor="#6600CC"><tr> /本行寫上要顯示的字

9、段的相應(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="1

10、22"><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=&

11、quot;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"><f

12、ont 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">

13、入學(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></

14、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="cen

15、ter"><font size="2"><%=rs("sex")%></font></div></td><td><div align="center"><font size="2"><%=rs("birth")%></font></div></td><td><div align="center">

16、;<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

17、="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&

18、quot;><%=rs("teach")%></font></div></td><td><div align="center"><font size="2"><%=rs("date")%></font></div></td><td><div align="center"><font size="2">&l

19、t;%=rs("tel")%></font></div></td><td><div align="center"><font size="2"><%=rs("add")%></font></div></td> </tr><% rs.movenextWendrs.closeconn.close%></table>3、信息修改<% set conn=se

20、rver.createobject("adodb.connection")conn.open "DSN=information;UID=;PWD=;"set rs=server.CreateObject("adodb.recordset")username=request("name") / 取得name表單的值賦給usernamestrsql="select * from infor where name='"&username&"'" /建

21、立SQL查詢r(jià)s.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%"><d

22、iv 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")%>">&

23、lt;/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" valu

24、e="<%=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="

25、;radio" value="<%=rs.fields("sex")%>" checked>男</label><label><input type="radio" name="sex" value="<%=rs.fields("sex")%>">女</label><br></p></td><td><div align="rig

26、ht"><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

27、"><font size="2">出生年月：</font></div></td><td><font size="2"> <input name="birthday" type="text" id="birthday" value="<%=rs.fields("birth")%>"></font></td><td>

28、;<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><

29、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="其他"

30、>其他</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")%>

31、"></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

32、><option value="高中">高中</option><option value="大專">大專</option><option value="本科">本科</option><option value="研究生">研究生</option><option value="其他">其他</option></select></font></t

33、d><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=&

34、quot;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=

35、"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> <

36、;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=&qu