【正文】 r /TBODY /form /table % Else % 歡迎您！ %=Session(memberID)% brbr a href = 39。39。查看我的資料 /a a href = 39。39。 注銷 /a % end if end sub 39。 ================================================= 39。過程名： ShowMemberLogin 39。作 用：顯示會員登錄表單 39。參 數：無 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 會員名： 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 = editbox1 a href = 39。39。[注冊 ]/a a href = javascript:opennew(39。39。, 39。 找回密碼 39。, %=conPopWidth%,%=conPopHeight%) 忘記密碼？ /a /td /tr /TBODY /form /table % Else % 歡 迎 您 ， font color = redb%=Session(memberID)%/b/font ！ a href = 39。39。[查看我的資料 ]/a a href = 39。39。 [注銷 ]/a % end if end sub % 程序清單 左側快捷菜單實現(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。顯示購買率最高的前 6 本書，需要傳入參數 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。顯示最優(yōu)惠的前 6 種圖書，需要傳入參數 Cheap和 6 call ShowSpecialProduct(Cheap, 6) % /TD /TR /TBODY /TABLE 程序清單 ShowManufacturer 過程的實現(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。關閉集合，但不能關閉連接，因為其他地方可能要用 Set rsObj = Nothing /table end sub % 程序清單 熱賣圖書過程實現(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。 ================================================= 39。過程名： ShowSpecialProductList 39。作 用：顯示熱賣圖書列表數據（無修飾） 39。參 數： 39。strFilter： 選擇條件，有以下可選項： 39。 Hot: 購買次數最高的圖書 39。 Remended: 推薦度 39。 Cheap: 最優(yōu)惠圖書 39。 其他默認為 Hot 39。nCount：最大顯示數量 39。 ================================================= Sub ShowSpecialProductList(strFilter, nCount) dim strSQL, rsObj, productName, i 39。檢查 nCount 的合法性 nCount = CInt(nCount) if nCount 20 then nCount = 20 if nCount 1 then nCount = 1 table width = 39。100%39。 border = 39。039。 cellspacing = 39。039。 cellpadding = 39。039。 ID = 39。Table339。 39。根據 strFilter 參數組織 SQL 語句， 39。要在排序條件的最后加入以 id 排序， 39。否則可能因為多個記錄在前面排序字段處的值相同，使得篩選出的記錄數超過 nCount if strFilter = Hot then strSQL = SELECT TOP amp。 nCount 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, [Name] FROM product strSQL = strSQL amp。 ORDER BY remend desc, remenddate desc, id desc elseif strFilter = Cheap then 39。因為用到了除法，所以要加上對分母不為 0 的判斷 strSQL = SELECT TOP amp。 nCount amp。 ID, [Name], memberPrice/marketPrice AS Discount strSQL = strSQL amp。 FROM Product WHERE marketPrice 0 strSQL = strSQL amp。 ORDER BY memberPrice/marketPrice, id desc else strSQL = SELECT TOP amp。 nCount amp。 ID, [Name] FROM Product strSQL = strSQL amp。 ORDER BY buyNum desc,id desc end if set rsObj = (strSQL) if And then 目前沒有此類數據?? end if i = 1 39。輸出列表，在這里尤其要注意避免字符串拼接 do while not ( or err) trtd height = 23 img src = images/