【正文】 便的編程工具。利用ASP可以向網(wǎng)頁(yè)中添加交互式內(nèi)容（如在線表單），也可以創(chuàng)建使用HTML網(wǎng)頁(yè)作為用戶(hù)界面的web應(yīng)用程序。 ASP與IIS IIS簡(jiǎn)介Wsb服務(wù)器是Web應(yīng)用程序的心臟?，F(xiàn)在我們利用IIS+ASP構(gòu)成三層式Web結(jié)構(gòu)（）的中間一層，將客戶(hù)機(jī)/服務(wù)器結(jié)構(gòu)與Web密切結(jié)合，完成前后端兩者的集成輸出功能，使得Web站點(diǎn)的開(kāi)發(fā)更方便，實(shí)現(xiàn)的功能更強(qiáng)大。當(dāng)Active Server Pages做下面兩個(gè)動(dòng)作時(shí)，： Server啟動(dòng)之后，一個(gè)應(yīng)用程序目錄中任一個(gè)ASP文件被提出第一個(gè)HTTP請(qǐng)求（Request）時(shí)。而Session對(duì)象僅屬于一位用戶(hù)，維持一個(gè)用戶(hù)端的信息，其他用戶(hù)無(wú)法訪問(wèn)，它創(chuàng)建于一個(gè)不具有Session的用戶(hù)向Server請(qǐng)求一個(gè)ASP文件時(shí)，結(jié)束于該Session到期（即用戶(hù)端超過(guò)某時(shí)間段沒(méi)有向Server提出要求或刷新Web頁(yè)面）或Abandon語(yǔ)句的調(diào)用。2． Application或Session的結(jié)束事件 (Endevent)。在ASP中，ADO可以看作是一個(gè)服務(wù)器組件(Server Component)，更簡(jiǎn)單點(diǎn)說(shuō)，是一系列的對(duì)象，應(yīng)用這些功能強(qiáng)大的對(duì)象，即可輕松完成對(duì)數(shù)據(jù)庫(kù)復(fù)雜的操作。比如我們系統(tǒng)中有Access的ODBC驅(qū)動(dòng)程序，那么即使我們沒(méi)有Access軟件，也可以在我們的程序中對(duì)一個(gè)Access的MDB數(shù)據(jù)庫(kù)加、刪、改記錄。如果數(shù)據(jù)庫(kù)的平臺(tái)變了，比如我們改用了SQL Server的數(shù)據(jù)庫(kù)，只要其中表的結(jié)構(gòu)沒(méi)變，我們就不用改寫(xiě)我們的程序，只要重新在系統(tǒng)中配置DSN就行了。=amp。以上兩個(gè)步驟缺一不可，因?yàn)殒溄訉?duì)象的創(chuàng)建與打開(kāi)是兩回事，只有打開(kāi)了才真正可以使用。以下是創(chuàng)建方法：Set Record Set=(sqtStr)這條語(yǔ)句創(chuàng)建并打開(kāi)了對(duì)象Record Set，其中Con是先前創(chuàng)建的鏈接對(duì)象，rs是一個(gè)字串，代表一條標(biāo)準(zhǔn)的SQL語(yǔ)句。通過(guò)調(diào)用方法close實(shí)現(xiàn)關(guān)閉，然后再釋放它。數(shù)據(jù)庫(kù)連接dim connstr 39。Data Source = amp。, 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。 ================================================= 39。 ================================================= sub ShowUserLogin() dim strLogin If Session(memberID) = Then % table width = 39。 cellspacing = 39。 ID = Table3 form action = method = post name = userLogin ID = Form3 TBODY tr td height = 39。會(huì)員名：/td td height = 39。 align = 39。amp。input type = password name = password size = 10 maxlength = 16 ID = Password2 class = editbox1/td /tr tr align = 39。 colspan = 39。 type = 39。 value = 39。 align = 39。a href = 39。amp。, 39。查看我的資料/aamp。a href = 39。過(guò)程名：ShowMemberLogin39。100%39。039。Reset39。清除39。39。39。nbsp。39。nbsp。39。100%39。039。Table339。 rsObj(Name) amp。過(guò)程名：ShowSpecialProductList39。 Hot: 購(gòu)買(mǎi)次數(shù)最高的圖書(shū)39。nCount：最大顯示數(shù)量39。 border = 39。 cellpadding = 39。 39。 nCount amp。 ID, [Name] FROM product strSQL = strSQL amp。 ID, [Name], memberPrice/marketPrice AS Discount strSQL = strSQL amp。 ID, [Name] FROM Product strSQL = strSQL amp。 . amp。 /font折) else productName = rsObj(name) 39。 amp。 ================================================= 39。 ================================================= Sub ShowTheBest() dim strSQL, rsObj dim strTemp, strSrc, strIntro strSQL = SELECT top 1 * FROM product strSQL = strSQL amp。brbr () Set rsObj = Nothing Exit Sub end if 39。只顯示部分圖書(shū)介紹， 39。nbsp。nbsp。nbsp。作 用：用下拉列表框顯示出版商39。================================================= 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。過(guò)程名：ShowSearchForm39。 nTypeId：出版商編號(hào)39。 border: 1px solid 7D85A2。 border: 1px solid 7D85A2。作 用：預(yù)覽最新圖書(shū)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 TR TD bgcolor = %=conBackColor% % call ShowNewProductPreviewList(ShowType, ProductType, KeyWord, CurPage) % /TD /TR TR TD align = middle bgcolor = %=conBackColor% /TD/TR /TBODY/TABLE%end sub39。參 數(shù)：39。每行顯示的產(chǎn)品個(gè)數(shù) dim rows 39。 amp。 amp。%amp。 AND ProductType = amp。 border = 39。 cellpadding = 39。 (num_row*21) amp。 width = 1/td/tr strTemp = strTemp amp。 %39。 /font) else szProductName = rsObj(name) end if % ! 此table用來(lái)輸出一個(gè)商品元素 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 = 點(diǎn)擊查看具體信息 img src = %=strSrc% border = 0 height = %=nImageHeight%/a/div /td td width = 200 valign = topa href = ?id=%=rsObj(id)% title = 點(diǎn)擊查看具體信息bu%=szProductName%/u/b/a br strikefont color = 666666市場(chǎng)價(jià): %=rsObj(marketPrice)% 元/font/strikebr 商城價(jià): %=rsObj(memberPrice)% 元br a href = ?productID=%=rsObj(id)%img src = images/ width = 22 height = 22 border = 0 align = absmiddleamp。如果沒(méi)有結(jié)束，插一個(gè)豎的分隔線 TD background = 39。 width = 1/TD end if j = j+1 if jnMaxPerPage then exit do loop 39。(cint(100/num_row)*(num_rowk))amp。================================================= 39。================================================= sub ShowProduct(ProductId) dim strSQL, rsObj if IsEmpty(ProductId) then ProductId = 0 strSQL = SELECT * FROM product WHERE id = amp。作 用：顯示圖書(shū)詳細(xì)信息39。nbsp。(num_rowk)amp。 width = 1 IMG height = 1 src = 39。放入購(gòu)物車(chē)/a /td % if num_row = 1 then td valign=bottom align=center 【A href=javascript:(0,360)頂部】 /td end if % /tr /table% /td 39。rsObj(smallImg) end if if not (KeyWord = or IsEmpty(KeyWord) ) then szProductName = Replace(rsObj(name), KeyWord, font color = red amp。 amp。 height = 1 IMG height = 1 src = 39。 j = 1 do while not ( or err) if (j mod num_row) = 1 then strTemp = trtd colspan = 39。 cellspacing = 39。 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。%39。 KeyWord strSQL = SELECT * FROM product WHERE id1 if not (KeyWord = or IsEmpty(KeyWord) )