【文章內(nèi)容簡介】 Public Sub UpdateNews(nid) strSql = Update News Set NTitle=39。 amp。 NTitle amp。 39。,NContent=39。 amp。 NContent amp。 _ 39。 Where NewsId= amp。 nid (strSql) End Sub 39。刪除新聞信息 Public Sub DeleteNews(nids) strSql = Delete From News Where NewsId In ( amp。 nids amp。 ) (strSql) End Sub End Class % 在類 News 中為表 Bulletin 的每個字段也定義了一個同名的成員變量，變量rs 是 對象，用于保存批量查詢返回的結(jié)果集。 所有數(shù)據(jù)庫操作類都保存在 class 目錄下，下面是這些類中定義的函數(shù)。 （ 1） news 類 news 類用來管理表 news 的數(shù)據(jù)庫操作，類的成員函數(shù)如表 38 所示。 函數(shù)名 具體說明 GetNewsInfo(nid) 讀取指定的新聞紀(jì)錄，參數(shù) nid表示要讀取的新 聞記錄的編號。 GetNewslist 返回所有新聞記錄信息，結(jié)果保存在公共變量 rs 中。 rs 是 對象。 GetRecentBulletinlist 獲取最近 7天發(fā)布的新聞信息，結(jié)果保存在公共變量 13 rs 中。 rs 是 對象。 Deletenews(nids) 批量刪除指定的新聞記錄。參數(shù) nid 表示要刪除的記 錄的編號列表。 InsertNews 插入新的新聞記錄。 UpdataNews(nid) 修改指定的新聞記錄。參數(shù) nid 表示要修改的記錄編 表 News 類成員函數(shù)表 （ 2） Person 類 Person 類用來管理表 Person 的數(shù)據(jù)庫操作，類的成員函數(shù)如表 39所示。 函數(shù) 具體說明 GetPersonInfo(uname) 讀取指定的個人記錄。參數(shù) uname 表示要讀取記錄編號。 GetPersonlist 返回所有個人記錄信息，結(jié)果保存在公共變量 rs 中。 rs 是 對象。 HaveGoodsType(name) 判斷指定的商品類別名稱是否存在，參數(shù)name 表示商品類別名稱。 DeletePerson(uname) 刪除指定的個人記錄。參數(shù) uname 表示要刪除的用戶名。 HavePerson(uname) 判斷指定的用戶名是否存在，如果存在則返回 ture，否則返回 false。參數(shù) uname 表示用戶 名。 HaveUser 判斷當(dāng)前用戶指定的用戶名和密碼是否存在，如果存在則返回 ture，否則返回 false。 InsertPerson 插入新的個人紀(jì)錄 。 UpdataPassword 修改用戶密碼。 UpdataPerson(uname) 修改指定的個人記錄，參數(shù) uname 表示要修改的用 戶名。 14 表 Person 類成員函數(shù)表 （ 3） Skill 類 Skill 類用來管理表 Skill 的數(shù)據(jù)庫操作，類的成員函數(shù)如表 310所示。 函數(shù)名 具體說明 GetSkillInfo(uname) 讀取指定用戶的技能記錄。參數(shù) uname 表示用戶名。 GetSkilllist 返回所有技能記錄信息，結(jié)果保存在公共變量 rs 中。 rs 是 對象。 HaveUserName(uname) 判斷指定的用戶是否存在技能信息，參數(shù)uname 表示用戶名。 DeleteSkill(sid) 刪除指定的技能記錄。參數(shù) sid 表示要記錄編號。 InsertSkill 插入新的技能記錄。 UpdataSkill(uname) 修改指定的技能記錄，參數(shù) uname 表示要修改的用戶 名。 表 Skill 類成員函數(shù)表 （ 4） Company 類 Company 類用來管理表 Company 的數(shù)據(jù)庫操作，類的成員函數(shù)如表 311所示。 函數(shù) 具體說明 GetCompanyInfo(cid) 讀取指定的公司記錄。參數(shù) cid 表示企業(yè)用戶名。 GetCompanylist 返回所有公司記錄信息，結(jié) 果保存在公共變量 rs 中。 rs 是 對象。 HaveUser 判斷指定的用戶名和密碼是否存在，如果存在則返回 ture，否則返回 false。 DeleteCompany(cid) 刪除指定的公司記錄。參數(shù) cid 表示要刪除 15 的公司編號。 HaveCompany(cid) 判斷指定的企業(yè)用戶是否存在，如果存在則返回 ture，否則返回 false。參數(shù) cid 表示用戶名。 InsertCompany 插入新的公司記錄。 UpdataPassword(cid) 修改指定用戶的密碼，參 數(shù) cid 表示企業(yè)用戶名。 UpdataICompany(cid) 管理員修改指定的公司記錄，包括用戶名和密碼等信息，參數(shù) cid 表示要修改的企業(yè)用戶名。 UpdataCompany(cid) 企業(yè)用戶修改自己公司的記錄，參數(shù) cid 表示要修改的企業(yè)用戶名。 表 Company 類成員函數(shù)表 （ 5） JobInfo 類 JobInfo 類用來管理表 JobInfo 的數(shù)據(jù)庫操作，類的成員函數(shù)如表 312所示。 GetJobInfo(jid) 讀取指定的職位記錄。參數(shù) jid 表示記錄編號。 GetDetail(uname,jid) 返回指定公司的指定職位記錄信息，結(jié)果保存 在 公 共 變 量 rs 中。 rs 是 對象。參數(shù) uname表示企業(yè)用戶名， jid 表示職位記錄編號。 GetJoblist(uname) 返回指定公司的所有職位記錄信息，結(jié)果保存 在 公 共 變 量 rs 中。 rs 是 對象。參數(shù) uname表示企業(yè)用戶名。 GetJobSearch(schsql) 根據(jù)查詢條件返回所有職位記錄信息，結(jié)果保 存 在 公 共 變 量 rs 中。 rs 是 對象。參數(shù) schsql 16 表示定義查詢條件的 SELECT 語句。 HaveCID(cid) 判斷指定的企業(yè)是否存在職位信息，參數(shù) cid表示企業(yè)用戶名。 DeleteJob(jid) 刪除指定的職位記錄。參數(shù) jid 表示要刪除的記錄編號。 nsertJob 插入新的職位記錄。 UpdataJob(cid) 修改指定的職位記錄，參數(shù) cid 表示要修改的記錄編號。 表 JobInfo 類成員函數(shù)表 （ 6） Applications 類 Applications 類用來管理表 Applications 的數(shù)據(jù)庫操作，類的成員函數(shù) 如表 313所示。 函數(shù) 具體說明 GetApplicationInfo(aid) 讀取指定的應(yīng)聘記錄。參數(shù) aid 表示記錄編號。 GetDetail(uname) 返回指定個人的所有應(yīng)聘記錄信息，結(jié)果保存 在 公 共 變 量 rs 中。 rs 是 對象。參數(shù) uname表示個人用戶名。 GetApplicationlist 返回所有應(yīng)聘記錄信息，結(jié)果保存在公共變量 rs 中。 rs 是 對象。 DeleteRespone(aid,uname) 刪除指定的職位記錄。參數(shù) aid 表示要刪除的記錄編號 ,uname 表示用戶名。 InsertApplication 插入新的應(yīng)聘記錄。 UpdataPassword(cid) 修改指定用戶的密碼，參數(shù) cid 表示企業(yè)用戶名。 UpdatResponse(aid) 修改指定的應(yīng)聘記錄，參數(shù) aid 表示要修改 17 的記錄編號。 UpdataCompany(cid) 企業(yè)用戶修改自己公司的記錄，參數(shù) cid 表示要修改的企業(yè)用戶名。 表 Applications 類成員函數(shù)表 （ 7） Admin 類 Admin 類用來管理表 Admin 的 數(shù)據(jù)庫操作，類的成員函數(shù)如表 314 所示。 函數(shù) 具體說明 GetAdminInfo(aid) 讀取指定的管理員記錄。參數(shù) aid 表示管理員用戶名。 GetAdminlist 返回所有管理員用戶記錄信息，結(jié)果保存在公 共 變 量 rs 中。 rs 是 對象。 GetAdmin 判斷指定管理員用戶名和密碼是否存在，如果存在則返回 ture，否則返回 false。 DeleteAdmin(aid) 刪除指定的管理員用戶記錄。參數(shù) aid 表示要刪除的管理員用戶名。 InsertAdmin 插入新的 管理員用戶記錄。 UpdataPassword(aid) 修改指定用戶的密碼，參數(shù) aid 表示管理員用戶名。 表 Admin 類成員函數(shù)表 18 第 4 章 詳細(xì)設(shè)計 及編碼 公共模塊功能實(shí)現(xiàn) 圖 41 系統(tǒng)主頁面 除了 Admin 用戶外，企業(yè)用戶和個人用戶都要通過系統(tǒng)主頁面登錄，才能完 成自己的特定功能。 個人 用戶功能 實(shí)現(xiàn) 個人用戶登錄后，可以直接進(jìn)入個人用戶主界面。在個人主界面中，可以見到“ 個人 簡歷 ”“ 技能信息 ”“ 職位申請 ”“ 密碼修改 ”“退出管理” 的超鏈接，用戶可以填寫自己的 簡 歷、創(chuàng)建多份簡歷、查看公司信息、搜索工作、查看職位信息、申請職位。 19 圖 42 個人用戶注冊界面 定義表單代碼如下： form name=form1 method=POST action=?action=add onsubmit=return CheckFlds() 當(dāng)提交數(shù)據(jù)后，將執(zhí)行 CheckFlds()函數(shù)，對用戶輸入數(shù)據(jù)進(jìn)行檢查。用戶名、密碼和真實(shí)姓名是必須輸入的。通過檢查后，將執(zhí)行 ，保存?zhèn)€人簡歷。參數(shù) action 表示當(dāng)前 的操作狀態(tài)， action=add 表示添加記錄。 也可以用來保存修改的個人簡歷。 20 圖 個人信息管理界面 在個人管理頁面中，右側(cè)網(wǎng)頁默認(rèn)顯示當(dāng)前個人用戶的個人簡歷信息，用戶可以編輯自己的簡歷，頁面為 resume\，其主要代碼如下： % Set per = New Person (Session(UserName)) If Not Then’ ?? % 程序?qū)⒏鶕?jù) Session (“ UserName”）的值從表 Person 中讀取當(dāng)前用戶的個人簡歷數(shù)據(jù)，示在頁面中。當(dāng)用戶單擊“提交”按鈕時，將執(zhí)行 ，保存數(shù)據(jù)。 21 圖 查看個人信息 程序?qū)⒏鶕?jù)參數(shù) uid 的值從表 Person 中讀取指定用戶的個人簡歷數(shù)據(jù)，并顯示在頁面中 .代碼如下： % Dim uid uid = (uid) Set per = New Person Set sk = New Skill (uid) If Not Then (uid) % 22 圖 個人 技能編輯 頁面 程序根據(jù) Session 變量 UserName 讀取當(dāng)前登錄個人用戶的技能信息，代碼如下： Set sk = New Skill (Session(UserName)) If Not Then Title = (AppTitle) English = (English) Computer = (Computer) Main = (MainSkill) End If 然后各項技能數(shù)據(jù)顯示在頁面的指定位置。 當(dāng)用戶提交數(shù)據(jù)時，將首先調(diào)用 CheckFlds()函數(shù)，對數(shù)據(jù)的有效性進(jìn)行檢查。如果通過檢查則執(zhí)行 。 23 圖 職位申請查看頁面 在職位申請列表中，可以通過單擊“企業(yè)名稱”和“申請職位”鏈接查看具體的相關(guān)信息，也可以在反饋欄中查看到企業(yè)的反饋信息。讀取并顯示申請信息的代碼如下： % Set app = New Applications (Session(UserName)) ’在表格中顯示申請信息 % 單擊每條記錄后面的刪除鏈接，將執(zhí)行 ，刪除當(dāng)前記錄。參數(shù) aid 表示要刪除職位申請記錄的編號。刪除申請記錄的代碼如下： % Dim aid aid = (aid) Set app = New Applications aid,Session(UserName) % 24 企業(yè)用戶功能實(shí)現(xiàn) 企業(yè)用戶登錄后，可以直接進(jìn)入企業(yè)用戶主界面。在企業(yè)主界面中，可以見到“ 企業(yè)信息”“招聘信息”“應(yīng)聘信息”“ 密碼修改”“退出管理” 的超鏈接。企業(yè)用戶登錄成功后， 可以填寫公司基本信息， 發(fā)布職位， 搜索人才簡歷、 查