【正文】 /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%%39。================================================= 39。過程名：ShowNewProductPreview39。作 用：預(yù)覽最新圖書39。參 數(shù)：39。 ShowType, ProductType, KeyWord, CurPage39。分別表示： 顯示類型：Top/All，類型ID，過濾關(guān)鍵字，當(dāng)前頁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 TR TD bgcolor = %=conBackColor% % call ShowNewProductPreviewList(ShowType, ProductType, KeyWord, CurPage) % /TD /TR TR TD align = middle bgcolor = %=conBackColor% /TD/TR /TBODY/TABLE%end sub39。================================================= 39。過程名：ShowNewProductPreviewList39。作 用：預(yù)覽最新圖書數(shù)據(jù)（無修飾）39。參 數(shù)：39。 ShowType, ProductType, KeyWord, CurPage39。分別表示： 顯示類型：Top/All，類型ID，過濾關(guān)鍵字，當(dāng)前頁39。================================================= Sub ShowNewProductPreviewList(ShowType, ProductType, KeyWord, CurPage) dim page, PageCount, TotalCount dim thisUrl dim strSrc,strTemp dim strSQL, rsObj dim num_row 39。每行顯示的產(chǎn)品個數(shù) dim rows 39。顯示的產(chǎn)品行數(shù) dim nMaxPerPage dim nImageHeight const conBaseImageHeight = 90 dim i, j, k dim szProductName num_row = 2 39。每行放置的產(chǎn)品數(shù) rows = 6 39。放置的產(chǎn)品行數(shù) nMaxPerPage = num_row * rows nImageHeight = conBaseImageHeight 15 * (num_row 1) Session(oldUrl) = thisUrl amp。 amp。page = amp。 CurPage if ShowType = Top then strSQL = SELECT top 10 * FROM product WHERE Remend 1 ORDER by id desc nMaxPerPage = 10 elseif ShowType = All then thisUrl = ?ProductType= amp。 ProductType amp。 amp。Keyword = amp。 KeyWord strSQL = SELECT * FROM product WHERE id1 if not (KeyWord = or IsEmpty(KeyWord) ) then strSQL = strSQL amp。 AND name like 39。%amp。KeyWordamp。%39。 end if if ProductType 0 then strSQL = strSQL amp。 AND ProductType = amp。 ProductType end if strSQL = strSQL amp。 ORDER by id desc end if set rsObj = (strSQL) = nMaxPerPage if (CurPage = or IsEmpty(CurPage)) then CurPage = 1 if not ( or err) then (CurPage1) * nMaxPerPage page = CurPage PageCount = TotalCount = table width = 39。100%39。 border = 39。039。 cellspacing = 39。039。 cellpadding = 39。039。 j = 1 do while not ( or err) if (j mod num_row) = 1 then strTemp = trtd colspan = 39。 amp。 (num_row*21) amp。 39。 height = 1 IMG height = 1 src = 39。images/39。 width = 1/td/tr strTemp = strTemp amp。 tr strTemp end if td width = 39。 amp。 (100/num_row) amp。 %39。 align = center if rsObj(smallImg) = nothing then strSrc = images/ else strSrc = smallimg/amp。rsObj(smallImg) end if if not (KeyWord = or IsEmpty(KeyWord) ) then szProductName = Replace(rsObj(name), KeyWord, font color = red amp。 KeyWord amp。 /font) else szProductName = rsObj(name) end if % ! 此table用來輸出一個商品元素 table width = 98% border = 0 cellspacing = 0 cellpadding = 5 align = center ID = Table25 tr td width = 100 div align = centera href = ?id=%=rsObj(id)% title = 點擊查看具體信息 img src = %=strSrc% border = 0 height = %=nImageHeight%/a/div /td td width = 200 valign = topa href = ?id=%=rsObj(id)% title = 點擊查看具體信息bu%=szProductName%/u/b/a br strikefont color = 666666市場價: %=rsObj(marketPrice)% 元/font/strikebr 商城價: %=rsObj(memberPrice)% 元br a href = ?productID=%=rsObj(id)%img src = images/ width = 22 height = 22 border = 0 align = absmiddleamp。nbsp。放入購物車/a /td % if num_row = 1 then td valign=bottom align=center 【A href=javascript:(0,360)頂部】 /td end if % /tr /table% /td 39。根據(jù)一行是否結(jié)否來輸出換行符以及插入一行分隔線 if (j mod num_row) = 0 then /tr% ! 這段tr是用來輸出一行的分隔線 tr td colspan = %=(num_row*21)% TABLE align = center background = images/ border = 0 cellPadding = 0 cellSpacing = 0 width = 100% ID = Table13 TBODY TR TDIMG height = 1 src = images/ width = 1/TD /TR /TBODY /TABLE /td /tr% else 39。如果沒有結(jié)束，插一個豎的分隔線 TD background = 39。images/39。 width = 1 IMG height = 1 src = 39。images/39。 width = 1/TD end if j = j+1 if jnMaxPerPage then exit do loop 39。處理最后的空行 k = (j1) mod num_row if not (k = 0) then td colspan = amp。(num_rowk)amp。 width = amp。(cint(100/num_row)*(num_rowk))amp。amp。nbsp。/td /tr end if /tableend sub39。================================================= 39。過程名：ShowProduct39。作 用：顯示圖書詳細(xì)信息39。參 數(shù)：無39。================================================= sub ShowProduct(ProductId) dim strSQL, rsObj if IsEmpty(ProductId) then ProductId = 0 strSQL = SELECT * FROM product WHERE id = amp。 ProductId set rsObj = (strSQL) if not ( or err) then% table width = 94% border = 0 bordercolordark = ffffff bordercolorlight = FFCF00 cellspacing = 0 cellpadding = 8 align = center ID = Table10 tr