1、學論文集生檔案管理系統ASP語言    摘要：本系統是根據現代化校園之發展而設計之基于ASP之學生檔案管理系統，本系統可以方便老師、家長來學校查找學生。實現全校學生信息在線查詢。還可以對新來之學員信息進行信息錄入。由于學員上課情況復雜，可以實現信息修改，及時調整學員之基本情況。關鍵字 ASP 在線查詢 信息錄入 信息修改一、制作數據庫和建立數據源1、利用Microsoft Access 制作數據庫，取名為information,然后制作表，表名為infor.下面寫入數據字段。如圖所示：2、建立ODBC數據源（在2000 professional 系統中建

2、立）步驟： 控制面板à管理工具àODBC數據源à系統DSNàAdd.ODBC界面二、系統界面一個好之系統需要一個友好之用戶界面。由于本系統是基于ASP開發之，所以，我們利用網頁制作工具制作友好之用戶界面。部分界面如圖所示：進入界面信息錄入界面信 息 查 詢三、程序實現由于本系統是基于ASP開發之實現在線操作之系統。所以，本系統之完成需要借助HTML，又由于HTML是網頁編程之基礎，所以，在這里就省去HTML代碼，相信大家都是HTML高手。1、信息錄入<%dim strsql,rsset conn=createobject("ADODB.c

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

4、數據庫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").

5、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.for

6、m("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 ("你已經成功注

7、冊之這位學員之信息。請繼續<a href='input.htm'>注冊 </a>") /顯示提示信息rs.close /關閉數據記錄conn.close /關閉連接set rs=nothingset conn=nothing%>2、信息查詢<%dim strsql,conn,rsset conn=server.createobject("ADODB.connection")conn.open ("DSN=information;UID=;PWD=;")set rs=server.createo

8、bject("ADODB.Recordset") strsql="select * from infor where name= '" & request("name") &"'"/利用SQL建立查詢rs.open strsql,conn%><table width="1205" border="1" align="left" bordercolor="#6600CC"><tr&g

9、t; /本行寫上要顯示之字段之相應之中文名<td width="69"><p align="center"><font size="2">姓名</font></p></td><td width="46"><p align="center"><font size="2">性別</font></p></td><td width=&q

10、uot;122"><p align="center"><font size="2">出生年</font></p></td><td width="46"><p align="center"><font size="2">學歷</font></p></td><td width="91"><p align="

11、center"><font size="2">政治面貌</font></p></td><td width="91"><p align="center"><font size="2">專業</font></p></td><td width="50"><p align="center"><font size=&quo

12、t;2">班級</font></p></td><td width="69"><p align="center"><font size="2">班主任</font></p></td><td width="122"><p align="center"><font size="2">入學時間</font><

13、/p></td><td width="146"><p align="center"><font size="2">聯系電話</font></p></td><td width="337"><p align="center"><font size="2">聯系地址</font></p></td></tr>&l

14、t;% while Not rs.eof %> /循環語句控制符合條件之記錄輸出<tr> /本行根據循環條件可以重復輸出<td><p align="center"><font size="2"><%=rs("name")%></font></p></td>/*輸出數據庫中符合條件之name字段之值*/<td><p align="center"><font size="2&qu

15、ot;><%=rs("sex")%></font></p></td><td><p align="center"><font size="2"><%=rs("birth")%></font></p></td><td><p align="center"><font size="2"><%=rs(&quo

16、t;xl")%></font></p></td><td><p align="center"><font size="2"><%=rs("zzmm")%></font></p></td><td><p align="center"><font size="2"><%=rs("career")%>&l

17、t;/font></p></td><td><p align="center"><font size="2"><%=rs("class")%></font></p></td><td><p align="center"><font size="2"><%=rs("teach")%></font></p&

18、gt;</td><td><p align="center"><font size="2"><%=rs("date")%></font></p></td><td><p align="center"><font size="2"><%=rs("tel")%></font></p></td><td&

19、gt;<p align="center"><font size="2"><%=rs("add")%></font></p></td> </tr><% rs.movenextWendrs.closeconn.close%></table>3、信息修改<% set conn=server.createobject("adodb.connection")conn.open "DSN=informat

20、ion;UID=;PWD=;"set rs=server.CreateObject("adodb.recordset")username=request("name") / 取得name表單之值賦給usernamestrsql="select * from infor where name='"&username&"'" /建立SQL查詢rs.open strsql,conn,3,3%><form action="zhuce.asp" met

21、hod="post"> / 以POST方式將修改之記錄通過zhuce.asp頁面之程序保存到數據庫當中<table width="75%" border="1" align="center" bordercolor="#663399"><tr> <td width="18%"><p align="right"><font size="2">姓 名：</font>

22、;</p></td><td width="36%"><font size="2"> <input name="name" type="text" id="name" value="<%=rs.fields("name")%>"></font></td> /顯示符合查詢條件之數據庫當中name字段之值，供修改<td width="15%"

23、><p align="right"><font size="2">入學時間：</font></p></td><td width="31%"><input name="time" type="text" id="time" value="<%=rs.fields("date")%>"></td></tr><t

24、r> <td height="20"><p align="right"><font size="2">性 別：</font></p></td><td><p><label><input name="sex" type="radio" value="<%=rs.fields("sex")%>" checked>男</l

25、abel><label><input type="radio" name="sex" value="<%=rs.fields("sex")%>">女</label><br></p></td><td><p align="right"><font size="2">專業：</font></p></td><td>

26、;<input name="career" type="text" id="career" value="<%=rs.fields("career")%>"></td></tr><tr> <td><p align="right"><font size="2">出生年月：</font></p></td><td><

27、;font size="2"> <input name="birthday" type="text" id="birthday" value="<%=rs.fields("birth")%>"></font></td><td><p align="right"><font size="2">班級：</font></p><

28、/td><td><input name="class" type="text" id="class" value="<%=rs.fields("class")%>"></td></tr><tr> <td><p align="right"><font size="2">政治面貌：</font></p></td>

29、<td><select name="zz" id="zz"><option value="團員">團員</option><option value="黨員">黨員</option><option value="其他">其他</option></select></td><td><p align="right"><font size

30、="2">班主任：</font></p></td><td><input name="teach" type="text" id="teach" value="<%=rs.fields("teach")%>"></td></tr><tr> <td><p align="right"><font size="2

31、">學歷：</font></p></td><td><font size="2"> <select name="xl" id="xl"><option value="初中">初中</option><option value="高中">高中</option><option value="大專">大專</option><

32、;option value="本科">本科</option><option value="研究生">研究生</option><option value="其他">其他</option></select></font></td><td><p align="right"><font size="2">教室：</font></p></t

33、d><td><input name="room" type="text" id="room"></td></tr><tr> <td><p align="right"><font size="2">原畢業學校：</font></p></td><td><font size="2"><input name="

34、;school" type="text" id="school" value="<%=rs.fields("school")%>"></font></td><td colspan="2" rowspan="5"><p align="left"><p><font color="#FF0000" size="2">請數據錄

35、入人員認真錄入學員信息，以便以</font></p><p><font color="#FF0000" size="2">后查詢！</font></p></p></td></tr><tr> <td><p align="right"><font size="2">聯系地址：</font></p></td><td><

36、;font size="2"><input name="add" type="text" id="add" value="<%=rs.fields("add")%>"></font></td></tr><tr> <td><p align="right"><font size="2">聯系電話：</font></p></td><td><font size="2"><input name="te