ASP在線(xiàn)教育系統(一)

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

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

圖3-3  資料詳細信息
  2. 頁(yè)面中需要用戶(hù)填寫(xiě)的Html表單元素。
  此頁(yè)無(wú)需填寫(xiě)Html表單元素。
  3. 面所涉及的數據庫表信息。
  此頁(yè)使用了系統中的資料信息表main和教師信息表teacher。
  4. 頁(yè)面代碼分析
  ‘引用創(chuàng )建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 ‘引用網(wǎng)站設置文件
 <!--#include file="fenlei.asp"-->
 <%’取得要顯示資料信息的id號
 id = request("id")
 if id = "" then
  conn.close
  set conn = nothing
  response.write "<script>alert('沒(méi)有找到您要查看的記錄');window.close();</script>"
  response.end
 end if
 ‘打開(kāi)記錄集對象
 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('沒(méi)有找到您要查看的記錄');window.close();</script>"
  response.end
 else
 %>
 ‘Html頁(yè)面顯示部分,顯示資料的詳細信息
 ……
 <%’關(guān)閉記錄集對象
 rs.close
 set rs = nothing
 ‘關(guān)閉數據庫連接對象
 conn.close
 set conn = nothing
 end if
3.1.3 資料信息下載頁(yè)
  1. download.asp頁(yè)面示例
  圖3-4 為閱讀資料信息所看到的頁(yè)面。

圖3-4  閱讀資料信息
  2. 頁(yè)面中需要用戶(hù)填寫(xiě)的Html表單元素
  此頁(yè)無(wú)需填寫(xiě)Html表單元素。
  3. 頁(yè)面所涉及的數據庫表信息
  此頁(yè)使用了系統中的資料信息表main。
  4. 頁(yè)面代碼分析
 <%’取得要顯示資料信息的id號
 id = trim(request("id"))
 if id = "" then
  conn.close
  set conn = nothing
  response.write "<script>alert('沒(méi)有找到您要閱讀的資料');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('沒(méi)有找到您要閱讀的資料');window.close();</script>"
  response.end
 ‘如果資料詳細信息存在
 Else
 ‘該資料閱讀數加1
  rs("times") = rs("times") + 1
  rs.update
 ‘頁(yè)面下載或者打開(kāi)資料信息
  response.redirect rs("fileurl")
 ‘關(guān)閉記錄集對象
  rs.close
  set rs = nothing
 ‘關(guān)閉數據庫連接對象
  conn.close
  set conn = nothing
 end if
 %>
3.1.4 提交回復作業(yè)頁(yè)
  1. redetail.asp頁(yè)面示例
  圖3-5為提交回復作業(yè)信息所看到的頁(yè)面。

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

圖3-6  顯示教師基本信息
  2. 頁(yè)面中需要用戶(hù)填寫(xiě)的Html表單元素
  此頁(yè)無(wú)需填寫(xiě)Html表單元素。
  3. 頁(yè)面所涉及的數據庫表信息
  此頁(yè)面用來(lái)顯示教師基本信息,此頁(yè)使用了系統中的資料信息表main和教師信息表teacher。
  4. 頁(yè)面代碼分析
 <%’取得要顯示教師信息的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
 ‘判斷用戶(hù)是否是管理員
 if session("admin") = "admin" then
  isadmin = true
 else
  isadmin = false
 end if
 ‘判斷用戶(hù)是否是教師
 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頁(yè)面顯示部分,顯示教師信息
 ……
 <%’關(guān)閉記錄集對象
 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>
 ‘顯示資料記錄的框架頁(yè)
 <iframe name="titleof<%=rs("typeid")%>" frameborder=0 width=100% height=<%=iframeheight%> scrolling=no src=titlelist.asp?type=<%=rs("typeid")%>&id=<%=id%>></iframe>
 </td></tr>
 <%’取下一個(gè)欄目
  rs.movenext
 loop
 ‘關(guān)閉記錄集對象
 set rs1 = nothing
 ‘關(guān)閉記錄集對象
 rs.close
 set rs = nothing
 %>
 </table>
 <%’如果用戶(hù)既不是管理員也不是教師
 if not isadmin and not isteacher then
 %>
 <!--#include file="foot.asp"-->
 <%
 end if
 %>
 </body>
 </html>
 <%’關(guān)閉數據庫連接對象
 conn.close
 set conn = nothing
 %>
3.1.7 資料信息搜索頁(yè)
  1. search.asp頁(yè)面示例
  圖3-7為搜索資料信息所看到的頁(yè)面。

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

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

圖3-11  管理員登陸成功
  2. 頁(yè)面中需要用戶(hù)填寫(xiě)的Html表單元素
  此頁(yè)無(wú)需填寫(xiě)Html表單元素。
  3. 頁(yè)面所涉及的數據庫表信息
  此頁(yè)使用了系統中的管理員表config。
  4. 頁(yè)面代碼分析
 ‘引用創(chuàng )建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 ‘引用判斷是否是管理員登陸文件
 <!--#include file="isadmin.asp"-->
 ‘Html頁(yè)面顯示部分
 ……
 <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 增加資料欄目頁(yè)
  1. addtype.asp頁(yè)面示例
  圖3-12為增加欄目信息所看到的頁(yè)面。

  2. 頁(yè)面中需要用戶(hù)填寫(xiě)的Html表單元素
  此頁(yè)僅有1個(gè)表單元素,如表4所示。
  表4                   addtype.asp頁(yè)的表單元素
名稱(chēng)  表單元素類(lèi)型  含義 最大長(cháng)度
Addtype  Text 欄目名稱(chēng) 10
  3. 頁(yè)面所涉及的數據庫表信息
  此頁(yè)面用來(lái)增加欄目信息,使用了系統中的欄目信息記錄表type。
  4. 頁(yè)面代碼分析
 <%’取得欄目信息
 sql = "select * from type"
 set rs = server.createobject("adodb.recordset")
 ‘打開(kāi)記錄集對象
 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
 ‘關(guān)閉記錄集對象
 rs.close
 set rs = nothing
 ‘關(guān)閉數據庫連接對象
 conn.close
 set conn = nothing
 %>
 ‘Html頁(yè)面表單提交到addtype.doc
 <form action="addtypeok.asp" method="post">
 請輸入要添加的欄目名稱(chēng):<input type=text name="addtype" size=10><input type=submit name="submit" value="添加">
 <br>（欄目名稱(chēng)可以如“論文”、“實(shí)驗素材”等）
 </form>
3.2.5 增加欄目成功頁(yè)
  1. 頁(yè)面中需要用戶(hù)填寫(xiě)的Html表單元素
  此頁(yè)無(wú)需填寫(xiě)Html表單元素。
  2. 頁(yè)面所涉及的數據庫表信息
  此頁(yè)使用了系統中的欄目信息記錄表type。
  3. 頁(yè)面代碼分析
 ‘引用創(chuàng )建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 ‘引用判斷是否是管理員登陸文件
 <!--#include file="isadmin.asp"-->
 <%’取得輸入的欄目名稱(chēng)
 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('欄目名不得超過(guò)5個(gè)漢字');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('數據庫中已經(jīng)有一個(gè)名為"&addtype&"的欄目了');history.go(-1);</script>"
  response.end
 else
 ‘如果沒(méi)有記錄則可以添加了
  rs.addnew
  rs("type")=addtype
  rs.update
 ‘關(guān)閉記錄集對象
  rs.close
  set rs = nothing
 ‘關(guān)閉數據庫連接對象
  conn.close
  set conn = nothing
 end if
 response.write "<script>alert('添加成功');window.location.href='addtype.asp';</script>"
 %>
3.2.6 修改欄目信息頁(yè)
  1. edittype.asp頁(yè)面示例
  圖3-13為修改欄目信息所看到的頁(yè)面。

圖3-13  修改欄目信息
  2. 頁(yè)面中需要用戶(hù)填寫(xiě)的Html表單元素
  此頁(yè)僅有1個(gè)表單元素,如表5所示。
  表5                   edittype.asp頁(yè)的表單元素
 名稱(chēng)  表單元素類(lèi)型  含義 最大長(cháng)度
Addtype  Text 欄目名稱(chēng) 10
  3. 頁(yè)面所涉及的數據庫表信息
  此頁(yè)用來(lái)修改欄目信息頁(yè)面,使用了系統中的欄目信息記錄表type。
  4. 頁(yè)面代碼分析
 ‘引用創(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")
 ‘打開(kāi)欄目信息表查找需要修改的欄目名稱(chēng)
 rs.open sql,conn,1,1
 filetype = rs("type")
 ‘關(guān)閉記錄集對象
 rs.close
 set rs = nothing
 ‘關(guān)閉數據庫連接對象
 conn.close
 set conn = nothing
 %>
 ‘Html頁(yè)面顯示部分
 ……
 ‘Html頁(yè)面表單提交到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>（欄目名稱(chēng)可以如“論文”、“實(shí)驗素材”等）
 </form>
3.2.7 保存修改的欄目信息頁(yè)
  1. 頁(yè)面中需要用戶(hù)填寫(xiě)的Html表單元素
  此頁(yè)無(wú)需填寫(xiě)Html表單元素。
  2. 頁(yè)面所涉及的數據庫表信息
  此頁(yè)使用了系統中的欄目信息記錄表type。
  3. 頁(yè)面代碼分析
 ‘引用創(chuàng )建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 ‘引用判斷是否是管理員登陸文件
 <!--#include file="isadmin.asp"-->
 <%’取得要修改的欄目信息的id號
 id = trim(request("id"))
 addtype = trim(request("addtype"))
 ‘如果沒(méi)有輸入欄目名稱(chēng)則提示
 if addtype = "" then
  response.write "<script>alert('請輸入欄目名');history.go(-1);</script>"
  conn.close
  set conn = nothing
  response.end
 end if
 ‘欄目名稱(chēng)的長(cháng)度不能大于5
 if len(addtype) > 5 then
  response.write "<script>alert('欄目名不得超過(guò)5個(gè)漢字');history.go(-1);</script>"
  conn.close
  set conn = nothing
  response.end
 end if
 ‘打開(kāi)欄目信息表查找需要修改的欄目名稱(chēng)
 sql = "select * from type where type='"&addtype&"' and typeid<>"&id
 set rs = server.createobject("adodb.recordset")
 rs.open sql,conn,1,1
 ‘如果修改的名稱(chēng)在數據庫中已經(jīng)有記錄則不能修改
 if not (rs.bof and rs.eof) then
  rs.close
  set rs = nothing
  conn.close
  set conn = nothing
  response.write "<script>alert('數據庫中已經(jīng)有一個(gè)名為"&addtype&"的欄目了');history.go(-1);</script>"
  response.end
 end if
 rs.close
 set rs = nothing
 ‘如果修改的名稱(chēng)在數據庫中沒(méi)有記錄了則可以修改
 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 刪除欄目信息頁(yè)
  1. deltype.asp頁(yè)面示例
  圖3-14為刪除欄目信息所看到的頁(yè)面。

圖3-14  刪除欄目信息
  2. 頁(yè)面中需要用戶(hù)填寫(xiě)的Html表單元素
  此頁(yè)無(wú)需填寫(xiě)Html表單元素。
  3. 頁(yè)面所涉及的數據庫表信息
  此頁(yè)使用了系統中的欄目信息記錄表type。
  4. 頁(yè)面代碼分析
 ‘Html頁(yè)面表單提交到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 刪除欄目信息成功頁(yè)
  1. 頁(yè)面中需要用戶(hù)填寫(xiě)的Html表單元素
  此頁(yè)無(wú)需填寫(xiě)Html表單元素。
  2. 頁(yè)面所涉及的數據庫表信息
  此頁(yè)使用了系統中的欄目信息記錄表type。
  3. 頁(yè)面代碼分析
 ‘引用創(chuàng )建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 ‘引用判斷是否是管理員登陸文件
 <!--#include file="isadmin.asp"-->
 <%’取得要刪除欄目信息的id號
 id = trim(request("id"))
 ‘如果要刪除欄目信息的id號為空說(shuō)明非法操作
 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")
 ‘打開(kāi)記錄集對象
 rs.open sql,conn,1,1
 ‘對應id號的欄目信息如果不存在則說(shuō)明該欄目不存在
 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
 ‘關(guān)閉數據庫連接對象
 conn.close
 set conn = nothing
 response.write "<script>alert('刪除成功');window.location.href='addtype.asp';</script>"
 %>
3.2.10 發(fā)布資料信息頁(yè)
  1.pub.asp頁(yè)面示例
  圖3-15為發(fā)布資料信息所看到的頁(yè)面。

  2. 頁(yè)面中需要用戶(hù)填寫(xiě)的Html表單元素
  此頁(yè)共有6個(gè)表單元素,如表6所示。
  表6                   pub.asp頁(yè)的表單元素
 名稱(chēng)  表單元素類(lèi)型  含義 最大長(cháng)度
Teacher Text 教師姓名 15
Course Text 課程名稱(chēng) 15
Title Text 資料標題 52
Fileurl Text 資料地址 52
Filesize Text 資料大小 15
content textarea 資料簡(jiǎn)介 300
  3. 頁(yè)面所涉及的數據庫表信息
  此頁(yè)用來(lái)發(fā)布資料信息頁(yè)面,使用了系統中的欄目信息記錄表type。
  4. 頁(yè)面代碼分析
 ‘Html頁(yè)面表單提交到pubok.asp
 <form action="pubok.asp" method="post" onSubmit=submitonce(this)>
 ‘Html頁(yè)面顯示部分,填寫(xiě)資料信息
 ……
 <%’取得欄目信息
 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>"
 ‘關(guān)閉記錄集對象
 rs.close
 set rs = nothing
 %>
3.2.11 資料信息發(fā)布成功頁(yè)
  1. 頁(yè)面中需要用戶(hù)填寫(xiě)的Html表單元素
  此頁(yè)無(wú)需填寫(xiě)Html表單元素。
  2. 頁(yè)面所涉及的數據庫表信息
  此頁(yè)使用了系統中的資料信息記錄表main。
3.2.12 資料信息列表頁(yè)
  圖3-16為資料信息列表頁(yè)面。

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

圖3-17  修改資料信息
  2. 頁(yè)面中需要用戶(hù)填寫(xiě)的Html表單元素
  此頁(yè)共有5個(gè)表單元素,如表7所示。
  表7                   edit.asp頁(yè)的表單元素
 名稱(chēng)  表單元素類(lèi)型  含義 最大長(cháng)度
Course  Text 課題名稱(chēng) 15
Title  Text 資料標題 52
Fileurl  Text 資料地址 52
Filesize  Text 資料大小 15
Content Textarea 資料簡(jiǎn)介 300
  3. 頁(yè)面所涉及的數據庫表信息
  此頁(yè)用來(lái)修改資料信息,使用了系統中的資料信息記錄表main。
  4. 頁(yè)面代碼分析
 ‘引用創(chuàng )建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 ‘引用判斷是否是教師登陸文件
 <!--#include file="isteacher.asp"-->
 ‘引用網(wǎng)站設置文件
 <!--#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
 ‘如果存在判斷用戶(hù)是否有修改資料的權限
  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('這個(gè)資料不是你發(fā)布的，你想干什么？');top.window.location.href='teachermain.asp';</script>"
   response.end
  end if
 end if
 %>
 ‘Html頁(yè)面顯示部分,顯示要修改的資料信息
 ……
3.2.14 保存修改的資料信息頁(yè)
  1. 頁(yè)面中需要用戶(hù)填寫(xiě)的Html表單元素
  此頁(yè)無(wú)需填寫(xiě)Html表單元素。
  2. 頁(yè)面所涉及的數據庫表信息
  此頁(yè)使用了系統中的資料信息表main和教師信息表teacher。
  3. 頁(yè)面代碼分析
 ‘引用創(chuàng )建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 ‘引用判斷是否是教師登陸文件
 <!--#include file="isteacher.asp"-->
 ‘引用網(wǎng)站設置文件
 <!--#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
 ‘必須輸入資料名稱(chēng)
 if course = "" then
  conn.close
  set conn = nothing
  response.write "<script>alert('請輸入資料名稱(chēng)');history.go(-1);</script>"
  response.end
 end if
 if len(course) > 25 then
  conn.close
  set conn = nothing
  response.write "<script>alert('資料名稱(chēng)不得超過(guò)25個(gè)漢字');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('資料地址不得超過(guò)100個(gè)英文字母');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('資料標題不得超過(guò)25個(gè)漢字');history.go(-1);</script>"
  response.end
 end if
 if typeid = "" then
  conn.close
  set conn = nothing
  response.write "<script>alert('請選擇資料類(lèi)型');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('請輸入簡(jiǎn)介');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
 ‘判斷用戶(hù)是否有修改資料的權限
  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('這個(gè)資料不是你發(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
 ‘關(guān)閉記錄集對象
   rs.close
   set rs = nothing
 ‘關(guān)閉數據庫連接對象
   conn.close
   set conn = nothing
  end if
 end if
 
 response.write "<script>alert('修改成功');window.location.href='edit.asp?id="&id&"';</script>"
3.2.15 刪除資料信息頁(yè)
  1. admindelcourseware.asp頁(yè)面示例
  圖3-18為刪除資料信息所看到的頁(yè)面

圖3-18  個(gè)人基本檔案
  2. 頁(yè)面中需要用戶(hù)填寫(xiě)的Html表單元素
  此頁(yè)無(wú)需填寫(xiě)Html表單元素。
  3. 頁(yè)面所涉及的數據庫表信息
  此頁(yè)并沒(méi)有涉及到數據庫表的操作。
  4. 頁(yè)面代碼分析
 ‘Html頁(yè)面表單提交到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.與該資料相關(guān)的已上傳資料
 </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 刪除資料信息成功頁(yè)
  1. 頁(yè)面中需要用戶(hù)填寫(xiě)的Html表單元素
  此頁(yè)無(wú)需填寫(xiě)Html表單元素。
  2. 頁(yè)面所涉及的數據庫表信息
  此頁(yè)使用了系統中的資料信息表main。
  3. 頁(yè)面代碼分析
 ‘引用創(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")
 ‘打開(kāi)記錄集對象
 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
 ‘關(guān)閉記錄集對象
  conn.close
  set conn = nothing
  response.write "<script>alert('刪除成功');window.location.href='list.asp?teacherid="&teacherid&"';</script>"
 end if
 %>
3.3  教師管理
  教師模塊包含以下頁(yè)面。
  ●　adminteacher.asp
  ●  adminsearchteacher.asp
  ●  addteacher.asp
  ●  addteacherok.asp
  ●  editteacher.asp
  ●  editteacherok.asp
  ●  delteacher.asp
  ●  delteacherok.asp
  各頁(yè)面間的關(guān)系如圖3-19所示。

3-19  各頁(yè)面間的關(guān)系

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

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

圖3-21  教師信息列表
  2. 頁(yè)面中需要用戶(hù)填寫(xiě)的Html表單元素
  此頁(yè)無(wú)需填寫(xiě)Html表單元素。
  3. 頁(yè)面所涉及的數據庫表信息
  此頁(yè)面用來(lái)顯示教師信息列表,使用了系統中的教師信息表teacher。

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

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

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

圖3-23  修改教師信息
  2. 頁(yè)面中需要用戶(hù)填寫(xiě)的Html表單元素
  此頁(yè)用來(lái)修改教師信息,頁(yè)面中共有14個(gè)表單元素,如表10所示。
  表10                editteacher.asp頁(yè)的表單元素

名稱(chēng) 表單元素類(lèi)型 含義 最大長(cháng)度
Fenlei1 Text 教師所屬學(xué)院 25
Fenlei2 Text 教師所屬系 25
Teacher Text 教師姓名 25
Loginname Text 登陸名 22
Password Text 密碼 25
Password1 Text 確認密碼 25
Ask Text 密碼找回問(wèn)題 25
Answer Text 密碼找回答案 25
Email Text 電子郵件 25
Homepage Text 個(gè)人主頁(yè) 25
Qq Text QQ號碼 25
Address Text 通訊地址 25
Photourl Text 照片地址 25
intro Textarea 個(gè)人簡(jiǎn)介 150
 3. 頁(yè)面所涉及的數據庫表信息
  此頁(yè)使用了系統中的教師信息表teacher。
  4. 頁(yè)面代碼分析
 ‘引用創(chuàng )建數據庫連接對象函數文件
 <!--#include file="conn.asp"-->
 ‘引用網(wǎng)站設置文件
 <!--#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")
 ‘打開(kāi)記錄集對象
 rs.open sql,conn,1,1
 %>
 ‘Html頁(yè)面顯示部分,顯示資料的修改信息
 ……
 <%’顯示教師是否允許登陸
 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
 ‘關(guān)閉記錄集對象
 rs.close
 set rs = nothing
 ‘關(guān)閉數據庫連接對象
 conn.close
 set conn = nothing
 %>
3.3.6 修改教師信息成功頁(yè)
  1. 頁(yè)面中需要用戶(hù)填寫(xiě)的Html表單元素
  此頁(yè)無(wú)需填寫(xiě)Html表單元素。
  2. 頁(yè)面所涉及的數據庫表信息
  此頁(yè)使用了系統中的教師信息表teacher。
3.3.7 刪除教師信息頁(yè)
  1. delteacher.asp頁(yè)面示例
  圖3-24為刪除教師信息所看到的頁(yè)面。

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

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 數據庫連接說(shuō)明
  Conn.asp文件的數據庫連接程序如下。
  <% Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &server.mappath("edu.mdb")&";"
%>
第五章 測試和維護

5.1 網(wǎng)站維護

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

5.2 網(wǎng)站測試

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

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

【ASP在線(xiàn)教育系統(一)】相關(guān)文章：

在線(xiàn)教育系統ASP+SQL03-08

在線(xiàn)考試系統的設計ASP+ACCESS03-08

基于A(yíng)SP的在線(xiàn)商品銷(xiāo)售系統的設計與實(shí)現ASP+SQL03-08

基于A(yíng)SP.NET在線(xiàn)考試系統設計ASP.NET+SQL03-08

在線(xiàn)英語(yǔ)考試系統ASP＋SQL03-08

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

在線(xiàn)考試及自動(dòng)評分系統ASP+SQL03-08

基于.NET技術(shù)的在線(xiàn)考試系統ASP.NET+SQL03-08

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