【文章內(nèi)容簡(jiǎn)介】 。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。過程名：ShowUserLogin39。作 用：顯示會(huì)員登錄表單39。參 數(shù)：無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。密amp。nbsp。amp。nbsp。碼：/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è)/aamp。nbsp。amp。nbsp。a href = javascript:opennew(39。39。, 39。找回密碼39。, %=conPopWidth%,%=conPopHeight%) 忘記密碼？/a/td /tr /TBODY /form /table % Else % 歡迎您！%=Session(memberID)% brbr a href = 39。39。查看我的資料/aamp。nbsp。amp。nbsp。a href = 39。39。 注銷/a % end ifend sub39。 ================================================= 39。過程名：ShowMemberLogin39。作 用：顯示會(huì)員登錄表單39。參 數(shù)：無39。 ================================================= sub ShowMemberLogin() dim strLogin If Session(memberID) = Then % table width = 39。100%39。 border = 39。039。 cellspacing = 39。039。 cellpadding = 39。039。 ID = Table1 form action = method = post name = userLogin ID = Form1 TBODY tr td 會(huì)員名：input type = text name = memberID size = 10 maxlength = 16 ID = Text1 class = editbox1 密碼：input type = password name = password size = 10 maxlength = 16 ID = Password1 class = editbox1 input name = Submit type = submit value = 登錄 ID = Submit1 class = editbox1 input name = 39。Reset39。 type = 39。reset39。 id = Reset1 value = 39。清除39。 class = editbox1amp。nbsp。 a href = 39。39。[注冊(cè)]/aamp。nbsp。 a href = javascript:opennew(39。39。, 39。找回密碼39。, %=conPopWidth%,%=conPopHeight%) 忘記密碼？/a /td /tr /TBODY /form /table % Else % 歡迎您，font color = redb%=Session(memberID)%/b/font！ amp。nbsp。amp。nbsp。 a href = 39。39。[查看我的資料]/aamp。nbsp。amp。nbsp。amp。nbsp。a href = 39。39。 [注銷]/a % end ifend sub% 左側(cè)快捷菜單實(shí)現(xiàn)代碼 ! 圖書類型 TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 width = 100% borderColorLight = aaaaaa border = 2 ID = Table1 TBODY TR TD ! include file = /TD /TR /TBODY/TABLE! include file = ! 熱賣圖書 TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 width = 100% borderColorLight = aaaaaa border = 1 ID = Table2 TBODY TR TD % 39。顯示購(gòu)買率最高的前6本書，需要傳入?yún)?shù)Hot和6 call ShowSpecialProduct(Hot, 6) % /TD /TR /TBODY/TABLE! 推薦圖書! TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 width = 100% borderColorLight = aaaaaa border = 1 ID = Table6 TBODY TR TD % call ShowSpecialProduct(Remended, 6) % /TD /TR /TBODY/TABLEBR! 打折圖書! TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 width = 100% borderColorLight = aaaaaa border = 1 ID = Table9 TBODY TR TD % 39。顯示最優(yōu)惠的前6種圖書，需要傳入?yún)?shù)Cheap和6 call ShowSpecialProduct(Cheap, 6) % /TD /TR /TBODY/TABLE ShowManufacturer過程的實(shí)現(xiàn)代碼Sub ShowManufacturer() dim strSQL, strTemp, rsObj, i table width = 39。100%39。 border = 39。039。 cellspacing = 39。039。 cellpadding = 39。039。 ID = 39。Table339。 strSQL = SELECT * FROM ProductType WHERE SuperID = 0 i = 0 set rsObj = (strSQL) do while not ( or err) trtd height = 23 img src =images/ a href = ?producttype= amp。 rsObj(ID) amp。 amp。 rsObj(Name) amp。 /a /td/tr i = i+1 if i100 then exit do loop 39。關(guān)閉集合，但不能關(guān)閉連接，因?yàn)槠渌胤娇赡芤?Set rsObj = Nothing /tableend sub% 熱賣圖書過程實(shí)現(xiàn)代碼 Sub ShowSpecialProduct(strFilter, nCount) dim strSpecialText if strFilter = Hot then strSpecialText = 熱賣圖書 elseif strFilter = Remended then strSpecialText = 推薦圖書 elseif strFilter = Cheap then strSpecialText = 最優(yōu)惠圖書 else strFilter = Hot strSpecialText = 熱賣圖書 end if% TABLE cellSpacing = 0 cellPadding = 0 width = 100% border = 0 ID = Table1 TBODY TR TD height = 20 background = images/ align = centerstrong%=strSpecialText%/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 = Table2 tr td % call ShowSpecialProductList(strFilter, nCount) % /td /tr /table /TD /TR