【導讀】第二章編程環(huán)境基礎知識-------------------------------------------------------------------------------3. ASP內部6大對象------------------------------------------------------------------------------------4. 利用ADO訪問數(shù)據(jù)庫---------------------------------------------------------------------------------5. 第三章需求分析-------------------------------------------------------------------------------------------7. 第四章總體設計---------------------------------------------------------------------------------------------8. 系統(tǒng)模塊結構設計---------------------------------------------------------------------------------------8. 第五章詳細設計--------------------------------------------------------------------------------------------12. 圖書信息流浪模塊------------------------------------------------------------------------------------32

　　

【正文】 39。如果是顯示最優(yōu)惠圖書 ,則顯示此圖書的打的程度，否則直接顯示圖書名字 if strFilter = Cheap then productName = i amp。 . amp。 rsObj(name) amp。 (font color = red amp。 FormatNumber(rsObj(Discount)*10,1) amp。 /font折 ) else productName = rsObj(name) 39。如果名字太長，將其截斷 if len(productName) 14 then productName = left(productName,9)amp。... end if end if a href = ?id= amp。 rsObj(ID) amp。 amp。 productName amp。 /a /td/tr i = i+1 if i100 then exit do loop 39。關閉集合，但不要關閉連接，因為其他地方可能要用 () Set rsObj = Nothing /table end sub 39。 ================================================= 39。過程名： ShowTheBest 39。作 用：顯示最新推薦圖書 39。參 數(shù)：無 39。 ================================================= Sub ShowTheBest() dim strSQL, rsObj dim strTemp, strSrc, strIntro strSQL = SELECT top 1 * FROM product strSQL = strSQL amp。 WHERE Remend 0 strSQL = strSQL amp。 ORDER by RemendDate DESC, buyNum DESC, ID DESC set rsObj = (strSQL) 39。如果沒有找到圖書，則退出此過程 if and then brbr出錯啦！可能是沒有檢索到數(shù)據(jù)或者檢索過程出錯。brbr () Set rsObj = Nothing Exit Sub end if 39。如果找到圖書，則輸出信息 39。確定大圖片 URL if rsObj(bigImg) = nothing then strSrc = images/ else strSrc = bigImg/amp。rsObj(bigImg) end if 39。只顯示部分圖書介紹， 39。注意這里一定要用 Convert 函數(shù)對介紹內容進行 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推薦圖書 /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 = 點擊查看具體信息b%=rsObj(Name)%/b/abr /td td b[圖書介紹 ] /bbr %=strIntro%br strike市場價： %=rsObj(marketPrice)% 元 /strike 商城價： %=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 放入購物車 /a /td /tr trtd height = 10 colspan = 2/td/tr /table % () set rsObj = Nothing end sub % 程序 出版商搜索過成的實現(xiàn) % 39。================================================= 39。過程名： ShowProductTypeList 39。作 用：用下拉列表框顯示出版商 39。參 數(shù)： nTypeId：出版商編號 39。================================================= sub ShowProductTypeList(nTypeId) % SELECT name = ProductType style = backgroundcolor: rgb(210,232,255)。 fontsize:9pt ID = Select1 option value = 0全部出版商 /option %call ProductTypeToSelect(nTypeId)% /SELECT % end sub 39。================================================= 39。過程名： ProductTypeToSelect 39。作 用：將出版商添加到下拉列表框中（無修飾） 39。參 數(shù)： nTypeId：出版商編號 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。nID if CLng(nID) = CLng(nTypeId) then selected szNameamp。/option loop end if end sub % % 39。================================================= 39。過程名： ShowSearchForm 39。作 用：顯示查找表單 39。參 數(shù)： 39。 myKeyword：在搜索產(chǎn)品文本框中顯示的內容 39。 nTypeId：出版商編號 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 訂單號 input type = text size = 12 name = orderID onKeyUp = checknum() style = fontsize: 9pt。 border: 1px solid 7D85A2。 backgroundcolor: rgb(210,232,255) ID = Text1 input type = submit name = Submit3 value = 訂單搜索 class = forInput style = fontsize: 9pt。 border: 1px solid 7D85A2。 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。 border: 1px solid 7D85A2。 backgroundcolor: rgb(210,232,255) ID = Text2 % call ShowProductTypeList(nTypeId) % input type = submit name = Submit4 value = 產(chǎn)品搜索 class = forInput style = fontsize: 9pt。 border: 1px solid 7D85A2。 backgroundcolor: rgb(210,232,255) ID = Submit2 /td /form /tr /table % end sub % 程序清單 展示最新圖書的實現(xiàn)代碼 % 39。================================================= 39。過程名： ShowNewProductPreview 39。作 用：預覽最新圖書 39。參 數(shù)： 39。 ShowType, ProductType, KeyWord, CurPage 39。分別表示： 顯示類型： Top/All，類型 ID，過濾關鍵字，當前頁 39。================================================= 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