【文章內(nèi)容簡(jiǎn)介】 lput,MaxPerPage,url else if (currentPage1)*MaxPerPagetotalPut then (currentPage1)*MaxPerPage dim bookmark bookmark= showContent showpage totalput,MaxPerPage,url else currentPage=1 showContent showpage totalput,MaxPerPage,url end if end if end ifset rs=nothing sub showContentdim ii=0%% do while not %table width=100% border=0 cellspacing=0 cellpadding=0tr align=center valign=middle% for j=1 to 3 %td width=33%% if not and iMaxPerPage then %table width=202 border=0 cellspacing=0 cellpadding=0trtd align=center valign=toptable width=202 border=0 cellpadding=0 cellspacing=0trtd width=202 height=166 align=center valign=middle background=images/% if rs(img) then %a href=%=rs(img)% target=_blankimg src=%=rs(img)% width=160 height=120 border=0 onload=javascript:DrawImage(this)。 //a% end if %/td/tr/table/td/tr/table%i=i+1else amp。nbsp。end if%br //td% next %/tr/table%if i=MaxPerPage then exit doloopend sub%%function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if img src=39。images/39。 width=39。30039。 height=39。3039。br共amp。totalnumberamp。條信息amp。nbsp。每頁(yè)顯示amp。maxperpageamp。條amp。nbsp。目前顯示第span class=39。zijuxi39。amp。CurrentPageamp。/span/amp。namp。頁(yè)amp。nbsp。amp。nbsp。 if CurrentPage2 then else amp。nbsp。amp。nbsp。a href=amp。filenameamp。?page=1首頁(yè)/a amp。nbsp。amp。nbsp。a href=amp。filenameamp。?page=amp。CurrentPage1amp。上一頁(yè)/a end if if ncurrentpage1 then else amp。nbsp。amp。nbsp。a href=amp。filenameamp。?page=amp。(CurrentPage+1)amp。下一頁(yè)/a amp。nbsp。amp。nbsp。a href=amp。filenameamp。?page=amp。namp。尾頁(yè)/a end ifend function %3．3．2 領(lǐng)導(dǎo)關(guān)懷的實(shí)現(xiàn)結(jié)構(gòu)和代碼與榮譽(yù)資質(zhì)模塊相同，只是添加了對(duì)每張圖片的簡(jiǎn)要說(shuō)明，并把每行顯示3張圖片改為只顯示2張圖片。改動(dòng)部分的源代碼如下：% for j=1 to 2 %td width=50% valign=top% if not and iMaxPerPage then %table width=280 border=0 cellspacing=0 cellpadding=0trtd align=center valign=toptable width=202 border=0 cellpadding=0 cellspacing=0trtd width=202 height=166 align=center valign=middle background=images/% if rs(img) then %a href=%=rs(img)% target=_blankimg src=%=rs(img)% width=160 height=120 border=0 onload=javascript:DrawImage(this)。 //a% end if %/td/tr/table/td/trtrtd align=left valign=top class=zihangju%=rs(title)%/td/tr/table3．4 工程業(yè)績(jī)的實(shí)現(xiàn)工程業(yè)績(jī)分為六類，這六類被放進(jìn)了數(shù)據(jù)庫(kù)中。點(diǎn)擊每一個(gè)類別的鏈接，跳轉(zhuǎn)顯示各自類別下的圖片，圖片每行顯示3張，每頁(yè)顯示15張。需要解決的技術(shù)問(wèn)題是：1，判斷當(dāng)前的類別，把類別名稱填進(jìn)網(wǎng)頁(yè)當(dāng)前位置項(xiàng)里，源代碼如下：工程業(yè)績(jī) amp。gt。%set rs=() select * from [gclb] where id=amp。request(type),conn,1,1if not then rs(title)end ifset rs=nothing%2，讀取全部的類別，形成一張動(dòng)態(tài)的網(wǎng)頁(yè)鏈接表，點(diǎn)擊鏈接跳轉(zhuǎn)顯示各自類別下的圖片，源代碼如下：%if request(type)= thendtype=1elsedtype=cint(request(type))end ifset rs1=() select * from [gclb] order by id,conn,1,1 do while not if rs1(id)=dtype then%amp。nbsp。amp。nbsp。a href=?type=%=rs1(id)%span class=zijuxi%=rs1(title)%/span/aamp。nbsp。amp。nbsp。% else %amp。nbsp。amp。nbsp。a href=?type=%=rs1(id)%%=rs1(title)%/aamp。nbsp。amp。nbsp。%end ifloopset rs1=nothing%3，在初始未提交類別的情況下，將顯示第一類類別的圖片，源代碼如下（其余代碼因和榮譽(yù)資質(zhì)相同，可參看上面的代碼，故省略）：%url=?type=amp。request(type)……if request(type) thensql=select * from [gongcheng] where type=amp。request(type)amp。 order by pxelsesql=select * from [gongcheng] where type=1 order by pxend if……%3．5 機(jī)械裝備的實(shí)現(xiàn)因結(jié)構(gòu)和代碼與榮譽(yù)資質(zhì)部分相同，可參看上面的代碼，故省略。3．6 在線反饋的實(shí)現(xiàn)本模塊設(shè)置了一個(gè)反饋表單，由用戶填寫(xiě)每一個(gè)項(xiàng)，其中打*的為必填項(xiàng)，表單提交后數(shù)據(jù)被保存到數(shù)據(jù)庫(kù)中，管理員登錄后可查看到反饋信息。網(wǎng)頁(yè)截圖如下：圖35 在線反饋源代碼如下：%select case request(action)case %table width=668 border=0 cellpadding=0 cellspacing=0trtd align=left valign=top class=zihangjutable width=600 border=0 cellpadding=0 cellspacing=0trtd align=center valign=toptable width=450 border=5 cellpadding=0 cellspacing=0 bordercolor=F0E8DCtrtdtable width=100% border=0 cellpadding=4 cellspacing=1 bgcolor=FFFFFFform action=?action=save method=post name=myform id=myform onSubmit=return doCheck()tr align=center valign=middle bgcolor=BFAC8Etd colspan=2■span class=zishenhuixi　請(qǐng)留下您的寶貴意見(jiàn)和建議，謝謝！/span/td/trtr bgcolor=F0E8DCtd width=80 align=right valign=middle bgcolor=F0E8DC標(biāo)題：/tdtd align=left valign=middleinput name=title type=text class=fminpt id=title maxlength=50 /span class=zijuxi*/span /td/trtr bgcolor=FAF7F2td width=80 align=right valign=middle bgcolor=FAF7F2姓名：/tdtd align=left valign=middleinput name=name type=text class=fminpt id=name maxlength=10 /span class=zijuxi*/span /td/trtr bgcolor=F0E8DCtd width=80 align=right valign=middle bgcolor=F0E8DC所在單位：/tdtd align=left valign=middleinput name=corname type=text class=fminpt id=corname maxlength=50 //td/trtr bgcolor=FAF7F2td width=80 align=right valign=middle bgcolor=FAF7F2地址：/tdtd align=left valign=middleinput name=address type=text class=fminpt id=address maxlength=50 /span class=zijuxi*/span /td/trtr bgcolor=F0E8DCtd width=80 align=right valign=middle bgcolor=F0E8DC郵編：/tdtd align=left valign=middleinput name=zipcode type=text class=fminpt id=zipcode maxlength=10 //td/trtr bgcolor=FAF7F2td width=80 align=right valign=middle bgcolor=FAF7F2電話：/tdtd align=left valign=middleinput name=tel type=text class=fminpt id=tel maxlength=50 /span class=zijuxi*/span /td/trtr bgcolor=F0E8DCtd width=80 align=right valign=middle bgcolor=F0E8DC傳真：/tdtd align=left valign=middleinput name=fax type=text class=fminpt id=fax maxlength=50 //td/trtr bgc