【正文】 amp。 rec(name)% /A /FONT /FONT/STRONGFONT/FONT/TD TDSTRONGFONT color=mediumorchid face=FONT %=rec(wanted)% /FONT /FONT/STRONGFONT/FONT/TD /TR % next % /TABLEP/P%for i=1 to if trim((page))trim(i) then [a href=39。?page= amp。 i amp。 39。第 amp。 i amp。 頁/a]amp。nbsp else [第 amp。 i amp。 頁]amp。nbsp end ifnext set rec=nothing%/FORMPamp。nbsp。/P/BODY/HTML 單位詳細信息（），查看單位的具體信息，顯示該頁面。該頁面接收一個參數(shù)值id。根據(jù)參數(shù)值從數(shù)據(jù)庫的info表中提取相應(yīng)的公司記錄。根據(jù)id的參數(shù)值為ant顯示相應(yīng)公司的記錄。 此外還提供一個信息發(fā)送框，可以填寫發(fā)送信息給單位。最終發(fā)送給單位的消息將寫入到數(shù)據(jù)庫的user表中。%if (_method)=GET then set conn=() =dsn=findjob strsql=select * from info where id=39。 amp。 (id) amp。 39。 set sqlresult=(strsql) %HTMLHEADMETA NAME=GENERATOR Content=Microsoft Visual Studio /HEADBODY……中間代碼略……% set conn=nothingelse set rec=() =dsn=findjob =select * from user ,1,3 //將求職者發(fā)給公司的信息加入到數(shù)據(jù)庫中 rec(id)=(id) rec(user)=session(useronline) rec(touser)=2 rec(message)=(message) set rec=nothing // ?message=給該公司/單位的消息已經(jīng)發(fā)出?。?！end if%/BODY/HTML 單位查詢（）用戶可以在該文件顯示的頁面中查詢單位的情況。在“單位招聘的人才類型”中填入相應(yīng)的字符串，如“計算機”，點擊“查詢”按鈕，顯示查詢結(jié)果。這些功能均由該文件來完成。查詢結(jié)果顯示的單位信息有單位名稱、單位地址和單位需要的人才類型，其中在單位名稱提供了一個鏈接如下：？id=ant點擊該鏈接可以查看單位的具體信息。/FORM%if (_method)=POST then if (txtsearch)= then 請?zhí)顚懖樵儣l件 else //根據(jù)查詢條件查詢符合條件的單位 select=(txtsearch) set md=() =dsn=findjob //find為帶參數(shù)的存儲查詢 =find //為該存儲查詢輸入?yún)?shù)的值 set mprama=(strsearch,200,1,40,select) mprama //執(zhí)行查詢 set mrs=%TABLE border=1 cellPadding=1 cellSpacing=1 width=90% TR TD公司名稱/TD TD公司地址/TD TD需求人才類型/TD /TR % while not //用表格的形式列出所有符合查詢條件的單位% TR TDSTRONGFONT color=mediumorchid face=FONT % a href=?id= amp。 mrs(id) amp。 amp。 mrs(name)% /A /FONT /FONT/STRONGFONT/FONT/TD TD%=mrs(addr)% /TD TD%=mrs(wanted)% /TD /TR% wend end ifend if% 應(yīng)聘結(jié)果（）該頁面的作用為顯示單位發(fā)給個人的信息。點擊左窗口的“本人應(yīng)聘情況”，則在右窗口顯示該頁面。單位與個人之間的消息存在數(shù)據(jù)庫的user表中，該表的字段touser的值如果為1，則表示信息是從單位發(fā)給個人的，如果為2則表示消息是從個人發(fā)給單位的。%@ Language=VBScript %%set rec=()=dsn=findjob=select * from user where user=39。 amp。 session(useronline) amp。 39。 and touser=1 ,1,1if and (page)=1 then ?message=你沒有被招聘錄用的消息end if%……中間內(nèi)容略……%=1if (_method)=GET then //第一次請求，頁面的值為1 page=cint(request(page))end ifif (submit)=后一個 then page=request(page) + 1 //后一個則加1end ifif (submit)=前一個 then page=request(page)1 //前一個則減1end if =pageif page1 then INPUT type=submit value=前一個 id=submit2 name=submitelse INPUT type=submit value=前一個 id=submit2 name=submit disabled=trueend ifif page then INPUT type=submit value=后一個 id=submit1 name=submitelse INPUT type=submit value=后一個 id=submit1 name=submit disabled=trueend if INPUT type=hidden value= amp。 page amp。 id=hid3 name=pagetempid=rec(id)tempmessage=rec(message) =select * from info where id=39。 amp。 tempid amp。 39。 ,1,3% 招聘單位部分 單位登記（reg文件）該頁面的作用是提供一個讓招聘單位注冊的頁面。招聘單位填寫注冊詳細資料的表單后提交到本頁面進行處理。將提交的內(nèi)容寫入到數(shù)據(jù)庫info表中，提示以及完成注冊登記。%@ Language=VBScript %%if session(name) then ?message=貴單位/公司已經(jīng)完成的登記，可以進行修改end if%%if (_method)=POST then //處理提交的登記資料 set rec=() =dsn=findjob =select * from info where id=39。 amp。 session(online) amp。 39。 //根據(jù)存儲在session(online)的公司帳號修改公司的記錄 ,1,3 //根據(jù)提交的表單內(nèi)容更新記錄 rec(name)=(name) rec(addr)=(addr) rec(wanted)=(wanted) rec(introduce)=(introduce) session(name)=(name) set rec=nothing ?message=完成了單位/公司的資料登記end if %以下為提供注冊用的表單，省略。 單位情況登記 單位信息編輯（）該文件的作用是為用戶提供修改單位注冊資料的表單，并且根據(jù)提交表單的內(nèi)容對數(shù)據(jù)庫的info表相應(yīng)的記錄進行修改。，提示修改數(shù)據(jù)成功的消息。%@ Language=VBScript %%if session(name)= then//如果還沒有登記，則重定向到信息提示頁面提示先進行登記 ?message=請先進行單位/公司資料的登記end if%%//使用Connection對象對數(shù)據(jù)庫進行操作set conn=()=dsn=findjobif (_method)=POST then //如果是本頁面提交修改 m_name=(txtname) m_addr=(txtaddr) m_wanted=(txtwanted) m_introduce=(txtintro) //定義更新單位記錄的sql語句 strsql=update info set name=39。 amp。 m_name amp。 39。,addr=39。 _ amp。 m_addr amp。 39。,wanted=39。 amp。 m_wanted amp。 39。,introduce=39。 amp。 _ m_introduce amp。 39。 where id=39。 amp。 session(online) amp。 39。 //執(zhí)行修改操作 (strsql) //重定向到信息提示頁面 ?message=單位/公司資料的修改完成end if//以下是根據(jù)公司的帳號查詢公司的記錄顯示在表單上以進行修改strsql=select * from info where id=39。 amp。 session(online) amp。 39。set sqlresult=(strsql)% 查看所有求職者（）該文件的作用是分頁顯示所有注冊個人（求職者）的簡要信息（姓名、年齡、專業(yè)和工作意向）。其中姓名提供一個鏈接，點擊該鏈接，可以查看個人的具體信息。如一個求職者的賬號為aaa，則在該單位名稱下面提供的鏈接為：？user=aaa，user=aaa是傳遞的參數(shù)和值。%set rec=()=select user,username,userage,usermajor,job1,job2 from userinfo where usernamenull=dsn=findjob ,1,1=10if request(page)= then =1else =request(page)end if for i=1 to if then exit for end if%……中間代碼略…… % next %%for i=1 to if trim((page))trim(i) then [a href=39。?page= amp。 i amp。 39。第 amp。 i amp。 頁/a]amp。nbsp else [第 amp。 i amp。 頁]amp。nbsp end ifnext set rec=nothing% 查詢個人信息（），查看個人具體信息，顯示該頁面。該頁面接受一個參數(shù)值user。根據(jù)該參數(shù)值從數(shù)據(jù)庫的userinfo表中提取相應(yīng)的公司記錄。根據(jù)user的參數(shù)值為“kkk”顯示的個人的記錄。此外，該頁面還有“初步錄用”，點擊后提交到本頁面，將初步錄取的個人的賬號加入到session屬性“namelist”中。假如初步錄取了3個人（他們的賬號分別為aaa，bbb和ccc），則session（“namelist”）的值為：‘a(chǎn)aa’,’bbb’,’ccc’。P align=centerSTRONGFONT color=slateblue face=幼圓 size=5