【正文】 itbox1 a href = 39。[注冊(cè) ]/a a href = javascript:opennew(39。, 39。, %=conPopWidth%,%=conPopHeight%) 忘記密碼？ /a /td /tr /TBODY /form /table % Else % 歡 迎 您 ， font color = redb%=Session(memberID)%/b/font ！ a href = 39。[查看我的資料 ]/a a href = 39。 [注銷(xiāo) ]/a % end if end sub % 程序清單 左側(cè)快捷菜單實(shí)現(xiàn)代碼 ! 圖書(shū)類(lèi)型 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 = ! 熱賣(mài)圖書(shū) TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 width = 100% borderColorLight = aaaaaa border = 1 ID = Table2 TBODY TR TD % 39。顯示最優(yōu)惠的前 6 種圖書(shū)，需要傳入?yún)?shù) Cheap和 6 call ShowSpecialProduct(Cheap, 6) % /TD /TR /TBODY /TABLE 程序清單 ShowManufacturer 過(guò)程的實(shí)現(xiàn)代碼 Sub ShowManufacturer() dim strSQL, strTemp, rsObj, i table width = 39。 border = 39。 cellspacing = 39。 cellpadding = 39。 ID = 39。 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。 amp。 /a /td/tr i = i+1 if i100 then exit do loop 39。 ================================================= 39。作 用：顯示熱賣(mài)圖書(shū)列表數(shù)據(jù)（無(wú)修飾） 39。strFilter： 選擇條件，有以下可選項(xiàng)： 39。 Remended: 推薦度 39。 其他默認(rèn)為 Hot 39。 ================================================= Sub ShowSpecialProductList(strFilter, nCount) dim strSQL, rsObj, productName, i 39。100%39。039。039。039。Table339。根據(jù) strFilter 參數(shù)組織 SQL 語(yǔ)句， 39。否則可能因?yàn)槎鄠€(gè)記錄在前面排序字段處的值相同，使得篩選出的記錄數(shù)超過(guò) nCount if strFilter = Hot then strSQL = SELECT TOP amp。 ID, [Name] FROM product strSQL = strSQL amp。 nCount amp。 ORDER BY remend desc, remenddate desc, id desc elseif strFilter = Cheap then 39。 nCount amp。 FROM Product WHERE marketPrice 0 strSQL = strSQL amp。 nCount amp。 ORDER BY buyNum desc,id desc end if set rsObj = (strSQL) if And then 目前沒(méi)有此類(lèi)數(shù)據(jù)?? end if i = 1 39。如果是顯示最優(yōu)惠圖書(shū) ,則顯示此圖書(shū)的打的程度，否則直接顯示圖書(shū)名字 if strFilter = Cheap then productName = i amp。 rsObj(name) amp。 FormatNumber(rsObj(Discount)*10,1) amp。如果名字太長(zhǎng)，將其截?cái)? if len(productName) 14 then productName = left(productName,9)amp。 rsObj(ID) amp。 productName amp。關(guān)閉集合，但不要關(guān)閉連接，因?yàn)槠渌胤娇赡芤? () Set rsObj = Nothing /table end sub 39。過(guò)程名： ShowTheBest 39。參 數(shù)：無(wú) 39。 WHERE Remend 0 strSQL = strSQL amp。如果沒(méi)有找到圖書(shū)，則退出此過(guò)程 if and then brbr出錯(cuò)啦！可能是沒(méi)有檢索到數(shù)據(jù)或者檢索過(guò)程出錯(cuò)。如果找到圖書(shū)，則輸出信息 39。rsObj(bigImg) end if 39。注意這里一定要用 Convert 函數(shù)對(duì)介紹內(nèi)容進(jìn)行 HTML 編碼和加入換行符 br strIntro = Convert(rsObj(introduce)) if lenB(strIntro)300 then strIntro = leftB(strIntro,300) end if % table width = 100% border = 0 bordercolordark = ffffff bordercolorlight = FFCF00 cellspacing = 0 cellpadding = 0 align = center ID = Table20 tr TD class = tabTitle height = 22 bgColor=%=conTitleColor% colspan = 2b推薦圖書(shū) /b/TD /tr trtd height = 10 colspan = 2/td/tr tr td width = 160 align = center a href = ?id=%=rsObj(id)% img src = %=strSrc% height=%=conBigImageHeight% border = 0/abr a href = ?id=%=rsObj(id)% title = 點(diǎn)擊查看具體信息b%=rsObj(Name)%/b/abr /td td b[圖書(shū)介紹 ] /bbr %=strIntro%br strike市場(chǎng)價(jià)： %=rsObj(marketPrice)% 元 /strike 商城價(jià)： %=rsObj(memberPrice)%元 br 立 即 節(jié) 省 ： font color = RED%=rsObj(marketPrice)rsObj(memberPrice)%/font元 a href = ?productID=%=rsObj(id)% img src = images/ width = 22 height = 22 border = 0 align = absmiddle 放入購(gòu)物車(chē) /a /td /tr trtd height = 10 colspan = 2/td/tr /table % () set rsObj = Nothing end sub % 程序 出版商搜索過(guò)成的實(shí)現(xiàn) % 39。過(guò)程名： ShowProductTypeList 39。參 數(shù)： nTypeId：出版商編號(hào) 39。 fontsize:9pt ID = Select1 option value = 0全部出版商 /option %call ProductTypeToSelect(nTypeId)% /SELECT % end sub 39。過(guò)程名： ProductTypeToSelect 39。參 數(shù)： nTypeId：出版商編號(hào) 39。nID if CLng(nID) = CLng(nTypeId) then selected szNameamp。================================================= 39。作 用：顯示查找表單 39。 myKeyword：在搜索產(chǎn)品文本框中顯示的內(nèi)容 39。================================================= sub ShowSearchForm(myKeyword, nTypeId) % table width = 100% border = 0 cellspacing = 0 cellpadding = 4 align = center height = 30 ID = Table7 tr form method = post name = orderSearch action = ID = Form1 td width = 45% valign = top 訂單號(hào) input type = text size = 12 name = orderID onKeyUp = checknum() style = fontsize: 9pt。 backgroundcolor: rgb(210,232,255) ID = Text1 input type = submit name = Submit3 value = 訂單搜索 class = forInput style = fontsize: 9pt。 backgroundcolor: rgb(210,232,255) ID = Submit1 /td /form form name = productSearch method = post action = ID = Form2 td width = 55% valign = top input type = text name = Keyword size = 12 value = %=myKeyword% style = fontsize: 9pt。 backgroundcolor: rgb(210,232,255) ID = Text2 % call ShowProductTypeList(nTypeId) % input type = submit name = Submit4 value = 產(chǎn)品搜索 class = forInput style = fontsize: 9pt。 backgroundcolor: rgb(210,232,255) ID = Submit2 /td /form /tr /table % end sub % 程序清單 展示最新圖書(shū)的實(shí)現(xiàn)代碼 % 39。過(guò)程名： ShowNewProductPreview 39。參 數(shù)： 39。分別表示： 顯示類(lèi)型： Top/All，類(lèi)型 ID，過(guò)濾關(guān)鍵字，當(dāng)前頁(yè)