【正文】 ================================================= Sub ShowNewProductPreview(ShowType, ProductType, KeyWord, CurPage) % TABLE cellSpacing = 0 cellPadding = 0 width = 100% bgColor = ffffff border = 0 style = bordercollapse: collapse bordercolor = 111111 ID = Table22 TBODY TR TD class = tabTitle height = 22 bgColor=%=conTitleColor%b新書快遞 /b/TD/TR 。 ShowType, ProductType, KeyWord, CurPage 39。作 用：預(yù)覽最新圖書 39。================================================= 39。 border: 1px solid 7D85A2。 border: 1px solid 7D85A2。 border: 1px solid 7D85A2。 border: 1px solid 7D85A2。 nTypeId：出版商編號(hào) 39。參 數(shù)： 39。過(guò)程名： ShowSearchForm 39。/option loop end if end sub % % 39。================================================= sub ProductTypeToSelect(nTypeId) dim strSQL, rsObj dim tempi dim nID, szName if Not IsNumeric(nTypeId) then nTypeId = 0 end if strSQL = SELECT * FROM ProductType WHERE SuperID = 0 set rsObj = (strSQL) if ( or err) then ERr! exit sub else do while not nID = rsObj(id) szName = rsObj(name) option value = amp。作 用：將出版商添加到下拉列表框中（無(wú)修飾） 39。================================================= 39。================================================= sub ShowProductTypeList(nTypeId) % SELECT name = ProductType style = backgroundcolor: rgb(210,232,255)。作 用：用下拉列表框顯示出版商 39。================================================= 39。只顯示部分圖書介紹， 39。確定大圖片 URL if rsObj(bigImg) = nothing then strSrc = images/ else strSrc = bigImg/amp。brbr () Set rsObj = Nothing Exit Sub end if 39。 ORDER by RemendDate DESC, buyNum DESC, ID DESC set rsObj = (strSQL) 39。 ================================================= Sub ShowTheBest() dim strSQL, rsObj dim strTemp, strSrc, strIntro strSQL = SELECT top 1 * FROM product strSQL = strSQL amp。作 用：顯示最新推薦圖書 39。 ================================================= 39。 /a /td/tr i = i+1 if i100 then exit do loop 39。 amp。... end if end if a href = ?id= amp。 /font折 ) else productName = rsObj(name) 39。 (font color = red amp。 . amp。輸出列表，在這里尤其要注意避免字符串拼接 do while not ( or err) trtd height = 23 img src = images/ 39。 ID, [Name] FROM Product strSQL = strSQL amp。 ORDER BY memberPrice/marketPrice, id desc else strSQL = SELECT TOP amp。 ID, [Name], memberPrice/marketPrice AS Discount strSQL = strSQL amp。因?yàn)橛玫搅顺?，所以要加上?duì)分母不為 0 的判斷 strSQL = SELECT TOP amp。 ID, [Name] FROM product strSQL = strSQL amp。 ORDER BY buyNum desc,id desc elseif strFilter = Remended then strSQL = SELECT TOP amp。 nCount amp。要在排序條件的最后加入以 id 排序， 39。 39。 ID = 39。 cellpadding = 39。 cellspacing = 39。 border = 39。檢查 nCount 的合法性 nCount = CInt(nCount) if nCount 20 then nCount = 20 if nCount 1 then nCount = 1 table width = 39。nCount：最大顯示數(shù)量 39。 Cheap: 最優(yōu)惠圖書 39。 Hot: 購(gòu)買次數(shù)最高的圖書 39。參 數(shù)： 39。過(guò)程名： ShowSpecialProductList 39。關(guān)閉集合，但不能關(guān)閉連接，因?yàn)槠渌胤娇赡芤? Set rsObj = Nothing /table end sub % 程序清單 熱賣圖書過(guò)程實(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 TR TD height = 5/TD /TR /TBODY /TABLE % end sub 39。 rsObj(Name) amp。 rsObj(ID) amp。Table339。039。039。039。100%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 /TABLE BR ! 打折圖書 ! TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 width = 100% borderColorLight = aaaaaa border = 1 ID = Table9 TBODY TR TD % 39。39。39。 找回密碼 39。39。39。清除 39。reset39。Reset39。039。039。039。100%39。參 數(shù)：無(wú) 39。過(guò)程名： ShowMemberLogin 39。 注銷 /a % end if end sub 39。查看我的資料 /a a href = 39。, %=conPopWidth%,%=conPopHeight%) 忘記密碼？ /a/td /tr /TBODY /form /table % Else % 歡迎您！ %=Session(memberID)% brbr a href = 39。, 39。新會(huì)員注冊(cè) /a a href = javascript:opennew(39。a href = 39。 colspan = 39。 align = 39。 /td /tr tr td height = 39。 value = 39。 id = 39。 type = 39。 input name = Submit type = submit value = 登錄 ID = Submit2 input name = 39。 colspan = 39。 td height = 39。input type = password name = password size = 10 maxlength = 16 ID = Password2 class = editbox1/td /tr tr align = 39。密 碼： /td td height = 39。 align = 39。input type = text name = memberID size = 10 maxlength = 16 ID = Text2 class = editbox1/td /tr tr td height = 39。會(huì)員名： /td td height = 39。 align = 39。 ID = Table3 form action = method =