【導(dǎo)讀】第二章編程環(huán)境基礎(chǔ)知識(shí)-------------------------------------------------------------------------------3. ASP內(nèi)部6大對(duì)象------------------------------------------------------------------------------------4. 利用ADO訪問(wèn)數(shù)據(jù)庫(kù)---------------------------------------------------------------------------------5. 第三章需求分析-------------------------------------------------------------------------------------------7. 第四章總體設(shè)計(jì)---------------------------------------------------------------------------------------------8. 系統(tǒng)模塊結(jié)構(gòu)設(shè)計(jì)---------------------------------------------------------------------------------------8. 第五章詳細(xì)設(shè)計(jì)--------------------------------------------------------------------------------------------12. 圖書(shū)信息流浪模塊------------------------------------------------------------------------------------32

　　

【正文】 39。如果是顯示最優(yōu)惠圖書(shū) ,則顯示此圖書(shū)的打的程度，否則直接顯示圖書(shū)名字 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。如果名字太長(zhǎng)，將其截?cái)? 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。關(guān)閉集合，但不要關(guān)閉連接，因?yàn)槠渌胤娇赡芤? () Set rsObj = Nothing /table end sub 39。 ================================================= 39。過(guò)程名： ShowTheBest 39。作 用：顯示最新推薦圖書(shū) 39。參 數(shù)：無(wú) 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。如果沒(méi)有找到圖書(shū)，則退出此過(guò)程 if and then brbr出錯(cuò)啦！可能是沒(méi)有檢索到數(shù)據(jù)或者檢索過(guò)程出錯(cuò)。brbr () Set rsObj = Nothing Exit Sub end if 39。如果找到圖書(shū)，則輸出信息 39。確定大圖片 URL if rsObj(bigImg) = nothing then strSrc = images/ else strSrc = bigImg/amp。rsObj(bigImg) end if 39。只顯示部分圖書(shū)介紹， 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。================================================= 39。過(guò)程名： ShowProductTypeList 39。作 用：用下拉列表框顯示出版商 39。參 數(shù)： nTypeId：出版商編號(hào) 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。過(guò)程名： ProductTypeToSelect 39。作 用：將出版商添加到下拉列表框中（無(wú)修飾） 39。參 數(shù)： nTypeId：出版商編號(hào) 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。過(guò)程名： ShowSearchForm 39。作 用：顯示查找表單 39。參 數(shù)： 39。 myKeyword：在搜索產(chǎn)品文本框中顯示的內(nèi)容 39。 nTypeId：出版商編號(hào) 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。 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 % 程序清單 展示最新圖書(shū)的實(shí)現(xiàn)代碼 % 39。================================================= 39。過(guò)程名： ShowNewProductPreview 39。作 用：預(yù)覽最新圖書(shū) 39。參 數(shù)： 39。 ShowType, ProductType, KeyWord, CurPage 39。分別表示： 顯示類(lèi)型： Top/All，類(lèi)型 ID，過(guò)濾關(guān)鍵字，當(dāng)前頁(yè) 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新書(shū)快遞 /b/TD/TR