【正文】
資 料 地 址 不 得 超 過 100 個 英 文 字 母39。)。(1)。/script end if if title = then set conn = nothing end if if len(title) 25 then set conn = nothing scriptalert(39。 資 料 標(biāo) 題 不 得 超 過 25 個漢字39。)。(1)。/script end if if typeid = then set conn = nothing end if if filesize 1 then filesize = 0 if content = then set conn = nothing end if ‘取得要修改的資料信息 sql = select * from main where mainid=amp。id set rs = () sql,conn,1,3 ‘如果要修改的資料信息不存在 if and then set rs = nothing set conn = nothing scriptalert(39。 請不要搗亂39。)。=39。39。/script else ‘判斷用戶是否有修改資料的權(quán)限 if rs(idofteacher) int(session(teacherid)) and session(admin) admin then set rs = nothing set conn = nothing scriptalert(39。 這個資料不是你發(fā)布的,你想 干什么?39。)。=39。39。/script else ‘如果有修改權(quán)限就修改資料信息 rs(fileurl)=fileurl rs(course)=course rs(dateandtime)=now() rs(content)=content rs(title)=title rs(idoftype)=cint(typeid) rs(filesize)=filesize ‘修改成功 ‘關(guān)閉記錄集對象 set rs = nothing ‘關(guān)閉數(shù)據(jù)庫連接對象 set conn = nothing end if end if scriptalert(39。 修改成功39。)。=39。?id=amp。idamp。39。/script 刪除資料信息頁 1. 頁面示例 圖 318 為刪除資料信息所看到的頁面 圖 318 個人基本檔案 2. 頁面中需要用戶填寫的 Html 表單元素 此頁無需填寫 Html 表單元素。 3. 頁面所涉及的數(shù)據(jù)庫表信息 此頁并沒有涉及到數(shù)據(jù)庫表的操作。 4. 頁面代碼分析 ‘Html 頁面表單提交到 刪除資料信息 form action= method=post table style=BORDERCOLLAPSE: collapse borderColor=808080 width=250 border=1 align=center cellpadding=1 trtd align=center class=header將有下列數(shù)據(jù)被刪除 /td/tr trtd align=left br /td/tr /table centerinput type=hidden name=id value=%=id%input type=hidden name=teacherid value=%=teacherid%br input type=submit name=submit value= 確定 input type=button name=cancle value=取消 onclick=(1)。/center /form 刪除資料信息成功頁 1. 頁面中需要用戶填寫的 Html 表單元素 此頁無需填寫 Html 表單元素。 2. 頁面所涉及的數(shù)據(jù)庫表信息 此頁 使用了系統(tǒng)中的資料信息表 main。 3. 頁面代碼分析 ‘引用創(chuàng)建數(shù)據(jù)庫連接對象函數(shù)文件 !include file= ‘引用判斷是否是管理員登陸文件 !include file= %’取得教師信息的 id 號 id = trim(request(id)) teacherid = trim(request(teacherid)) ‘必須輸入教師 id 號和資料信息 id 號 if id = or teacherid = then set conn = nothing scriptalert(39。 請不要搗亂39。)。=39。39。/script end if ‘取得資料信息 sql = select * from main where mainid=amp。id set rs = () ‘打開記錄集對象 sql,conn,1,1 ‘判斷信息是否存在 ,如果不存在則不能刪除信息 if and then set rs = nothing set conn = nothing scriptalert(39。 請不要搗亂39。)。=39。39。/script else ‘如果信息存在則先取到文件地址先刪除 fileurl = rs(fileurl) set rs=nothing 39。如果資料已上傳至本地,則刪除資料 if left(fileurl,6) = files/ and mid(fileurl,7,len(teacherid)+2) = teacheridamp。at then dim filepaths,objFSO on error resume next Set objFSO = () filepaths=(amp。fileurlamp。) if (filepaths) then (filepaths) end if set objFSO = nothing end if ‘刪除資料信息 delete from main where mainid=amp。id ‘關(guān)閉記錄集對象 set conn = nothing scriptalert(39。 刪除成功39。)。=39。?teacherid=amp。teacheridamp。39。/script end if % 教師管理 教師模塊包含以下頁面。 ● ● ● ● ● ● ● ● 各頁面間的關(guān)系如圖 319 所示。 319 各頁面間的關(guān)系 搜索教師頁 1. 頁面示例 圖 320 為搜索教師信息所看到的頁面。 圖 320 搜索教師信息 2. 頁面 中需要用戶填寫的 Html 表單元素 此頁共有 4 個表單元素 ,如表 8所示。 表 8 頁的表單元素 名稱 表單元素類型 含義 最大長度 Fenlei1 text 教師所屬學(xué)院 15 Fenlei2 Text 教師所屬系 15 Teacher Text 教師姓名 15 Id Text 教師 ID 15 3. 頁面所涉及的數(shù)據(jù)庫表信息 此頁并沒有涉及到數(shù)據(jù)庫表的操作。 4. 頁面代碼分析 ‘Html 頁面表單提交到 搜索教師 form action= method=post ‘Html 頁面顯示部分 ,填寫教師搜索信息 ?? /form 教師搜索結(jié)果頁 1. 頁面示例 圖 321 為教師信息列表所看到的頁面。 圖 321 教師信息列表 2. 頁面中需要用戶填寫的 Html 表單元素 此頁無需填寫 Html 表單元素。 3. 頁面所涉及的數(shù)據(jù)庫表信息 此頁面用 來顯示教師 信息列表 ,使用了系統(tǒng)中的教師 信息表 teacher。 添加教師信息頁 1. 頁面示例 圖 322 為添加教師信息所看到的頁面。 322 添加教師信息 2. 頁面中需要用戶填寫的 Html 表單元素 此頁用來添加教師信息 ,頁面中共有 13 個表單元素 ,如表 9 所示。 表 9 頁的表單元素 名稱 表單元素類型 含義 最大長度 Fenlei1 text 教師所屬學(xué)院 25 Fenlei2 text 教師所屬系 25 Teacher text 教師姓名 25 Loginname text 登陸名 22 Password text 密碼 25 Password1 text 確認(rèn)密碼 25 Ask text 密碼找回問題 25 Answer text 密碼找回答案 25 Email text 電子郵件 25 Homepage text 個人主頁 25 Qq text 號碼 25 Address text 通訊地址 25 intro textarea 個人簡介 150 3. 頁面所涉及的數(shù)據(jù)庫表信息 此頁并沒有涉及到數(shù)據(jù)庫表的操作。 4. 頁面代碼分析 ‘Html 頁面表單提交到 增加教師信息 form action= method=post onSubmit=submitonce(this) ‘Html 頁面顯示部分 ,填寫教師信息 ?? /form 添加教師成功頁 1. 頁面中需要用戶填寫的 Html 表單元素 此頁無需填寫 Html 表單元素。 2. 頁面所涉及的 數(shù)據(jù)庫表信息 此頁使用了系統(tǒng)中的教師信息表 teacher。 修改教師信息頁 1. 頁面示例 圖 323 為修改教師信息 所看到的頁面。 圖 323 修改教師信息 2. 頁面中需要用戶填寫的 Html 表單元素 此頁用來修改教師信息 ,頁面中共有 14 個表單元素 ,如表 10 所示。 表 10 頁的表單元素 名稱 表單元素類型 含義 最大長度 Fenlei1 Text 教師所屬學(xué)院 25 Fenlei2 Text 教師所屬系 25 Teacher Text 教師姓名 25 Loginname Text 登陸名 22 Password Text 密碼 25 Password1 Text 確認(rèn)密碼 25 Ask Text 密碼找回問題 25 Answer Text 密碼找回答案 25 Email Text 電子郵件 25 Homepage Text 個人主頁 25 Qq Text 號碼 25 Address Text 通訊地址 25 Photourl Text 照片地 址 25 intro Textarea 個人簡介 150 3. 頁面所涉及的數(shù)據(jù)庫表信息 此頁使用了系統(tǒng)中的教師信息表 teacher。 4. 頁面代碼分析 ‘引用創(chuàng)建數(shù)據(jù)庫連接對象函數(shù)文件 !include file= ‘引用網(wǎng)站設(shè)置文件 !include file= ‘引用判斷是否是管理員登陸文件 !include file= %’取得要刪除教師信息的 id 號 id = request(id) if id = then set conn = nothing scriptalert(39。 請不要搗亂 !!!39。)。=39。39。/script end if ‘取得對應(yīng)教師 id 號的教師信息 sql = select * from teacher where teacherid=amp。id set rs = () ‘打開記錄集對象 sql,conn,1,1 % ‘Html 頁面顯示部分 ,顯示資料的修改信息 ?? %’顯示教師是否允許登陸 if rs(locked) = 1 then input type=radio name=locked value=39。039。允許登