【正文】 參 數(shù)： 39。 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。作 用：顯示查找表單 39。過(guò)程名： ProductTypeToSelect 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推薦圖書 /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[圖書介紹 ] /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)物車 /a /td /tr trtd height = 10 colspan = 2/td/tr /table % () set rsObj = Nothing end sub % 程序 出版商搜索過(guò)成的實(shí)現(xiàn) % 39。 WHERE Remend 0 strSQL = strSQL amp。 productName amp。 rsObj(name) amp。 FROM Product WHERE marketPrice 0 strSQL = strSQL amp。 ID, [Name] FROM product strSQL = strSQL amp。039。 ================================================= Sub ShowSpecialProductList(strFilter, nCount) dim strSQL, rsObj, productName, i 39。作 用：顯示熱賣圖書列表數(shù)據(jù)（無(wú)修飾） 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。 border = 39。, %=conPopWidth%,%=conPopHeight%) 忘記密碼？ /a /td /tr /TBODY /form /table % Else % 歡 迎 您 ， font color = redb%=Session(memberID)%/b/font ！ a href = 39。 id = Reset1 value = 39。 cellspacing = 39。 ================================================= 39。39。2039。Reset39。2539。right39。039。 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會(huì)員登陸 /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。39。39。39。39。39。39。39。 顯示會(huì)員登 錄框 39。39。39。39。39。39。39。39。39。演示時(shí)用 ACCESS 數(shù)據(jù)庫(kù) connstr = Provider = 。例如： rs=“ INSERT INTO tab1 VALUES(1,2)” (rs) /執(zhí)行插入操作 五、關(guān)閉數(shù)據(jù)對(duì)象和鏈接對(duì)象 在使用了 ADO 對(duì)象之后要關(guān)閉它，因?yàn)樗褂昧艘欢ǖ姆?wù)器資源。) connstr 這條語(yǔ)句打開(kāi)鏈接，用到了 DSN，本例為“ connstr”。我們?cè)诮o ODBC 驅(qū)動(dòng)程序傳 SQL 指令時(shí)，即是用 DSN 來(lái)告訴它到底操作的是哪一個(gè)數(shù)據(jù)庫(kù)。 利用 ADO 訪問(wèn)數(shù)據(jù)庫(kù) ADO（ ActiveX Data Objects）是一種操作 Microsoft 所支持的數(shù)據(jù) 庫(kù)的新技術(shù)。 Application對(duì)象內(nèi)的信息供所有正在執(zhí)行該應(yīng)用程序的用戶分享，它創(chuàng)建于 Web Server 啟動(dòng)后一個(gè)應(yīng)用程序中任一 ASP 文件被提出第一個(gè) HTTP 請(qǐng)求時(shí)，結(jié)束于 Server端停止運(yùn)行?，F(xiàn)在我們利用 IIS+ASP 構(gòu)成三層式 Web結(jié)構(gòu)（如圖 所示）的中間一層，將客戶機(jī) /服務(wù)器結(jié)構(gòu)與 Web 密切結(jié)合，完成前后端兩者的集成輸出功能，使得 Web站點(diǎn)的開(kāi)發(fā)更方便，實(shí)現(xiàn)的功能更強(qiáng)大。利用 ASP 可以向網(wǎng)頁(yè)中添加交互式內(nèi)容（如在線表單），也可以創(chuàng)建使用 HTML網(wǎng)頁(yè)作為用戶界面的 web應(yīng)用程序。二者通過(guò)數(shù)據(jù)庫(kù)服務(wù)器和 Web服務(wù)器連接。 ASP強(qiáng)大的功能使之成為一種優(yōu)秀的服務(wù)器技術(shù)。簡(jiǎn)要論述了電子商務(wù)的優(yōu)勢(shì)、對(duì)社會(huì)的影響和建立電子商務(wù)網(wǎng)站應(yīng)該注意的問(wèn)題，并介紹了整個(gè)網(wǎng)站的運(yùn)行流程，數(shù)據(jù)庫(kù)的結(jié)構(gòu)及網(wǎng)站的頁(yè)面組成。著重論述了購(gòu)物車和購(gòu)書管理 子系統(tǒng) 的具體功能實(shí)現(xiàn)、關(guān)鍵技術(shù)的使用，以及與其他方法的綜合應(yīng)用。隨著網(wǎng)絡(luò)技術(shù)的 日益成熟， ASP技術(shù)在網(wǎng)絡(luò)編程中也變得越來(lái)越重要。 主要完成 Web 服務(wù)器端的用戶管理、圖書目錄管理、圖書信息錄入管理、書店定單管理、圖書的瀏覽和查找、書店購(gòu)物結(jié)帳功能模塊的設(shè) 計(jì)、實(shí)現(xiàn)與完善以及整個(gè)實(shí)驗(yàn)網(wǎng)站的組織建立和測(cè)試工作。 與 HTML相比， ASP 網(wǎng)頁(yè)具有以下特點(diǎn)： （ 1）利用 ASP 可以實(shí)現(xiàn)突破靜態(tài)網(wǎng)頁(yè)的一些功能限制，實(shí)現(xiàn)動(dòng)態(tài)網(wǎng)頁(yè)技術(shù)； （ 2） ASP 文件是包含在 HTML 代碼所組成的文件中的，易于修改和測(cè)試； （ 3） 服務(wù)器上的 ASP 解釋程序會(huì)在服務(wù)器端制定 ASP 程序，并將結(jié)果以 HTML 格式傳送到客戶端瀏覽器上，因此使用各種瀏覽器都可以正常瀏覽 ASP 所產(chǎn)生的網(wǎng)頁(yè)； （ 4） ASP 提供了一些內(nèi)置對(duì)象，使用這些對(duì)象可以使服務(wù)器端腳本功能更強(qiáng)。 利用 IIS+ASP 技術(shù)來(lái)集成 Web 前后端所帶來(lái)的強(qiáng)大效益可歸結(jié)為以下幾個(gè)方面： 1． 減少構(gòu)建和維護(hù)成本 2． 加快聯(lián)機(jī)過(guò)程 3． 應(yīng)用軟件 集中在服務(wù)器端開(kāi)發(fā)管理 4． 前端可使用任何瀏覽器（ IE、 Netscape? ..） 5． 后端可存取任何數(shù)據(jù)庫(kù) (SQL、 Access? ..) 6． 可使用任何腳本語(yǔ)言開(kāi)發(fā) (VBScript、 JavaScript、 PERL? ..) 程序和計(jì)算邏輯 前端瀏覽器 ActiveX Server元件 ActiveX Server 元件 后端數(shù)據(jù)庫(kù) 數(shù)據(jù)庫(kù)服務(wù)器 Microsoft IIS + ASP 瀏覽器 圖 ASP 的內(nèi)部特點(diǎn) ASP 內(nèi)部 6 大對(duì)象 ASP 提供了 6 個(gè)功能強(qiáng)大的內(nèi)部對(duì)象，每個(gè)對(duì)象具有各自的屬性（ Property）、方法（ Method），有的還擁有數(shù)據(jù)集合（ Collection）與事件（ Event），它們共同完成 Web 中的一 些重要工作。而 Session 對(duì)象僅屬于一位用戶，維持一個(gè)用戶端的信息，其他用戶無(wú)法訪問(wèn)，它創(chuàng)建于一個(gè)不具 有 Session 的用戶向 Server 請(qǐng)求一個(gè) ASP 文件時(shí)，結(jié)束于該 Session 到期（即用戶端超過(guò)某時(shí)間段沒(méi)有向 Server 提出要求或刷新 Web 頁(yè)面）或 Abandon 語(yǔ)句的調(diào)用。在 ASP 中， ADO 可以看作是一個(gè)服務(wù)器組件 (Server Component)，更簡(jiǎn)單點(diǎn)說(shuō)，是一系列的對(duì)象，應(yīng)用這些功能強(qiáng)大的對(duì)象，即可輕松完成對(duì)數(shù)據(jù)庫(kù)復(fù)雜的操作。如果數(shù)據(jù)庫(kù)的平臺(tái)變了，比如我們改用了 SQL Server 的數(shù)據(jù)庫(kù)，只要其中表的結(jié)構(gòu)沒(méi)變，我們就不用改寫我們的程序，只要重新在系統(tǒng)中配置 DSN 就行了。 以上兩個(gè)步驟缺一不可，因?yàn)殒溄訉?duì)象的創(chuàng)建與打開(kāi)是兩回事，只有打開(kāi)了才真正可以使用。通過(guò)調(diào)用方法 close 實(shí)現(xiàn)關(guān)閉，然后再釋放它。Data Source = amp。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 ================================================= 39。 cellspacing = 39。會(huì)員名： /td td height = 39。input type = password name = password size = 10 maxlength = 16 ID = Password2 class = editbox1/td /tr tr align = 39。 type = 39。 align = 39。, 39。過(guò)程名： ShowMemberLogin 39。039。清除 39。39。039。 rsObj(ID) amp。參 數(shù)： 39。檢查 nCount 的合法性 nCount = CInt(nCount) if nCount 20 then nCount = 20 if