【正文】 rchar Not Null Null 所屬行業(yè) Rstel Varchar Not Null Null 電話 Renshi Varchar Not Null Null 人事主管 Address Varchar Not Null Null 企業(yè)地址 下表為 zp 招聘職位表，存放企業(yè)所招聘的職位信息： Field Type Null Key Default Extra Comment Id Varchar Not Null PRI Null IDENTITY(1,1) 主 鍵，遞增 Usid Varchar Not Null Null 用戶編號(hào) Uname Varchar Not Null Null 用戶名 Job Varchar Not Null Null 職位名稱 Zptext Datetime Not Null Null 職位信息 Click Int Not Null 0 點(diǎn)擊數(shù) Idate Datetime Not Null Null 發(fā)布日期 Zpnum Text Not Null Null 招聘人數(shù) Nianlings Varchar Null Null 年齡要求 Edus Varchar Null Null 學(xué)歷要求 Languages Varchar Null Null 語言要求 Jobtypes Varchar Null Null 工作類型 Computers Varchar Null Null 計(jì)算機(jī)水平 Sexs Varchar Null Null 性別要求 Youxiaos Varchar Null Null 有效時(shí)間 Marrys Varchar Null Null 婚姻狀況要求 Zyes Varchar Null Null Moneys Varchar Null Null 工作待遇 Gzdd Varchar Null Null Cname Varchar Null Null Addtime Datetime Null Null Cypic Varchar Null Null 公用模塊的編寫 ① 數(shù)據(jù)庫連接文件 數(shù)據(jù)庫連接文件 中定義了數(shù)據(jù)庫連接對(duì)象，并開啟數(shù)據(jù)連 接備用，同時(shí)打開一個(gè) 記錄集，取出一些系統(tǒng)所需常數(shù)并保存在本地變量中， 文件的內(nèi)容如下所示： 數(shù)據(jù)庫連接文件 % Set conn = () Driver={Microsoft Access Driver (*.mdb)}。 (database/) set rs=createobject() sql=select * from system sql,Conn if not then title=rs(title) homename=rs(homename) homeurl=rs(homeurl) copyen=rs(copyen) notice=rs(notice) tel=rs(tel) top=rs(top) link1=rs(link1) link11=rs(link11) link2=rs(link2) link22=rs(link22) link3=rs(link3) link33=rs(link33) link4=rs(link4) link44=rs(link44) link5=rs(link5) link55=rs(link55) link6=rs(link6) link66=rs(link66) ymail=rs(ymail) smail=rs(smail) address=rs(address) copy=rs(copy) pics1=rs(pics1) piclinks1=rs(piclinks1) pics2=rs(pics2) piclinks2=rs(piclinks2) pics3=rs(pics3) piclinks3=rs(piclinks3) pics4=rs(pics4) piclinks4=rs(piclinks4) end if set rs=createobject() sql=select * from link sql,Conn if not then piclink0=rs(piclink0) piclink00=rs(piclink00) piclink1=rs(piclink1) piclink11=rs(piclink11) piclink2=rs(piclink2) piclink22=rs(piclink22) piclink3=rs(piclink3) piclink33=rs(piclink33) piclink4=rs(piclink4) piclink44=rs(piclink44) piclink5=rs(piclink5) piclink55=rs(piclink55) piclink6=rs(piclink6) piclink66=rs(piclink66) piclink7=rs(piclink7) piclink77=rs(piclink77) piclink8=rs(piclink8) piclink88=rs(piclink88) piclink9=rs(piclink9) piclink99=rs(piclink99) piclinka=rs(piclinka) piclinkaa=rs(piclinkaa) piclinkb=rs(piclinkb) piclinkbb=rs(piclinkbb) piclinkc=rs(piclinkc) piclinkcc=rs(piclinkcc) banner=rs(banner) banners=rs(banners) banner1=rs(banner1) banner1s=rs(banner1s) scjj=rs(scjj) p0n=rs(p0n) p1n=rs(p1n) p2n=rs(p2n) p3n=rs(p3n) p4n=rs(p4n) p5n=rs(p5n) p6n=rs(p6n) p7n=rs(p7n) p8n=rs(p8n) p9n=rs(p9n) pan=rs(pan) pbn=rs(pbn) end if % 將經(jīng)常用到的程序變量保存在本地變量中，以便后續(xù)程序使用，這種方 法在開發(fā)中經(jīng)常用到，有如下兩個(gè)好處： ? 在編寫程序時(shí)減少工作量。 ② 頁面頭文件 由于頁面的頭部導(dǎo)航部分都是類似的，因此可以將起單獨(dú)放在一個(gè)文件 中，并在需要使用的地方使用 include 指令來引入文件，使得程序模式化。其中在顯示廣告橫幅時(shí)調(diào)用了在 文件中從數(shù)據(jù)庫中取出并復(fù)制到本地變量中的廣告圖片數(shù)據(jù)。 ④ 登陸判定 當(dāng)個(gè)人擁護(hù)進(jìn)行例如發(fā)布簡(jiǎn)歷、修改個(gè)人信息等操作時(shí)，程序需要驗(yàn)證用戶是否已經(jīng)登陸作為前提條件，如果用戶沒有登陸，則不應(yīng)該訪問這些頁面，因此需要制作一個(gè)判斷用戶是否登陸并加以處理的模塊。在本系統(tǒng)中，以對(duì)個(gè)人用戶是否登陸的判定例示講解對(duì)于登陸的判定方法，對(duì)個(gè)人用戶是否登陸的判斷是通過在 inc/ 文件中的代 碼實(shí)現(xiàn)的，如下所示： inc/ 文件中用戶登陸判定代碼 % if session(cuid) and session(puid) then SCRIPT language=VBScriptalert(39。)。../39。操作超時(shí)，請(qǐng)重新登錄！ 39。 =39。/SCRIPT end if Set conn = () Driver={Microsoft Access Driver (*.mdb)}。 (../database/) set rs=createobject() sql=select * from system sql,Conn if not then title=rs(title) homename=rs(homename) homeurl=rs(homeurl) copyen=rs(copyen) notice=rs(notice) tel=rs(tel) top=rs(top) link1=rs(link1) link11=rs(link11) link2=rs(link2) link22=rs(link22) link3=rs(link3) link33=rs(link33) link4=rs(link4) link44=rs(link44) link5=rs(link5) link55=rs(link55) link6=rs(link6) link66=rs(link66) ymail=rs(ymail) smail=rs(smail) address=rs(address) copy=rs(copy) pics1=rs(pics1) piclinks1=rs(piclinks1) pics2=rs(pics2) piclinks2=rs(piclinks2) pics3=rs(pics3) piclinks3=rs(piclinks3) pics4=rs(pics4) piclinks4=rs(piclinks4) end if % % set rs=createobject() sql=select * from link sql,Conn if not then piclink0=rs(piclink0) piclink00=rs(piclink00) piclink1=rs(piclink1) piclink11=rs(piclink11) piclink2=rs(piclink2) piclink22=rs(piclink22) piclink3=rs(piclink3) piclink33=rs(piclink33) piclink4=rs(piclink4) piclink44=rs(piclink44) piclink5=rs(piclink5) piclink55=rs(piclink55) piclink6=rs(piclink6) piclink66=rs(piclink66) piclink7=rs(piclink7) piclink77=rs(piclink77) piclink8=rs(piclink8) piclink88=rs(piclink88) piclink9=rs(piclink9) piclink99=rs(piclink99) piclinka=rs(piclinka) piclinkaa=rs(piclinkaa) piclinkb=rs(piclinkb) piclinkbb=rs(piclinkbb) piclinkc=rs(piclinkc) piclinkcc=rs(piclinkcc) p0n=rs(p0n) p1n=rs(p1n) p2n=rs(p2n) p3n=rs(p3n) p4n=rs(p4n) p5n=rs(p5n) p6n=rs(p6n) p7n=rs(p7n) p8n=rs(p8n) p9n=rs(p9n) pan=rs(pan) pbn=rs(pbn) banner=rs(banner) banners=rs(banners) scjj=rs(scjj) end if % 程序首先獲得 session 中保存用戶編號(hào)的值，如果這個(gè)值為空則會(huì)提示用戶登陸非法，并同時(shí)跳轉(zhuǎn)回主頁，達(dá)到屏蔽用戶訪問的目的，如果不為空，則說明用戶已經(jīng)登陸，此時(shí)程序打開一個(gè)記錄集，并取出系統(tǒng)社頂信息及友情連接信息，存放在臨時(shí)變量中。 ⑤ 管理員登陸模塊 在本系統(tǒng)中，設(shè)計(jì)了管理員登陸的后臺(tái)管理頁面，此頁面首先檢測(cè)session 的值來判斷管理員是否登陸，如果沒有登陸，則顯示登陸的表單，如下圖： 這部分的處理代碼和用戶登陸的表單原理類似，這里就不在詳述了，下面展示一下接受并處理管理員登陸的代碼，如下： 管理員登陸處理頁面 !include file=../inc/ % dim rs admin1=(admin) pwd1=(pwd)