【正文】 示時用 ACCESS 數(shù)據(jù)庫 connstr = Provider = 。替換單引號 function RealString(strSrc) RealString = Replace(Trim(strSrc), 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 顯示會員登 錄框 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 function ShowMemberLogin2() % TABLE cellSpacing = 0 cellPadding = 0 width = 100% border = 0 ID = Table8 TBODY ! TR TD height = 15 bgcolor = %=conGlobalBgColor%/TD /TR TR TD height = 20 background = images/ align = centerstrong會員登陸 /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 = Table9 tr td % call ShowUserLogin() % /td /tr /table /TD /TR TR TD height = 5/TD /TR /TBODY /TABLE % end function % % 39。參 數(shù)：無 39。039。039。right39。2539。2539。2539。Reset39。Reset39。2039。239。39。39。 ================================================= 39。 ================================================= sub ShowMemberLogin() dim strLogin If Session(memberID) = Then % table width = 39。 cellspacing = 39。 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。 id = Reset1 value = 39。[注冊 ]/a a href = javascript:opennew(39。, %=conPopWidth%,%=conPopHeight%) 忘記密碼？ /a /td /tr /TBODY /form /table % Else % 歡 迎 您 ， font color = redb%=Session(memberID)%/b/font ！ a href = 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。 border = 39。 cellpadding = 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。 /a /td/tr i = i+1 if i100 then exit do loop 39。作 用：顯示熱賣圖書列表數(shù)據(jù)（無修飾） 39。 Remended: 推薦度 39。 ================================================= Sub ShowSpecialProductList(strFilter, nCount) dim strSQL, rsObj, productName, i 39。039。039。根據(jù) strFilter 參數(shù)組織 SQL 語句， 39。 ID, [Name] FROM product strSQL = strSQL amp。 ORDER BY remend desc, remenddate desc, id desc elseif strFilter = Cheap then 39。 FROM Product WHERE marketPrice 0 strSQL = strSQL amp。 ORDER BY buyNum desc,id desc end if set rsObj = (strSQL) if And then 目前沒有此類數(shù)據(jù)?? end if i = 1 39。 rsObj(name) amp。如果名字太長，將其截斷 if len(productName) 14 then productName = left(productName,9)amp。 productName amp。過程名： ShowTheBest 39。 WHERE Remend 0 strSQL = strSQL amp。如果找到圖書，則輸出信息 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。參 數(shù)： nTypeId：出版商編號 39。過程名： ProductTypeToSelect 39。nID if CLng(nID) = CLng(nTypeId) then selected szNameamp。作 用：顯示查找表單 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。 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 = Submit2 /td /form /tr /table % end sub % 程序清單 展示最新圖書的實現(xiàn)代碼 % 39。參 數(shù)：