【文章內(nèi)容簡(jiǎn)介】 單資料 會(huì)員維護(hù) 購(gòu)物資料 統(tǒng)計(jì)信息 修改密碼 收貨資料 數(shù)據(jù)庫(kù)設(shè)計(jì) 概念機(jī)構(gòu)設(shè)計(jì) 成功 用戶登陸 用戶 進(jìn)入 購(gòu)物車功能 用戶登錄 常見(jiàn)問(wèn)題管理 網(wǎng)上書(shū)店 出版社維護(hù) 會(huì)員注冊(cè) 修改個(gè)人資料 瀏覽圖書(shū)信息 查找圖書(shū) 查看收貨 圖書(shū)信息維護(hù) 會(huì)員維護(hù) 訂單維護(hù) 管理員維護(hù) 網(wǎng)上商城可簡(jiǎn)單的劃分為 2 個(gè)部分，如圖 所示： 圖 數(shù)據(jù)庫(kù)邏輯結(jié)果設(shè)計(jì) 主 頁(yè) 用 戶 管理員 鏈接數(shù)據(jù)庫(kù) 程序清單 數(shù)據(jù)庫(kù)鏈接文件的實(shí)現(xiàn) % Option Explicit 39。要求變量聲明，這樣所有包含此文件的都需要聲明變量 dim conn 39。數(shù)據(jù)庫(kù)連接 dim connstr 39。連接字符串 dim db 39。數(shù)據(jù)庫(kù)文件路徑 db = ../Database/ 39。演示時(shí)用 ACCESS 數(shù)據(jù)庫(kù) connstr = Provider = 。Data Source = amp。 (db) Set conn = () if err Then end if connstr 39。關(guān)閉數(shù)據(jù)庫(kù)連接，在每頁(yè)中調(diào)用此函數(shù)，將連接放入連接池 sub CloseConn() () Set conn = Nothing end sub 39。替換單引號(hào) function RealString(strSrc) RealString = Replace(Trim(strSrc), 39。, 39。39。) end function % 第五章詳細(xì)設(shè)計(jì) 前臺(tái)的管理 前臺(tái)主要實(shí)現(xiàn)圖書(shū)目錄的分類顯示和在線購(gòu)物功能以及注冊(cè)登陸 首頁(yè) 主要代碼如下 ： 程序清單 客戶端首頁(yè)結(jié)構(gòu)定義 ! include file = include/ ! include file = include/ HTMLHEAD ! include file = include/ /HEAD BODY ! 頁(yè)頭與菜單 TABLE align = center cellSpacing = 0 cellPadding = 0 width = 750 border = 0 ID = tabMain class = tabframe TBODY TR TD % ShowHeadAndMenu() % /TD /TR /TBODY /TABLE ! 頁(yè)面中間部分 TABLE align = center cellSpacing = 0 cellPadding = 0 width = 750 border = 1 height = 411 ID = Table3 class = tabframe TBODYTR !左側(cè)頁(yè)面 TD vAlign = top align = middle width = 180 height = 411 table width = 95%trtd ! include file = include/ /td/tr/table /TD !右側(cè)頁(yè)面 TD vAlign = top align = right height = 411 ! 最新推薦圖書(shū) TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 width = 100% bgColor = 666666 borderColorLight = aaaaaa border = 1 ID = Table6 TBODYTR TD TABLE cellSpacing = 0 cellPadding = 0 width = 100% bgColor = ffffff border = 0 style = bordercollapse: collapse bordercolor = 111111 ID = Table7 TBODY TR TD % call ShowTheBest() %/TD /TR/TBODY/table /TD /TR/TBODY/TABLE ! 搜索表單 TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 width = 100% bgColor = 666666 borderColorLight = aaaaaa border = 1 ID = Table18 TBODYTR TD TABLE cellSpacing = 0 cellPadding = 0 width = 100% bgColor = ffffff border = 0 style = bordercollapse: collapse bordercolor = 111111 ID = Table19 TBODY TR TD bgColor = f0f8ff% call ShowSearchForm(, ) %/TD /TR/TBODY/TABLE /TR/TBODY/TABLE ! 最新圖書(shū)預(yù)覽 TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 width = 100% bgColor = 666666 borderColorLight = aaaaaa border = 1 ID = Table2 TBODYTR TD TABLE cellSpacing = 0 cellPadding = 0 width = 100% bgColor = ffffff border = 0 style = bordercollapse: collapse bordercolor = 111111 ID = Table5 TBODY TR TD % call ShowNewProductPreview(Top, , , ) %/TD /TR/TBODY/table /TD /TR/TBODY/TABLE /TD! 右側(cè)頁(yè)面結(jié)束 /TR/TBODY/TABLE!頁(yè)面中間部分結(jié)束 !頁(yè)尾 ! include file = include/ /BODY /HTML 程序清單 ShowMemberLogin 過(guò)程實(shí)現(xiàn) % 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 39。 顯示會(huì)員登 錄框 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 function ShowMemberLogin2() % TABLE cellSpacing = 0 cellPadding = 0 width = 100% border = 0 ID = Table8 TBODY ! TR TD height = 15 bgcolor = %=conGlobalBgColor%/TD /TR TR TD height = 20 background = images/ align = centerstrong會(huì)員登陸 /strong /TD /TR TR TD height = 5/TD /TR TR TD vAlign = top table width = 95% border = 0 align = center cellpadding = 0 cellspacing = 0 ID = Table9 tr td % call ShowUserLogin() % /td /tr /table /TD /TR TR TD height = 5/TD /TR /TBODY /TABLE % end function % % 39。 ================================================= 39。過(guò)程名： ShowUserLogin 39。作 用：顯示會(huì)員登錄表單 39。參 數(shù)：無(wú) 39。 ================================================= sub ShowUserLogin() dim strLogin If Session(memberID) = Then % table width = 39。100%39。 border = 39。039。 cellspacing = 39。039。 cellpadding = 39。039。 ID = Table3 form action = method = post name = userLogin ID = Form3 TBODY tr td height = 39。2539。 align = 39。right39。會(huì)員名： /td td height = 39。2539。input type = text name = memberID size = 10 maxlength = 16 ID = Text2 class = editbox1/td /tr tr td height = 39。2539。 align = 39。right39。密 碼： /td td height = 39。2539。input type = password name = password size = 10 maxlength = 16 ID = Password2 class = editbox1/td /tr tr align = 39。center39。 td height = 39。2539。 colspan = 39。239。 input name = Submit type = submit value = 登錄 ID = Submit2 input name = 39。Reset39。 type = 39。reset39。 id = 39。Reset39。 value = 39。 清除 39。 /td /tr tr td height = 39。2039。 align = 39。center39。 colspan = 39。239。a href = 39。39。新會(huì)員注冊(cè) /a a href = javascript:opennew(39。39。, 39。找回密碼 39。, %=conPopWidth%,%=conPopHeight%) 忘記密碼？ /a/td /tr