【正文】 調(diào)用相對(duì)應(yīng)的方法。 查詢職位信息個(gè)人用戶經(jīng)常需要從眾多的職位信息中查詢自己關(guān)注的內(nèi)容。圖43 查詢職位信息查詢的條件可以是職位名稱、職位類別、工作地點(diǎn)、公司名稱和主要技能等。文本域Key的值表示查詢關(guān)鍵字。sltCnd=title:職位名稱type:職位類別location:工作地點(diǎn)pany:公司名稱main:主要技能 Set jb = New JobInfo If sltCnd=title Then sql = Select * From JobInfo Where JobTitle like 39。sKeyamp。 Order By PostTime Desc ElseIf sltCnd=type Then sql = Select * From JobInfo Where JobType Like 39。sKeyamp。 Order By PostTime Desc ElseIf sltCnd=location Then sql = Select * From JobInfo Where WorkPlace Like 39。sKeyamp。 Order By PostTime Desc ElseIf sltCnd=pany Then sql = Select j.*,c.* From JobInfo j,Company c Where = And Like 39。sKeyamp。 Order By Desc ElseIf sltCnd=main Then sql = Select * From JobInfo Where Comment like 39。sKeyamp。 Order By PostTime Desc End If% 在SELECT語(yǔ)句中，使用LINK將字段與關(guān)鍵字匹配，這樣可以實(shí)現(xiàn)模糊查詢。第五章 新聞和企業(yè)信息管理模塊設(shè)計(jì)新聞信息管理模塊可以實(shí)現(xiàn)以下功能：（1）添加新聞?dòng)涗洝＃?）刪除新聞?dòng)涗洝?設(shè)計(jì)新聞管理頁(yè)面在admin\“新聞管理”超鏈接,執(zhí)行admin\,顯示新聞列表。（1）顯示新聞信息為了便于用戶管理新聞信息，并在后面顯示修改鏈接和刪除復(fù)選框，代碼如下：form id=form1 name=form1 method=POST% Set ns = New News 39。/td/tr/table Else%p align=centerfont color=000080 style=fontsize: 12ptb新聞管理/b/font/p table align=center border=1 cellspacing=0 width=100% bordercolorlight=808000 bordercolordark=FFFFFF tr td width=56% align=center bgcolor=eeeeeestrong題目/strong/td td width=24% align=center bgcolor=eeeeeestrong時(shí)間/strong/td td width=10% align=center bgcolor=eeeeeestrong修改/strong/td td width=10% align=center bgcolor=eeeeeestrong選擇/strong/td /tr% 39。讀取當(dāng)前頁(yè)碼 iPage = Request(Page) If iPage =0 Then iPage = 1 End If If iPage Then iPage = End If = iPage 39。再使用Do While語(yǔ)句顯示新聞?dòng)涗洝＃?）顯示功能按鈕在表格下面顯示“添加新聞”、“全選”、“清空”和“刪除”按鈕．代碼如下：input type=button value=添加新聞 onclick=news90(39。) name=add amp。amp。input type=button value=全選 onclick=sltAll() name=button1 amp。amp。input type=button value=清空 onclick=sltNull() name=button2 amp。amp。input type=submit value=刪除 name=tijiao onclick=SelectChk()這些按鈕對(duì)應(yīng)的代碼將在后面結(jié)合具體功能介紹。圖51 添加新聞定義表單myfrom的代碼如下：form name=myform method=POST action=?action=add OnSubmit=return checkFields()提交前需要對(duì)表單進(jìn)行域校驗(yàn)，checkFields函數(shù)的功能就是這樣的，代碼如下：script language=javascriptfunction checkFields() { if (==) { alert(新聞?lì)}目不能為空)。 return false。 ()。 } return true。表單數(shù)據(jù)提交后．將執(zhí)行 ，參數(shù)action表示當(dāng)前的動(dòng)作，action=add表示添加記錄。得到動(dòng)作參數(shù)，如果為add則表示創(chuàng)建新聞，如果為edit則表示更改新聞 StrAction = (action) 39。在數(shù)據(jù)庫(kù)表News中插入新聞信息 () Else 39。nbsp。,‘) changechr = Replace(changechr,Chr(13),br)End Function 修改新聞信息修改新聞是點(diǎn)擊每個(gè)新聞的“修改”鏈接，用戶可以對(duì)它們進(jìn)行更改，然后提交數(shù)據(jù)。id=%=id% OnSubmit=return checkFields()與添加新聞相同的是．提交表單前同樣需要進(jìn)行域校驗(yàn)，由checkFields ( ）函數(shù)完成此功能。從數(shù)據(jù)庫(kù)中讀取并顯示新聞信息的代碼如下：% 39。參數(shù)id表示新聞編號(hào) id = (id) (id) If Then 沒(méi)有此新聞 Else content = Replace((NContent),br,chr(13)) content = Replace(content,amp。, )%表單數(shù)據(jù)提交后，參數(shù)action表示當(dāng)前的動(dòng)作，action=edit表示修改記錄。下面是幾個(gè)與選擇復(fù)選框相關(guān)的JavaScript函數(shù)。 for(j=0。j++) { (news,j).checked = true。 for(j=0。j++) { (news,j).checked = false。程序通過(guò)for循環(huán)語(yǔ)句將所有的news復(fù)選框值設(shè)為true。 for(j=0。j++) { (news,j).checked = false。 var deptid,n=0。 var nn = (news) for (j=0。j++) { if ((news,j).checked) { n = n + 1。 deptid = (news,j).id+。 } else { strid = strid + , + deptid。 if(!s) { alert(請(qǐng)選擇要?jiǎng)h除的新聞!)。 } if ( confirm(你確定要?jiǎng)h除這些新聞嗎？)) { =strurl。 }}程序?qū)γ總€(gè)復(fù)選框進(jìn)行判斷，如果復(fù)選框被選中，則將復(fù)選框的id值轉(zhuǎn)換為字符串，并追加到變量strid中。就可以刪除選中記錄了。從數(shù)據(jù)庫(kù)中批量刪除新聞信息Dim idid = (id)(id)()%刪除后提示成功刪除信息。圖52 單看新聞信息，顯示新聞的代碼如下：% Set ns = New News 39。設(shè)置SELECT語(yǔ)句，讀取新聞數(shù)據(jù)到記錄集rs中 (id) If Then 沒(méi)有此新聞。生成表格，顯示新聞標(biāo)題和內(nèi)容%table border=0 width=100% cellspacing=6trtd width=100% align=centerfont size=4b%=(NTitle)%/b/font/td/trtrtd%=(NContent)%/td/tr/table% End If % 企業(yè)信息管理模塊設(shè)計(jì)企業(yè)信息管理模塊可以實(shí)現(xiàn)以下功能：（1）添加企業(yè)記錄。（3）刪除企業(yè)記錄。 設(shè)計(jì)企業(yè)管理頁(yè)面在admin\ 中單擊“企業(yè)管理”超鏈接，將執(zhí)行admin\。 添加和修改企業(yè)信息在CompList頁(yè)面中，單擊“添加公司”按鈕，,添加企業(yè)信息，如圖54所示。定義表單myfrom的代碼如下：form name=form1 method=POST action=?flag=%=iflag% onsubmit=return CheckFlds()提交前需要執(zhí)行CheckFlds函數(shù)，對(duì)表單進(jìn)行域效驗(yàn)。：% 39。,‘) flag = (flag) Set cp = New Company cid = Request(cid) = cid = ame = Request(pwd) = Date() 39。在數(shù)據(jù)庫(kù)表Company中插入新企業(yè)用戶 If Not (Request(cid)) Then () h3企業(yè)信息成功保存/h3 Else Scriptalert(39。)。/Script End If Else (cid) h3企業(yè)信息成功保存/h3 End If%可以看出。：% Dim cid,ame,pwd,iflag iflag = 0 pwd = 39。如果不為空，則表示修改記錄，此時(shí)讀取企業(yè)數(shù)據(jù) If cid Then (cid) If Not Then pwd = (CPwd) iflag = 1 ame = (ame) End If End If%修改數(shù)據(jù)的表單提交時(shí)，程序會(huì)自動(dòng)判斷當(dāng)前狀態(tài)，并保存數(shù)據(jù)。 查看企業(yè)信息單擊企業(yè)超連接，查看企業(yè)信息。在企業(yè)信息的下面，還將顯示企業(yè)招聘職位的連接信息，代碼如下：% Set jb = New JobInfo (cid) Do While Not trtdamp。amp。a href=39。(JobId)amp。amp。/a/td/tr Loop%程序從表Job 中讀取用戶名等于當(dāng)前企業(yè)用戶的記錄，并依次顯示招聘職位的鏈接，參數(shù)jid表示此職位的編號(hào)。 企業(yè)用戶管理界面設(shè)計(jì)企業(yè)用戶在系統(tǒng)主頁(yè)面中登錄后，單擊“企業(yè)數(shù)據(jù)管理”超鏈接，將打開(kāi)pany\，如圖61所示。它們的鏈接內(nèi)容如表61所示。 設(shè)計(jì)查看企業(yè)信息頁(yè)面在pany\，右側(cè)網(wǎng)頁(yè)默認(rèn)顯示本企業(yè)信息，顯示頁(yè)面為pany\。：% Set cp = New Company (Session(UserName)) If Not Then’以表格形式顯示對(duì)象cp中保存的企業(yè)信息%根據(jù)Session變量UserName，可以得到當(dāng)前的用戶名，再根據(jù)此用戶名讀取企業(yè)用戶信息，并顯示在網(wǎng)頁(yè)的相關(guān)位置上。圖62 企業(yè)信息管理界面程序?qū)⒏鶕?jù)Session變量UserName讀取當(dāng)前登錄企業(yè)用戶的信息，代碼如下：% Set cp = New Company (Session(UserName)) If Not Then%，例如顯示企業(yè)名稱的代碼如下：input type=text name=pany size=50 value=%=(CName)%定義表單的代碼如下：form name=form1 method=POST action= onsubmit=return CheckFlds()當(dāng)用戶提交數(shù)據(jù)時(shí)，將首先調(diào)用CheckFlds()函數(shù)，對(duì)數(shù)據(jù)的有效性進(jìn)行檢查。nbsp。,‘)End Function 39。,‘) Set cp = New Company = Request(pany) = Request(type) = Request(formdate) = Request(contactor) If Request(empnum) = Then = 0 Else = CInt(Request(empnum)) End If = Request(city) = Request(telephone) = Request(fax) = Request() = Request(address) = Request(zipcode) = Reques