【導(dǎo)讀】畢業(yè)設(shè)計(jì)（論文）誠(chéng)信聲明。我個(gè)人在導(dǎo)師指導(dǎo)下進(jìn)行的研究工作及取得的研。就我所知，除了文中特別加以標(biāo)注和致謝。的地方外，論文中不包含其他人已經(jīng)發(fā)表和撰寫的。研究成果，也不包含為獲得華東交通大學(xué)或其他教。育機(jī)構(gòu)的學(xué)位或證書所使用過的材料。如在文中涉及抄襲或剽竊行為，本人愿承擔(dān)由。此而造成的一切后果及責(zé)任。答辯委員會(huì)主任簽字：?！暗燃?jí)”用優(yōu)、良、中、及、不及五級(jí)制（可按學(xué)院制定的畢業(yè)設(shè)計(jì)(論文)成績(jī)?cè)u(píng)定辦法評(píng)定。姓名學(xué)號(hào)畢業(yè)屆別專業(yè)計(jì)算機(jī)科學(xué)與技術(shù)

　　

【正文】 RetrieveLoginData else Serror= 請(qǐng)登錄 amp。 br amp。 Serror end if setsess Loginerror,Serror Setupreturnurl url url Sub RetrieveLogindata Dim fieldvalue If GetSess(Login)= then SetSess Login,Force end if LocateCustomer strLastName, str , strpassword If strCustomerID then LngLoginCount=lngLoginCount+1 UpdateCustomerSessionData UpdateLoginData SetSess Login,strlastname SetSess realname,strlastname Else SError = SError amp。 getlang(langLoginLocateFail) SetSess Login, end if ShopCloseDatabase dbc set rs=nothing end sub Sub UpdateLoginData Dim dbc 39。on error resume next OpenCustomerDB dbc 39。 Login count amp。 lngLoginCount sql = update customers set sql = sql amp。 logincount= amp。 lnglogincount 39。sql = sql amp。 ,lastlogindate=39。 amp。 date() amp。 39。 sql = sql amp。 ,lastlogindate= amp。 datedelimit(date() ) sql = sql amp。 where contactid= amp。 strcustomerid (sql) ShopCloseDatabase dbc end sub 39。 determine where to go to Sub SetupReturnurl (url) if returnurl then if Serror= then url=returnurl exit sub else url= end if exit sub end if If Getsess(Followonurl)= and getsess(Currenturl)= then If Serror= then url=getconfig(xhome) else url= end if exit sub end if If Serror= then url=GetSess(FollowonURL) else url=getSess(CurrentURL) end if end sub % 前臺(tái)界面設(shè)計(jì)與實(shí)現(xiàn) 首頁(yè)設(shè)計(jì) 一般的電子商務(wù)網(wǎng)站，首頁(yè)所含的信息量是非常大的，為了方便維護(hù)，對(duì)首頁(yè)進(jìn)行分塊處理，然后用包含的方式，把各個(gè)塊組裝起來，這樣不僅使頁(yè)面結(jié)構(gòu)清晰，而且維護(hù)方便。例程 35 為首頁(yè)的參考代碼。 例程 35 用戶首頁(yè)代碼 % dim productid productid=Request(id) if (productid=) then end if dim strUrlGo strUrlGo=/?id=amp。productid % 產(chǎn)品瀏覽 頁(yè)面 和頁(yè)面 的實(shí)現(xiàn)類試，這里只介紹 頁(yè)面實(shí)現(xiàn)的核心部分。例程 36 為頁(yè)面 。 圖 319 鮮花分類的目錄式檢索瀏覽頁(yè)面 例程 36 頁(yè)面開始部分代碼 % dim pagenum pagenum=16 % 在例程 36 中 pagenum定義每頁(yè)顯示的產(chǎn)品數(shù)量，默認(rèn)顯示 16 個(gè)鮮花產(chǎn)品?！?！ _ _includefile=””_ _引入 公用文件。 從例程 36 可以看出當(dāng)產(chǎn)品個(gè)數(shù)大于 16 的時(shí)候，就需要顯示在下一頁(yè)，因此需要實(shí)現(xiàn)產(chǎn)品的分頁(yè)顯示，例程 37 為 產(chǎn)品分 頁(yè)顯示的代碼。 例程 37 產(chǎn)品分野顯示的代碼 % dim dir,strPage,nPage dir=Request(dir) strPage=Request(Page) if (strPage=) then nPage=1 else nPage=CInt(strPage) end if dim MyValue,property MyValue=Request(MyValue) property=Request(property) if (property=) then property=0 end if if (MyValue=) then MyValue=0 end if dim result result=GetListFlower(property,MyValue) dim aryReturn,i aryReturn = Split(result,) dim startelment,endelment startelment=(nPage1)*pagenum endelment=nPage*pagenum1 if (endelment UBound(aryReturn)) then endelment=UBound(aryReturn) end if dim strSplitPage,allpage allpage=CInt((UBound(aryReturn)LBound(aryReturn))/) +1 strSplitPage= bfont color=redamp。nPageamp。/amp。allpageamp。/font 頁(yè)/b dim startShow,endShow,nextShow if ((nPage5)=0) then startShow=1 else startShow=nPage5 end if if ((nPage+5)allpage) then endShow=allpage else endShow=nPage+5 end if dim k For k=startShow To endShow dim showone showone=a href=39。?property=amp。propertyamp。amp。MyValue=amp。MyValueamp。amp。Page=amp。kamp。39。amp。kamp。/a strSplitPage=strSplitPageamp。showone Next if (nPage1) then nextShow=a href=39。?property=amp。propertyamp。amp。MyValue=amp。MyValueamp。amp。Page=amp。(nPage1)amp。39。上一頁(yè) /a end if nextShow=nextShowamp。 if (nPageallpage) then nextShow=nextShowamp。a href=39。?property=amp。propertyamp。amp。MyValue=amp。MyValueamp。amp。Page=amp。(nPage+1)amp。39。下一頁(yè) /a end if % !include file=inc//td td width=10 /td td valign=top table border=0 cellspacing=0 cellpadding=0 width=99% tr bgcolor=ddFFFFtd colspan=3 height=10 %=strSplitPage% /tdtd align=right %=nextShow% /td/tr % dim n n=0 For i = startelment To endelment dim one one=GetProduct(aryReturn(i)) if one(FIELDAUTOID)0 Then if ((n mod 4)=0) then tr end if % td width=20% align=center !include file=inc/ /td % if ((n mod 4)=3) then /tr end if n=n+1 end if Next % 例程 38 為 顯示產(chǎn)品的代碼。 例程 38 顯示 產(chǎn)品的代碼 % dim n n=0 For i = startelment To endelment dim one one=GetProduct(aryReturn(i)) if one(FIELDAUTOID)0 Then if ((n mod 4)=0) then tr end if % td width=20% align=center !include file=inc/ /td % if ((n mod 4)=3) then /tr end if n=n+1 end if Next % 例程 39 為頁(yè)面 的參考代碼。 例程 39 頁(yè)面 的參考代碼 a href=?id=%=one(FIELDAUTOID)% target=_blank img alt=鮮花 border=0 height=80 src=%=one(FIELDNETIMAGEMID) % width=80 /a br %=one(FIELDNAME)%br 銷售價(jià)格： %=one(FIELDSALEPRICE)%元 br a href=javascript:add2cart(39。%=one(FIELDAUTOID)%39。)img src=images/ width=40 height=17 border=0/a