ASP在線教育系統(一)

目   錄
前言 3
第一章 編程環(huán)境基礎知識 4
1.1 ASP技術簡介 4
1.2 ACCESS2003 技術簡介 4
第二章 需求分析 1
2.1   目標設計 1
2.2   系統功能分析與設計 2
2.3   性能需求 2
第三章 系統設計 4
3.1  資料顯示模塊 4
3.1.1 資料信息顯示頁 5
3.1.2 資料詳細信息頁 9
3.1.3 資料信息下載頁 11
3.1.4 提交回復作業(yè)頁 12
3.1.5 提交回復作業(yè)成功頁 13
3.1.6 教師基本信息頁 16
3.1.7 資料信息搜索頁 20
3.1.8 資料信息搜索結果頁 21
3.2  資料管理模塊 22
3.2.1 管理員登陸頁 24
3.2.2 驗證管理員帳號頁 24
3.2.3 管理員登陸成功頁 26
3.2.4 增加資料欄目頁 27
3.2.5 增加欄目成功頁 28
3.2.6 修改欄目信息頁 30
3.2.7 保存修改的欄目信息頁 32
3.2.8 刪除欄目信息頁 34
3.2.9 刪除欄目信息成功頁 34
3.2.10 發(fā)布資料信息頁 36
3.2.11 資料信息發(fā)布成功頁 38
3.2.12 資料信息列表頁 39
3.2.13 資料信息修改頁 39
3.2.14 保存修改的資料信息頁 42
3.2.15 刪除資料信息頁 46
3.2.16 刪除資料信息成功頁 47
3.3  教師管理 50
3.3.1 搜索教師頁 51
3.3.2 教師搜索結果頁 52
3.3.3 添加教師信息頁 53
3.3.4 添加教師成功頁 54
3.3.5 修改教師信息頁 55
3.3.6 修改教師信息成功頁 57
3.3.7 刪除教師信息頁 58
3.3.8 刪除教師信息成功頁 58
第四章 數據庫結構設計 60
4.1 數據庫需求分析 60
4.2 數據庫邏輯設計 60
4.3 數據庫連接說明 61
第五章 測試和維護 62
5.1 網站維護 62
5.2 網站測試 62
參考文獻 63
致謝 64

前言
 與傳統教育相比,遠程教育是一種全新的教育模式,它可以突破時間和空間的限制,幫助人們隨時隨地地學習,讓更多的學習者共享優(yōu)秀教育資源。遠程教育既具有開放性、交互性、協作性和自主性等特點，又具有異步性、實時性、生動性、集成性和大容量等優(yōu)勢。因此，在遠程教育系統的建設中，單純地構建各種功能單一的系統并不能完全滿足遠程教育建設的需求，只有那些對數據和信息進行了有效組織、整合了多種業(yè)務、為用戶提供個性化服務的系統才能充分發(fā)揮遠程教育的作用。
 使用在線教育系統可以為用戶提供在線教案學習、在線提交作業(yè)和查詢教師等服務。
第一章 編程環(huán)境基礎知識
1.1 ASP技術簡介
 Microsoft Active Server Pages 即我們所稱的ASP,其實是一套微軟開發(fā)的服務器端腳本環(huán)境.Active Server Page 是創(chuàng)建動態(tài)網頁的一個很好的工具,它起一種編程語言的作用,可以利用它編寫動態(tài)產生HTML的程序代碼.因此,只要用戶瀏覽Web站點并請求一個ASP頁,Web服務器就可以處理相應的ASP代碼,生成HTML代碼,然后將它傳遞到用戶瀏覽器并顯示出網頁.
 ASP程序的優(yōu)點:
 1,ASP使用VBScript腳本語言直接源于VB語言,秉承了VB簡單易學的特點,掌管起來非常容易.
 2,無須編譯,容易編寫,可在服務器端直接執(zhí)行.
 3,利用ADO組件輕松存取數據庫.
 4,與瀏覽器無關,客戶端只要使用可執(zhí)行HTML碼的瀏覽器,即可瀏覽ASP所設計的網頁內容.
 5,ASP能與任何ActiveX scripting語言相容.除了可使用VBScript或java script語言來設計外,還通過plug-in的方式,使用由第三方所提供的其他腳本語言.
 6,ASP技術的處理速度相當快,并且其安全性也很高,ASP的源程序,不會被傳到客戶瀏覽器,因而可以避免所寫的源程序被他人剽竊,也提高了程序的安全性.
 7,ASP的對象和組件:ASP有7個固有對象這7個固有對象分別是Request,Response,Server,Application,Session,ASPError和ObjectContext.
1.2 ACCESS2003 技術簡介
 Access2003 就是關系數據庫開發(fā)工具,數據庫能匯集各種信息以供查詢,存儲和檢索.那么什么叫數據庫呢 數據庫(Database)是由一些有意義和有關系的數據(data)所組合而成.一個數據庫中,包含了許多條記錄(Record),而每條記錄是由多個字段(Field)所組成,不同的字段存放這不同的數據.所以數據庫的嚴格定義是一組相關記錄的集合,而字段則是最基本的數據項,也是數據庫中最小的單位.在計算機中用來幫我們管理數據庫的系統,我們稱之為數據庫管理管理系統(Database Management System DBMS).數據庫管理系統是架構在一個或多個數據庫之上,并針對數據庫中的數據進行管理運用.
 Access 的優(yōu)點在于它能使用數據表示圖或自定義窗體收集信息,數據表示圖提供了一種類似于 Excel 的電子表格,可以使數據庫一目了然.另外,Access 允許創(chuàng)建自定義報表用于打印或輸出數據庫中的信息.Access也提供了數據存儲庫,可以使用桌面數據庫文件把數據庫文件置于網絡文件服務器,與其他網絡用戶共享數據庫.如上所述,Access 作為關系數據庫開發(fā)具備了許多優(yōu)點,可以在一個數據包中同時擁有桌面數據庫的便利和關系數據庫的強大功能.
 
第二章 需求分析
 一個典型的在線教育系統至少應包含資料顯示、資料管理和教師管理3種功
 
能。本站的系統結構如圖2—1所示。
 
 2-1系統結構
 
2.1   目標設計
     在線教育系統所要實現的功能如下。
     ●  資料顯示模塊
         ■  顯示資料
         ■  顯示教師介紹
         ■  瀏覽查閱資料
         ■  回復提交資料
 ●  資料管理模塊
         ■  資料欄目管理
         ■  發(fā)布資料
         ■  管理資料
     ●  教師管理模塊
         ■  添加教師信息
         ■  編輯教師信息
         ■  刪除教師信息
2.2   系統功能分析與設計
   在線教育系統共分為3個模塊:資料顯示模塊、資料管理模塊和教師管理模塊，其功能模塊劃分如圖所示。
 
 
2.3   性能需求
   開發(fā)環(huán)境
WindowsXP操作系統
80G的硬盤空間
AMD2500+處理器
17 # 純平監(jiān)視器
512內存
 適用環(huán)境
 1.Windows98/Me/2000/XP操作系統
 2.1G以上的硬盤空間
 3.Inter 賽揚1.0G以上處理器
 4.15 # 普通監(jiān)視器以上
 5.32M以上內存
第三章 系統設計
3.1  資料顯示模塊
 資料顯示模塊包含以下子模塊。
 ●  資料顯示
 ●  資料搜索
 資料顯示子模塊包含以下頁面。
 ●  index.asp
 ●  detail.asp
 ●  download.asp
 ●  teacherinfo.asp
 資料搜索子模塊包含以下頁面。
 ●  search.asp
 ●  list.asp
 各頁面間的關系如圖3-1所示。
      
 
 3-1各頁面間的關系
  
   3.1.1 資料信息顯示頁
 1. index.asp頁面示例
 圖3-2為顯示資料信息所看到的頁面。
 
 
 
 圖 3-2  顯示資料信息
 2. 頁面中需要用戶填寫的HTML表單元素。
 此頁無需填寫HTML表單元素。
 3. 頁面所涉及的數據庫表信息。
此頁面用來顯示資料信息,使用了系統中的資料信息表main和教師信息表teacher。
 4. 頁面代碼分析
   ‘引用創(chuàng)建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 ‘引用網站設置文件 
 <!--#include file="fenlei.asp"-->
 <%’取得網站設置信息
 sql = "select * from config"
 set rs = server.createobject("adodb.recordset")
 rs.open sql,conn,1,3
 schoolname = rs("schoolname")
 gonggao = rs("gonggao")
 todaytimes = rs("todaytimes")
 times = rs("times")
 ‘今日訪問統計
 if rs("todaydate") <> date() then
 rs("todaydate") = date()
 rs.update
 todaytimes = 0
 end if
 ‘總訪問統計
 if request.cookies("counted") <> "yes" then
 response.cookies("counted") = "yes"
 ‘設置cookies失效時間
 response.cookies("counted").expires = now() + 1/72
 ‘統計數加1
 times = times + 1
 todaytimes = todaytimes + 1
 rs("times") = times
 rs("todaytimes") = todaytimes
 rs.update
 end if
 ‘關閉記錄集對象
 rs.close
 dim num1
 dim rndnum
 Randomize
 %>
 ‘Html頁面顯示部分
 ……
 <%’取最近更新的10條資料記錄
 sql = "select * from main,teacher where main.idofteacher=teacher.teacherid order by main.times desc"
 rs.open sql,conn,1,1
 ‘顯示最近更新的10條資料記錄
 for i = 1 to 10
 if rs.eof then
 response.write "<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td></tr>"
 else
 if len(rs("title")) > 10 then
 filetitle = left(rs("title"),10)&"..."
 else
 filetitle = rs("title")
 end if
 %>
 <tr><td align=left>&nbsp;<img src=images/arrow.gif>
 <a href=# title="<%=rs("title")%>" onclick=java script:showdetail(<%=rs("mainid")%>);><%=filetitle%></a>
 </td><td align=center><a href=teacherinfo.asp?id=<%=rs("teacherid")%> title="查看<%=rs("teacher")%>的個人專集"><%=rs("teacher")%></a></td>
 <td align=center><%=rs("times")%></td>
 <td align=left>&nbsp;&nbsp;<%=rs("fenlei2")%></td></tr>
 <%‘取下一條資料記錄
 rs.movenext
 end if
 next
 ‘關閉記錄集對象
 rs.close
 %>
3.1.2 資料詳細信息頁
  1. etail.asp頁面示例
  圖3-3為顯示資料詳細信息的頁面。

圖3-3  資料詳細信息
  2. 頁面中需要用戶填寫的Html表單元素。
  此頁無需填寫Html表單元素。
  3. 面所涉及的數據庫表信息。
  此頁使用了系統中的資料信息表main和教師信息表teacher。
  4. 頁面代碼分析
  ‘引用創(chuàng)建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 ‘引用網站設置文件
 <!--#include file="fenlei.asp"-->
 <%’取得要顯示資料信息的id號
 id = request("id")
 if id = "" then
  conn.close
  set conn = nothing
  response.write "<script>alert('沒有找到您要查看的記錄');window.close();</script>"
  response.end
 end if
 ‘打開記錄集對象
 set rs = server.createobject("adodb.recordset")
 sql = "select * from main,teacher,type where main.idofteacher=teacher.teacherid and main.idoftype=type.typeid and main.mainid="&id
 ‘取得資料詳細信息
 rs.open sql,conn,1,1
 ‘如果資料詳細信息不存在則提示錯誤
 if rs.bof and rs.eof then
  rs.close
  set rs = nothing
  conn.close
  set conn = nothing
  response.write "<script>alert('沒有找到您要查看的記錄');window.close();</script>"
  response.end
 else
 %>
 ‘Html頁面顯示部分,顯示資料的詳細信息
 ……
 <%’關閉記錄集對象
 rs.close
 set rs = nothing
 ‘關閉數據庫連接對象
 conn.close
 set conn = nothing
 end if
3.1.3 資料信息下載頁
  1. download.asp頁面示例
  圖3-4 為閱讀資料信息所看到的頁面。

圖3-4  閱讀資料信息
  2. 頁面中需要用戶填寫的Html表單元素
  此頁無需填寫Html表單元素。
  3. 頁面所涉及的數據庫表信息
  此頁使用了系統中的資料信息表main。
  4. 頁面代碼分析
 <%’取得要顯示資料信息的id號
 id = trim(request("id"))
 if id = "" then
  conn.close
  set conn = nothing
  response.write "<script>alert('沒有找到您要閱讀的資料');window.close();</script>"
  response.end
 end if
 sql = "select * from main where mainid="&id
 set rs = server.createobject("adodb.recordset")
 ‘取得資料詳細信息
 rs.open sql,conn,1,3
 ‘如果資料詳細信息不存在則提示錯誤
 if rs.bof and rs.eof then
  rs.close
  set rs = nothing
  conn.close
  set conn = nothing
  response.write "<script>alert('沒有找到您要閱讀的資料');window.close();</script>"
  response.end
 ‘如果資料詳細信息存在
 Else
 ‘該資料閱讀數加1
  rs("times") = rs("times") + 1
  rs.update
 ‘頁面下載或者打開資料信息
  response.redirect rs("fileurl")
 ‘關閉記錄集對象
  rs.close
  set rs = nothing
 ‘關閉數據庫連接對象
  conn.close
  set conn = nothing
 end if
 %>
3.1.4 提交回復作業(yè)頁
  1. redetail.asp頁面示例
  圖3-5為提交回復作業(yè)信息所看到的頁面。

圖3-5  提交回復作業(yè)信息
  2. 頁面中需要用戶填寫的Html表單元素
  此頁中有3個表單元素,如表1所示。
  表1                 redetail.asp頁的表單元素
 名稱  表單元素類型  含義 最大長度
Name Text 學生姓名 20
Title Text 作業(yè)標題 20
Message Textarea 作業(yè)答案 100
  3. 頁面所涉及的數據庫表信息
  此頁面用來顯示提交回復作業(yè)信息,并沒有涉及到數據庫表的操作。
  4. 頁面代碼分析
 ‘Html頁面表單提交到redetailok.asp提交作業(yè)答案
 <form action="redetailok.asp" method="post" >
 ‘Html頁面顯示部分
 ……
 </form>
3.1.5 提交回復作業(yè)成功頁
  1. 頁面中需要用戶填寫的Html表單元素
  此頁無需填寫Html表單元素。
  2. 頁面所涉及的數據庫表信息
  此頁使用了系統中的回復作業(yè)信息記錄表work。
  3. 頁面代碼分析
 ‘引用創(chuàng)建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 <%’學生姓名必須要輸入
 name = trim(request("name"))
 if name = "" then
  response.write "<script>alert('請輸入學生姓名');history.go(-1);</script>"
  conn.close
  set conn = nothing
  response.end
 end if
 if len(name) > 5 then
  response.write "<script>alert('學生姓名不得超過5個漢字');history.go(-1);</script>"
  conn.close
  set conn = nothing
  response.end
 end if
 ‘作業(yè)標題必須要輸入
 title = trim(request("title"))
 if title = "" then
  response.write "<script>alert('請輸入作業(yè)標題');history.go(-1);</script>"
  conn.close
  set conn = nothing
  response.end
 end if
 ‘作業(yè)答案必須要輸入
 message = trim(request("message"))
 if message = "" then
  response.write "<script>alert('請輸入作業(yè)答案');history.go(-1);</script>"
  conn.close
  set conn = nothing
  response.end
 end if
 ‘作業(yè)的id號必須存在
 reid = trim(request("reid"))
 if reid = "" then
  response.write "<script>alert('非法操作');history.go(-1);</script>"
  conn.close
  set conn = nothing
  response.end
 end if
 
 sql = "select * from work where name='"&name&"' and reid="&reid
 set rs = server.createobject("adodb.recordset")
 ‘查找作業(yè)表中是否存在學生姓名和回復作業(yè)的id號相同的記錄存在
 rs.open sql,conn,1,3
 ‘如果存在則說明學生已經提交過作業(yè)不能再提交了
 if not (rs.bof and rs.eof) then
  rs.close
  set rs = nothing
  conn.close
  set conn = nothing
  response.write "<script>alert('你已經提交過作業(yè)了');history.go(-1);</script>"
  response.end
 else
 ‘如果不存在則添加作業(yè)答案記錄
  rs.addnew
  rs("reid")=reid
  rs("name")=name
   rs("title")=title
    rs("message")=message
 ‘添加作業(yè)答案記錄成功
  rs.update
 ‘關閉記錄集對象
  rs.close
  set rs = nothing
 ‘關閉數據庫連接對象
  conn.close
  set conn = nothing
 end if
 response.write "<script>alert('添加成功');window.location.href='index.asp';</script>"
 %>
3.1.6 教師基本信息頁
  1. teacherinfo.asp頁面示例
  圖3-6為顯示教師基本信息所看到的頁面。

圖3-6  顯示教師基本信息
  2. 頁面中需要用戶填寫的Html表單元素
  此頁無需填寫Html表單元素。
  3. 頁面所涉及的數據庫表信息
  此頁面用來顯示教師基本信息,此頁使用了系統中的資料信息表main和教師信息表teacher。
  4. 頁面代碼分析
 <%’取得要顯示教師信息的id號
 id = trim(request("id"))
 if id = "" then
  conn.close
  set conn = nothing
  response.write "<script>alert('請不要搗亂');top.window.location.href='index.asp';</script>"
  response.end
 end if
 ‘判斷用戶是否是管理員
 if session("admin") = "admin" then
  isadmin = true
 else
  isadmin = false
 end if
 ‘判斷用戶是否是教師
 if session("teacherid") <> "" then
  isteacher = true
 else
  isteacher = false
 end if
 ‘取得教師詳細信息
 sql = "select * from teacher where teacherid="&id
 set rs = server.createobject("adodb.recordset")
 rs.open sql,conn,1,1
 %>
 ‘Html頁面顯示部分,顯示教師信息
 ……
 <%’關閉記錄集對象
 rs.close
 end if
 ‘取得欄目信息
 sql = "select * from type"
 rs.open sql,conn,1,1
 set rs1 = server.createobject("adodb.recordset")
 ‘所有欄目信息
 do while not rs.eof
  sql1 = "select count(mainid) from main where idofteacher="&id&" and idoftype="&rs("typeid")
 ‘取得教師在該欄目發(fā)表的資料總數
  rs1.open sql1,conn,1,1
  counter = rs1(0)
  rs1.close
 ‘發(fā)表的資料總數如果是3的倍數
  if counter mod 3 = 0 then
 ‘定義顯示資料記錄的框架的高度
   iframeheight = 20*(int(counter/3)+1)
  else
   iframeheight = 20*(int(counter/3)+2)
  end if
 ‘框架的高度最大值為220
  if iframeheight > 220 then iframeheight = 220
 %>
 <tr><td align="center" class="header" colspan=3>已在本站發(fā)布的<%=rs("type")%>（共<%=counter%>件）</td></tr>
 <tr><td align="center" colspan=3>
 ‘顯示資料記錄的框架頁
 <iframe name="titleof<%=rs("typeid")%>" frameborder=0 width=100% height=<%=iframeheight%> scrolling=no src=titlelist.asp?type=<%=rs("typeid")%>&id=<%=id%>></iframe>
 </td></tr>
 <%’取下一個欄目
  rs.movenext
 loop
 ‘關閉記錄集對象
 set rs1 = nothing
 ‘關閉記錄集對象
 rs.close
 set rs = nothing
 %>
 </table>
 <%’如果用戶既不是管理員也不是教師
 if not isadmin and not isteacher then
 %>
 <!--#include file="foot.asp"-->
 <%
 end if
 %>
 </body>
 </html>
 <%’關閉數據庫連接對象
 conn.close
 set conn = nothing
 %>
3.1.7 資料信息搜索頁
  1. search.asp頁面示例
  圖3-7為搜索資料信息所看到的頁面。

圖3-7搜索資料信息
  2. 頁面中需要用戶填寫的Html表單元素
  此頁共有5個表單元素,如表2所示。
  表2                    search.asp頁的表單元素
名稱  表單元素類型 含義 最大長度
fenlei1 Text 所屬學院 20
feilei2 Text 所屬系 20
Teacher Text 教師姓名 10
Course Text 相關資料 20
Titli Text 資料標題 20
  3. 頁面所涉及的數據庫表信息
  此頁面用來顯示搜索資料信息,此頁使用了系統中的資料欄目信息表type。
  4. 頁面代碼分析
 ‘Html頁面表單提交到list.asp
 <form action="list.asp" method="post">
 ‘Html頁面顯示部分,顯示要填寫的搜索條件
 ……
 </form>
3.1.8 資料信息搜索結果頁
  1. list.asp頁面示例
  圖3-8為顯示資料信息列表所看到的頁面。
  
3-8  顯示資料信息列表
  2. 頁面中需要用戶填寫的Html表單元素
  此頁無需填寫Html表單元素。
  3. 頁面所涉及的數據庫表信息
  此頁面用來顯示資料信息列表，使用了系統中的資料信息表main和教師信息表teacher。
3.2  資料管理模塊
  資料管理模塊包含以下子模塊。
  ●  管理員登陸
  ●  資料欄目管理
  ●  資料信息管理
  管理員登陸子模塊包含以下頁面。
  ●  adminlogin.asp
  ●  asmincheck.asp
  ●  adminmain.asp
  資料欄目管理子模塊包含以下頁面。
  ●  addtype.asp
  ●  addtypeok.asp
  ●  edittype.asp
  ●  edittypeok.asp
  ●  deltype.asp
  ●  deltypeok.asp
  資料信息管理子模塊包含以下頁面。
  ●  put.asp
  ●  pubok.asp
  ●  list.asp
  ●  edit.asp
  ●  editok.asp
  ●  admindelcourseware.asp
  ●  admindelcoursewareok.asp
  各頁面間的關系如圖3-9所示。
 
3-9  各頁面間的關系
3.2.1 管理員登陸頁
  1. adminlogin.asp頁面示例
  圖3-10為管理員登陸所看到的頁面。管理員密碼為admin。

圖3-10  管理員登陸
 2. 頁面中需要用戶填寫的Html表單元素
 此頁共有兩個表單元素,如表3所示。
 表3                    adminlogin.asp頁的表單元素
 名稱  表單元素類型  含義 最大長度
Adminpwd Password 管理員密碼 15
  3. 頁面所涉及的數據庫表信息
  此頁并沒有涉及到數據庫表的操作。
  4. 頁面代碼分析
 ‘Html頁面表單提交到adminlogin.asp
 <form action="admincheck.asp" method="post">
 ‘Html頁面顯示部分,顯示要填寫的登陸信息
 ……
 </form>
3.2.2 驗證管理員帳號頁
 1. 頁面中需要用戶填寫的Html表單元素
 此頁無需填寫Html表單元素。
 2. 頁面所涉及的數據庫表信息
 此頁面用來驗證管理員信息,使用了系統中的管理員表config。
 3. 頁面代碼分析
 ‘引用創(chuàng)建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 <%’取得提交過來的信息
 adminpwd = request("adminpwd")
 ‘如果輸入的密碼為空
 if adminpwd = "" then
  conn.close
  set conn = nothing
  response.write "<script>alert('請輸入密碼');history.go(-1);</script>"
  response.end
 end if
 sql = "select * from config"
 set rs = server.createobject("adodb.recordset")
 rs.open sql,conn,1,1
 ‘如果輸入的密碼與數據庫中密碼一致說明密碼正確,登陸成功
 if adminpwd = rs("adminpwd") then
 ‘登陸成功后 session("admin")起用
 session("admin")=”admin”
  rs.close
  set rs = nothing
  conn.close
  set conn = nothing
 ‘登陸成功后就跳轉到管理頁面
  response.redirect "adminmain.asp"
 ‘如果輸入的密碼與數據庫中密碼不一致說明密碼輸入錯誤
 else
  rs.close
  set rs = nothing
  conn.close
  set conn = nothing
 response.write "<script>alert('密碼錯誤');window.location.href='adminlogin.asp';</script>"
3.2.3 管理員登陸成功頁
  1.adminmain.asp頁面示例
  圖3-11為管理員登陸成功后所看到的頁面。

圖3-11  管理員登陸成功
  2. 頁面中需要用戶填寫的Html表單元素
  此頁無需填寫Html表單元素。
  3. 頁面所涉及的數據庫表信息
  此頁使用了系統中的管理員表config。
  4. 頁面代碼分析
 ‘引用創(chuàng)建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 ‘引用判斷是否是管理員登陸文件
 <!--#include file="isadmin.asp"-->
 ‘Html頁面顯示部分
 ……
 <frameset rows="*" cols="100,*,0" framespacing="0" frameborder="NO" border="0">
   <frame src="adminleft.asp" name="left" scrolling="NO" noresize>
   <frame src="adminindex.asp" name="main" noresize>
3.2.4 增加資料欄目頁
  1. addtype.asp頁面示例
  圖3-12為增加欄目信息所看到的頁面。

  2. 頁面中需要用戶填寫的Html表單元素
  此頁僅有1個表單元素,如表4所示。
  表4                   addtype.asp頁的表單元素
名稱  表單元素類型  含義 最大長度
Addtype  Text 欄目名稱 10
  3. 頁面所涉及的數據庫表信息
  此頁面用來增加欄目信息,使用了系統中的欄目信息記錄表type。
  4. 頁面代碼分析
 <%’取得欄目信息
 sql = "select * from type"
 set rs = server.createobject("adodb.recordset")
 ‘打開記錄集對象
 rs.open sql,conn,1,1
 ‘顯示欄目信息
 do while not rs.eof
  response.write "<tr align='center'><td width=180>"&rs("type")&"</td>"
  response.write "<td><a href=edittype.asp?id="&rs("typeid")&">編輯</a>/<a href=deltype.asp?id="&rs("typeid")&">刪除</a></td></tr>"
 ‘取下一條欄目信息
  rs.movenext
 loop
 ‘關閉記錄集對象
 rs.close
 set rs = nothing
 ‘關閉數據庫連接對象
 conn.close
 set conn = nothing
 %>
 ‘Html頁面表單提交到addtype.doc
 <form action="addtypeok.asp" method="post">
 請輸入要添加的欄目名稱:<input type=text name="addtype" size=10><input type=submit name="submit" value="添加">
 <br>（欄目名稱可以如“論文”、“實驗素材”等）
 </form>
3.2.5 增加欄目成功頁
  1. 頁面中需要用戶填寫的Html表單元素
  此頁無需填寫Html表單元素。
  2. 頁面所涉及的數據庫表信息
  此頁使用了系統中的欄目信息記錄表type。
  3. 頁面代碼分析
 ‘引用創(chuàng)建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 ‘引用判斷是否是管理員登陸文件
 <!--#include file="isadmin.asp"-->
 <%’取得輸入的欄目名稱
 addtype = trim(request("addtype"))
 if addtype = "" then
  response.write "<script>alert('請輸入要添加的欄目名');history.go(-1);</script>"
  conn.close
  set conn = nothing
  response.end
 end if
 if len(addtype) > 5 then
  response.write "<script>alert('欄目名不得超過5個漢字');history.go(-1);</script>"
  conn.close
  set conn = nothing
  response.end
 end if
 ‘查找欄目信息表是否有欄目名相同的記錄
 sql = "select * from type where type='"&addtype&"'"
 set rs = server.createobject("adodb.recordset")
 rs.open sql,conn,1,3
 ‘如果有則提示
 if not (rs.bof and rs.eof) then
  rs.close
  set rs = nothing
  conn.close
  set conn = nothing
  response.write "<script>alert('數據庫中已經有一個名為"&addtype&"的欄目了');history.go(-1);</script>"
  response.end
 else
 ‘如果沒有記錄則可以添加了
  rs.addnew
  rs("type")=addtype
  rs.update
 ‘關閉記錄集對象
  rs.close
  set rs = nothing
 ‘關閉數據庫連接對象
  conn.close
  set conn = nothing
 end if
 response.write "<script>alert('添加成功');window.location.href='addtype.asp';</script>"
 %>
3.2.6 修改欄目信息頁
  1. edittype.asp頁面示例
  圖3-13為修改欄目信息所看到的頁面。

圖3-13  修改欄目信息
  2. 頁面中需要用戶填寫的Html表單元素
  此頁僅有1個表單元素,如表5所示。
  表5                   edittype.asp頁的表單元素
 名稱  表單元素類型  含義 最大長度
Addtype  Text 欄目名稱 10
  3. 頁面所涉及的數據庫表信息
  此頁用來修改欄目信息頁面,使用了系統中的欄目信息記錄表type。
  4. 頁面代碼分析
 ‘引用創(chuàng)建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 ‘引用判斷是否是管理員登陸文件
 <!--#include file="isadmin.asp"-->
 <%’取得要修改欄目信息的id號
 id = trim(request("id"))
 sql = "select * from type where typeid="&id
 set rs = server.createobject("adodb.recordset")
 ‘打開欄目信息表查找需要修改的欄目名稱
 rs.open sql,conn,1,1
 filetype = rs("type")
 ‘關閉記錄集對象
 rs.close
 set rs = nothing
 ‘關閉數據庫連接對象
 conn.close
 set conn = nothing
 %>
 ‘Html頁面顯示部分
 ……
 ‘Html頁面表單提交到edittypeok.asp
 <form action="edittypeok.asp" method="post">
 將欄目“<%=filetype%>”更名為：<input type=text name="addtype" size=10 value="<%=filetype%>">
 <input type=hidden name="id" value="<%=id%>">
 <input type=submit name="submit" value="修改">
 <br>（欄目名稱可以如“論文”、“實驗素材”等）
 </form>
3.2.7 保存修改的欄目信息頁
  1. 頁面中需要用戶填寫的Html表單元素
  此頁無需填寫Html表單元素。
  2. 頁面所涉及的數據庫表信息
  此頁使用了系統中的欄目信息記錄表type。
  3. 頁面代碼分析
 ‘引用創(chuàng)建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 ‘引用判斷是否是管理員登陸文件
 <!--#include file="isadmin.asp"-->
 <%’取得要修改的欄目信息的id號
 id = trim(request("id"))
 addtype = trim(request("addtype"))
 ‘如果沒有輸入欄目名稱則提示
 if addtype = "" then
  response.write "<script>alert('請輸入欄目名');history.go(-1);</script>"
  conn.close
  set conn = nothing
  response.end
 end if
 ‘欄目名稱的長度不能大于5
 if len(addtype) > 5 then
  response.write "<script>alert('欄目名不得超過5個漢字');history.go(-1);</script>"
  conn.close
  set conn = nothing
  response.end
 end if
 ‘打開欄目信息表查找需要修改的欄目名稱
 sql = "select * from type where type='"&addtype&"' and typeid<>"&id
 set rs = server.createobject("adodb.recordset")
 rs.open sql,conn,1,1
 ‘如果修改的名稱在數據庫中已經有記錄則不能修改
 if not (rs.bof and rs.eof) then
  rs.close
  set rs = nothing
  conn.close
  set conn = nothing
  response.write "<script>alert('數據庫中已經有一個名為"&addtype&"的欄目了');history.go(-1);</script>"
  response.end
 end if
 rs.close
 set rs = nothing
 ‘如果修改的名稱在數據庫中沒有記錄了則可以修改
 conn.execute "update type set type='"&addtype&"' where typeid="&id
 conn.close
 set conn = nothing
 response.write "<script>alert('修改成功');window.location.href='addtype.asp';</script>"
 %>
3.2.8 刪除欄目信息頁
  1. deltype.asp頁面示例
  圖3-14為刪除欄目信息所看到的頁面。

圖3-14  刪除欄目信息
  2. 頁面中需要用戶填寫的Html表單元素
  此頁無需填寫Html表單元素。
  3. 頁面所涉及的數據庫表信息
  此頁使用了系統中的欄目信息記錄表type。
  4. 頁面代碼分析
 ‘Html頁面表單提交到deltypeok.asp
 <form action="deltypeok.asp" method="post">
 <table style="BORDER-COLLAPSE: collapse" borderColor=#808080 width="250" border="1" align="center" cellpadding=1>
 <tr><td align="center" class="header">將有下列數據被刪除</td></tr>
 <tr><td align="left">
 1.該欄目在數據庫中的記錄<br>
 2.所有屬于該欄目的資料
 </td></tr>
 </table>
 <center><input type=hidden name="id" value="<%=id%>"><br>
 <input type=submit name="submit" value="確定">&nbsp;&nbsp;<input type=button name="cancle" value="取消" onclick="history.go(-1);"></center>
 </form>
3.2.9 刪除欄目信息成功頁
  1. 頁面中需要用戶填寫的Html表單元素
  此頁無需填寫Html表單元素。
  2. 頁面所涉及的數據庫表信息
  此頁使用了系統中的欄目信息記錄表type。
  3. 頁面代碼分析
 ‘引用創(chuàng)建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 ‘引用判斷是否是管理員登陸文件
 <!--#include file="isadmin.asp"-->
 <%’取得要刪除欄目信息的id號
 id = trim(request("id"))
 ‘如果要刪除欄目信息的id號為空說明非法操作
 if id = "" then
  conn.close
  set conn = nothing
  response.write "<script>alert('請不要搗亂');top.window.location.href='adminmain.asp';</script>"
  response.end
 end if
 ‘查找對應id號的欄目信息
 sql = "select * from type where typeid="&id
 set rs = server.createobject("adodb.recordset")
 ‘打開記錄集對象
 rs.open sql,conn,1,1
 ‘對應id號的欄目信息如果不存在則說明該欄目不存在
 if rs.bof and rs.eof then
  rs.close
  set rs = nothing
  conn.close
  set conn = nothing
  response.write "<script>alert('請不要搗亂');top.window.location.href='adminmain.asp';</script>"
  response.end
 end if
 rs.close
 set rs = nothing
 ‘對應id號的欄目信息如果存在則刪除欄目信息
 conn.execute "delete from type where typeid="&id
 ‘刪除資料信息中對應欄目id號的資料信息
 conn.execute "delete from main where idoftype="&id
 ‘關閉數據庫連接對象
 conn.close
 set conn = nothing
 response.write "<script>alert('刪除成功');window.location.href='addtype.asp';</script>"
 %>
3.2.10 發(fā)布資料信息頁
  1.pub.asp頁面示例
  圖3-15為發(fā)布資料信息所看到的頁面。

  2. 頁面中需要用戶填寫的Html表單元素
  此頁共有6個表單元素,如表6所示。
  表6                   pub.asp頁的表單元素
 名稱  表單元素類型  含義 最大長度
Teacher Text 教師姓名 15
Course Text 課程名稱 15
Title Text 資料標題 52
Fileurl Text 資料地址 52
Filesize Text 資料大小 15
content textarea 資料簡介 300
  3. 頁面所涉及的數據庫表信息
  此頁用來發(fā)布資料信息頁面,使用了系統中的欄目信息記錄表type。
  4. 頁面代碼分析
 ‘Html頁面表單提交到pubok.asp
 <form action="pubok.asp" method="post" onSubmit=submitonce(this)>
 ‘Html頁面顯示部分,填寫資料信息
 ……
 <%’取得欄目信息
 sql = "select * from type"
 set rs = server.createobject("adodb.recordset")
 rs.open sql,conn,1,1
 %>
 &nbsp;<select name="type">
 <option value="" selected>請選擇</option>
 <%’顯示欄目信息
 do while not rs.eof
 %>
  <option value="<%=rs("typeid")%>"><%=rs("type")%></option>
 <%’取下一條欄目信息
  rs.movenext
 loop
 response.write "</select>"
 ‘關閉記錄集對象
 rs.close
 set rs = nothing
 %>
3.2.11 資料信息發(fā)布成功頁
  1. 頁面中需要用戶填寫的Html表單元素
  此頁無需填寫Html表單元素。
  2. 頁面所涉及的數據庫表信息
  此頁使用了系統中的資料信息記錄表main。
3.2.12 資料信息列表頁
  圖3-16為資料信息列表頁面。

  2. 頁面中需要用戶填寫的Html表單元素
  此頁無需填寫Html表單元素。
  3. 頁面所涉及的數據庫表信息
  此頁面用來顯示資料信息列表,使用了系統中的資料信息表main和教師信息表teacher。
  4. 頁面代碼分析
  代碼與3.2.8節(jié)的刪除欄目信息頁基本相同。
3.2.13 資料信息修改頁
  1. edit.asp頁面示例
  圖3-17為修改資料信息所看到的頁面。

圖3-17  修改資料信息
  2. 頁面中需要用戶填寫的Html表單元素
  此頁共有5個表單元素,如表7所示。
  表7                   edit.asp頁的表單元素
 名稱  表單元素類型  含義 最大長度
Course  Text 課題名稱 15
Title  Text 資料標題 52
Fileurl  Text 資料地址 52
Filesize  Text 資料大小 15
Content Textarea 資料簡介 300
  3. 頁面所涉及的數據庫表信息
  此頁用來修改資料信息,使用了系統中的資料信息記錄表main。
  4. 頁面代碼分析
 ‘引用創(chuàng)建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 ‘引用判斷是否是教師登陸文件
 <!--#include file="isteacher.asp"-->
 ‘引用網站設置文件
 <!--#include file="fenlei.asp"-->
 <%’取得要修改資料信息的id號
 id = request("id")
 ‘必須輸入要修改資料信息的id號
 if id = "" then
  conn.close
  set conn = nothing
  response.write "<script>alert('請不要搗亂');top.window.location.href='teachermain.asp';</script>"
  response.end
 end if
 ‘取得要顯示的資料信息
 sql = "select * from main,teacher where main.idofteacher=teacher.teacherid and main.mainid="&id
 set rs = server.createobject("adodb.recordset")
 rs.open sql,conn,1,1
 ‘如果信息不存在則不能修改
 if rs.bof and rs.eof then
  rs.close
  set rs = nothing
  conn.close
  set conn = nothing
  response.write "<script>alert('請不要搗亂');top.window.location.href='teachermain.asp';</script>"
  response.end
 else
 ‘如果存在判斷用戶是否有修改資料的權限
  if rs("teacherid") <> int(session("teacherid")) and session("admin") <> "admin" then
   rs.close
   set rs = nothing
   conn.close
   set conn = nothing
   response.write "<script>alert('這個資料不是你發(fā)布的，你想干什么？');top.window.location.href='teachermain.asp';</script>"
   response.end
  end if
 end if
 %>
 ‘Html頁面顯示部分,顯示要修改的資料信息
 ……
3.2.14 保存修改的資料信息頁
  1. 頁面中需要用戶填寫的Html表單元素
  此頁無需填寫Html表單元素。
  2. 頁面所涉及的數據庫表信息
  此頁使用了系統中的資料信息表main和教師信息表teacher。
  3. 頁面代碼分析
 ‘引用創(chuàng)建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 ‘引用判斷是否是教師登陸文件
 <!--#include file="isteacher.asp"-->
 ‘引用網站設置文件
 <!--#include file="fenlei.asp"-->
 <%’取得表單提交的信息
 'on error resume next
 course = server.htmlencode(trim(request("course")))
 fileurl = server.htmlencode(trim(request("fileurl")))
 content = server.htmlencode(trim(request("content")))
 title = server.htmlencode(trim(request("title")))
 typeid = trim(request("type"))
 filesize = int(trim(request("filesize")))
 id = request("id")
 ‘必須輸入修改的資料的id號
 if id = "" then
  conn.close
  set conn = nothing
  response.write "<script>alert('請不要搗亂');top.window.location.href='teachermain.asp';</script>"
  response.end
 end if
 ‘必須輸入資料名稱
 if course = "" then
  conn.close
  set conn = nothing
  response.write "<script>alert('請輸入資料名稱');history.go(-1);</script>"
  response.end
 end if
 if len(course) > 25 then
  conn.close
  set conn = nothing
  response.write "<script>alert('資料名稱不得超過25個漢字');history.go(-1);</script>"
  response.end
 end if
 if fileurl = "" then
  conn.close
  set conn = nothing
  response.write "<script>alert('請輸入資料地址');history.go(-1);</script>"
  response.end
 end if
 if len(fileurl) > 100 then
  conn.close
  set conn = nothing
  response.write "<script>alert('資料地址不得超過100個英文字母');history.go(-1);</script>"
  response.end
 end if
 if title = "" then
  conn.close
  set conn = nothing
  response.write "<script>alert('請輸入資料標題');history.go(-1);</script>"
  response.end
 end if
 if len(title) > 25 then
  conn.close
  set conn = nothing
  response.write "<script>alert('資料標題不得超過25個漢字');history.go(-1);</script>"
  response.end
 end if
 if typeid = "" then
  conn.close
  set conn = nothing
  response.write "<script>alert('請選擇資料類型');history.go(-1);</script>"
  response.end
 end if
 if filesize < 1 then filesize = 0
 if content = "" then
  conn.close
  set conn = nothing
  response.write "<script>alert('請輸入簡介');history.go(-1);</script>"
  response.end
 end if
 ‘取得要修改的資料信息
 sql = "select * from main where mainid="&id
 set rs = server.createobject("adodb.recordset")
 rs.open sql,conn,1,3
 ‘如果要修改的資料信息不存在
 if rs.bof and rs.eof then
  rs.close
  set rs = nothing
  conn.close
  set conn = nothing
  response.write "<script>alert('請不要搗亂');top.window.location.href='teachermain.asp';</script>"
  response.end
 else
 ‘判斷用戶是否有修改資料的權限
  if rs("idofteacher") <> int(session("teacherid")) and session("admin") <> "admin" then
   rs.close
   set rs = nothing
   conn.close
   set conn = nothing
   response.write "<script>alert('這個資料不是你發(fā)布的，你想干什么？');top.window.location.href='teachermain.asp';</script>"
   response.end
  else
 ‘如果有修改權限就修改資料信息
   rs("fileurl")=fileurl
   rs("course")=course
   rs("dateandtime")=now()
   rs("content")=content
   rs("title")=title
   rs("idoftype")=cint(typeid)
   rs("filesize")=filesize
 ‘修改成功
   rs.update
 ‘關閉記錄集對象
   rs.close
   set rs = nothing
 ‘關閉數據庫連接對象
   conn.close
   set conn = nothing
  end if
 end if
 
 response.write "<script>alert('修改成功');window.location.href='edit.asp?id="&id&"';</script>"
3.2.15 刪除資料信息頁
  1. admindelcourseware.asp頁面示例
  圖3-18為刪除資料信息所看到的頁面

圖3-18  個人基本檔案
  2. 頁面中需要用戶填寫的Html表單元素
  此頁無需填寫Html表單元素。
  3. 頁面所涉及的數據庫表信息
  此頁并沒有涉及到數據庫表的操作。
  4. 頁面代碼分析
 ‘Html頁面表單提交到admindelcoursewareok.asp刪除資料信息
 <form action="admindelcoursewareok.asp" method="post">
 <table style="BORDER-COLLAPSE: collapse" borderColor=#808080 width="250" border="1" align="center" cellpadding=1>
 <tr><td align="center" class="header">將有下列數據被刪除</td></tr>
 <tr><td align="left">
 1.該資料在數據庫中的記錄<br>
 2.與該資料相關的已上傳資料
 </td></tr>
 </table>
 <center><input type=hidden name="id" value="<%=id%>"><input type=hidden name="teacherid" value="<%=teacherid%>"><br>
 <input type=submit name="submit" value="確定">&nbsp;&nbsp;<input type=button name="cancle" value="取消" onclick="history.go(-1);"></center>
 </form>
3.2.16 刪除資料信息成功頁
  1. 頁面中需要用戶填寫的Html表單元素
  此頁無需填寫Html表單元素。
  2. 頁面所涉及的數據庫表信息
  此頁使用了系統中的資料信息表main。
  3. 頁面代碼分析
 ‘引用創(chuàng)建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 ‘引用判斷是否是管理員登陸文件
 <!--#include file="isadmin.asp"-->
 <%’取得教師信息的id號
 id = trim(request("id"))
 teacherid = trim(request("teacherid"))
 ‘必須輸入教師id號和資料信息id號
 if id = "" or teacherid = "" then
  conn.close
  set conn = nothing
  response.write "<script>alert('請不要搗亂');top.window.location.href='adminmain.asp';</script>"
  response.end
 end if
 ‘取得資料信息
 sql = "select * from main where mainid="&id
 set rs = server.createobject("adodb.recordset")
 ‘打開記錄集對象
 rs.open sql,conn,1,1
 ‘判斷信息是否存在,如果不存在則不能刪除信息
 if rs.bof and rs.eof then
  rs.close
  set rs = nothing
  conn.close
  set conn = nothing
  response.write "<script>alert('請不要搗亂');top.window.location.href='adminmain.asp';</script>"
  response.end
 else
 ‘如果信息存在則先取到文件地址先刪除
  fileurl = rs("fileurl")
  rs.close
  set rs=nothing
 '如果資料已上傳至本地，則刪除資料
  if left(fileurl,6) = "files/" and mid(fileurl,7,len(teacherid)+2) = teacherid&"at" then
   dim filepaths,objFSO
   on error resume next
   Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
   filepaths=Server.MapPath(""&fileurl&"")
   if objFSO.fileExists(filepaths) then
    objFSO.DeleteFile(filepaths)
   end if
   set objFSO = nothing
  end if
 ‘刪除資料信息
  conn.execute "delete from main where mainid="&id
 ‘關閉記錄集對象
  conn.close
  set conn = nothing
  response.write "<script>alert('刪除成功');window.location.href='list.asp?teacherid="&teacherid&"';</script>"
 end if
 %>
3.3  教師管理
  教師模塊包含以下頁面。
  ●　adminteacher.asp
  ●  adminsearchteacher.asp
  ●  addteacher.asp
  ●  addteacherok.asp
  ●  editteacher.asp
  ●  editteacherok.asp
  ●  delteacher.asp
  ●  delteacherok.asp
  各頁面間的關系如圖3-19所示。

3-19  各頁面間的關系

3.3.1 搜索教師頁
  1. adminteacher.asp頁面示例
  圖3-20為搜索教師信息所看到的頁面。

圖3-20 搜索教師信息
  2. 頁面中需要用戶填寫的Html表單元素
  此頁共有4個表單元素,如表8所示。
  表8                    adminteacher.asp頁的表單元素
 名稱  表單元素類型 含義 最大長度
Fenlei1 text 教師所屬學院 15
Fenlei2 Text 教師所屬系 15
Teacher Text 教師姓名 15
Id Text 教師ID 15
  3. 頁面所涉及的數據庫表信息
  此頁并沒有涉及到數據庫表的操作。
  4. 頁面代碼分析
 ‘Html頁面表單提交到adminsearchteacher.asp搜索教師
 <form action="adminsearchteacher.asp" method="post">
 ‘Html頁面顯示部分,填寫教師搜索信息
 ……
 </form>
3.3.2 教師搜索結果頁
  1. adminsearchteacher.asp頁面示例
  圖3-21為教師信息列表所看到的頁面。

圖3-21  教師信息列表
  2. 頁面中需要用戶填寫的Html表單元素
  此頁無需填寫Html表單元素。
  3. 頁面所涉及的數據庫表信息
  此頁面用來顯示教師信息列表,使用了系統中的教師信息表teacher。

3.3.3 添加教師信息頁
  1. addteacher.asp頁面示例
  圖3-22為添加教師信息所看到的頁面。

3-22  添加教師信息
  2. 頁面中需要用戶填寫的Html表單元素
  此頁用來添加教師信息,頁面中共有13個表單元素,如表9所示。
  表9                    addteacher.asp頁的表單元素
 名稱  表單元素類型  含義 最大長度
Fenlei1 text 教師所屬學院 25
Fenlei2 text 教師所屬系 25
Teacher text 教師姓名 25
Loginname text 登陸名 22
Password text 密碼 25
Password1 text 確認密碼 25
Ask text 密碼找回問題 25
Answer text 密碼找回答案 25
Email text 電子郵件 25
Homepage text 個人主頁 25
Qq text QQ號碼 25
Address text 通訊地址 25
intro textarea 個人簡介 150

 3. 頁面所涉及的數據庫表信息
  此頁并沒有涉及到數據庫表的操作。
  4. 頁面代碼分析
 ‘Html頁面表單提交到addteacherok.asp增加教師信息
 <form action="addteacherok.asp" method="post" onSubmit=submitonce(this)>
 ‘Html頁面顯示部分,填寫教師信息
 ……
 </form>
3.3.4 添加教師成功頁
  1. 頁面中需要用戶填寫的Html表單元素
  此頁無需填寫Html表單元素。
  2. 頁面所涉及的數據庫表信息
  此頁使用了系統中的教師信息表teacher。
  
3.3.5 修改教師信息頁
  1. editteacher.asp頁面示例
  圖3-23為修改教師信息所看到的頁面。

圖3-23  修改教師信息
  2. 頁面中需要用戶填寫的Html表單元素
  此頁用來修改教師信息,頁面中共有14個表單元素,如表10所示。
  表10                editteacher.asp頁的表單元素

名稱 表單元素類型 含義 最大長度
Fenlei1 Text 教師所屬學院 25
Fenlei2 Text 教師所屬系 25
Teacher Text 教師姓名 25
Loginname Text 登陸名 22
Password Text 密碼 25
Password1 Text 確認密碼 25
Ask Text 密碼找回問題 25
Answer Text 密碼找回答案 25
Email Text 電子郵件 25
Homepage Text 個人主頁 25
Qq Text QQ號碼 25
Address Text 通訊地址 25
Photourl Text 照片地址 25
intro Textarea 個人簡介 150
 3. 頁面所涉及的數據庫表信息
  此頁使用了系統中的教師信息表teacher。
  4. 頁面代碼分析
 ‘引用創(chuàng)建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 ‘引用網站設置文件
 <!--#include file="fenlei.asp"-->
 ‘引用判斷是否是管理員登陸文件
 <!--#include file="isadmin.asp"-->
 <%’取得要刪除教師信息的id號
 id = request("id")
 if id = "" then
  conn.close
  set conn = nothing
  response.write "<script>alert('請不要搗亂!!!');top.window.location.href='adminmain.asp';</script>"
 end if
 ‘取得對應教師id號的教師信息
 sql = "select * from teacher where teacherid="&id
 set rs = server.createobject("adodb.recordset")
 ‘打開記錄集對象
 rs.open sql,conn,1,1
 %>
 ‘Html頁面顯示部分,顯示資料的修改信息
 ……
 <%’顯示教師是否允許登陸
 if rs("locked") = 1 then
  response.write "<input type=radio name=locked value='0'>允許登陸"
  response.write "<input type=radio name=locked value='1' checked>禁止登陸"
 else
  response.write "<input type=radio name=locked value='0' checked>允許登陸"
  response.write "<input type=radio name=locked value='1'>禁止登陸"
 end if
 ‘關閉記錄集對象
 rs.close
 set rs = nothing
 ‘關閉數據庫連接對象
 conn.close
 set conn = nothing
 %>
3.3.6 修改教師信息成功頁
  1. 頁面中需要用戶填寫的Html表單元素
  此頁無需填寫Html表單元素。
  2. 頁面所涉及的數據庫表信息
  此頁使用了系統中的教師信息表teacher。
3.3.7 刪除教師信息頁
  1. delteacher.asp頁面示例
  圖3-24為刪除教師信息所看到的頁面。

  2. 頁面中需要用戶填寫的Html表單元素
  此頁無需填寫Html表單元素。
  3. 頁面所涉及的數據庫表信息
  此頁并沒有涉及到數據庫表的操作。
  4. 頁面代碼分析
 ‘Html頁面表單提交到delteacherok.asp刪除教師信息
 <form action="delteacherok.asp" method="post">
 ‘Html頁面顯示部分
3.3.8 刪除教師信息成功頁
  2. 頁面中需要用戶填寫的Html表單元素
  此頁無需填寫Html表單元素。
  3. 頁面所涉及的數據庫表信息
  此頁使用了系統中的教師信息表teacher。
第四章 數據庫結構設計
 根據系統功能設計要求和模塊劃分,本站的數據庫主要存儲資料信息、教師信息、回復信息和欄目信息。
 
4.1 數據庫需求分析
  數據項和數據結構如下。
資料信息表: MainID(自動編號)、標題、簡介、文件大小、文件類型、更新日期、相關課程、教師姓名、文件地址和下載次數等。
教師信息: teacherid(自動編號)、教師姓名、所屬學院、所屬系、E-mail地址、個人主頁、QQ號碼和通訊地址。
回復作業(yè)表:ID(自動編號)、學生姓名、作業(yè)標題、作業(yè)內容、作業(yè)的id號和回復日期。
欄目信息表:typeID(自動編號)、欄目名稱。

4.2 數據庫邏輯設計
  1. 資料信息表main,如圖4-1所示。

圖4-1  資料信息表
  2. 教師信息表teacher,如圖4-2所示。

  3. 回復作業(yè)表work,如圖4-3所示。

圖3-3  回復作業(yè)表
  4. 欄目信息表type,如圖4-4所示。

圖4-4  欄目信息表
4.3 數據庫連接說明
  Conn.asp文件的數據庫連接程序如下。
  <% Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &server.mappath("edu.mdb")&";"
%>
第五章 測試和維護

5.1 網站維護

1、服務器及相關軟硬件的維護，對可能出現的問題進行評估，制定響應時間。
2、數據庫維護，有效地利用數據是網站維護的重要內容，因此數據庫的維護要受到重視。
3、內容的更新、調整等。
4、制定相關網站維護的規(guī)定，將網站維護制度化、規(guī)范化。

5.2 網站測試

網站發(fā)布前要進行細致周密的測試，以保證正常瀏覽和使用。主要測試內容：
1、服務器穩(wěn)定性、安全性。
2、程序及數據庫測試。
3、網頁兼容性測試，如瀏覽器、顯示器。
4、根據需要的其他測試。
參考文獻

[1] 龍馬工作室. ASP+Access 組建動態(tài)網站 實例精講. 人民郵電出版社，2005
[2] 于繁華.Access基礎教程. 中國水利水電出版社，2006
[3] 阮文江. java script程序設計基礎教程. 人民郵電出版社，2006
致謝
 經過兩個月的忙碌和工作，本次畢業(yè)設計已經接近尾聲，由于經驗的匱乏，難免有許多考慮不周全的地方，如果沒有輔導老師的督促指導，以及一起工作的同學們的支持，想要完成這個設計是難以想象的。
 在這里首先要感謝我的輔導老師葉劍春。他平日里工作繁多，但在我做畢業(yè)設計的每個階段，從外出實習到查閱資料，設計草案的確定和修改，中期檢查，后期詳細設計，裝配草圖等整個過程中都給予了我悉心的指導。我的設計較為復雜煩瑣，但是葉劍春老師仍然細心地糾正圖紙中的錯誤。除了敬佩葉劍春老師的專業(yè)水平外，他的治學嚴謹和科學研究的精神也是我永遠學習的榜樣，并將積極影響我今后的學習和工作。
 其次要感謝幫助我一起作畢業(yè)設計的眾多網友，他們在本次設計中給了我大力的幫助，出謀劃策各展所能的幫助我完成此次畢業(yè)設計，如果沒有他們的大力幫助，此次設計的完成將變得非常困難。
 然后還要感謝大學三年來所有的老師，為我們打下計算機專業(yè)知識的基礎；同時還要感謝所有的同學們，正是因為有了你們的支持和鼓勵。此次畢業(yè)設計才會順利完成。
 最后感謝工商職業(yè)學院三年來對我的大力栽培。

【ASP在線教育系統(一)】相關文章：

在線教育系統ASP+SQL03-08

在線考試系統的設計ASP+ACCESS03-08

基于ASP的在線商品銷售系統的設計與實現ASP+SQL03-08

基于ASP.NET在線考試系統設計ASP.NET+SQL03-08

在線英語考試系統ASP＋SQL03-08

在線就業(yè)招聘系統的設計與實現ASP+Access03-08

在線考試及自動評分系統ASP+SQL03-08

基于.NET技術的在線考試系統ASP.NET+SQL03-08

ASP交友系統設計(一)03-07