【正文】 上購(gòu)物網(wǎng)站/titlemeta name=GENERATOR content=Microsoft FrontPage meta name=Microsoft Border content=none/headbody background=p align=centerbigbigbig電腦專賣店/big/big/big/font/pp align=centerbigbig網(wǎng)上購(gòu)物網(wǎng)站/big/big/font/pp align=center歡迎光臨電腦專賣店網(wǎng)上購(gòu)物網(wǎng)站??！本網(wǎng)站支持SSL安全協(xié)議，您可以安心選購(gòu)/ppfont color=800000small您是第!webbot bot=HitCounter iimage=2 idigits=0 PREVIEW=amp。lt；strongamp。gt；[Hit Counter]amp。lt；/strongamp。gt； ucustom iresetvalue=100 startspan img src=../_vti_bin/|Image=2 alt=站點(diǎn)計(jì)數(shù)器!webbot bot=HitCounter endspan ichecksum=38395 位光臨者/small/font ul lia href=?temp_id=%=（temp_id） %本期促銷商品/abigbig /bigHot!!/big/font/font/li/ulul li看看本站的a href=?temp_id=%=（temp_id） %商品目錄/a吧！/font/li/ulpimg src= alt= （1605 bytes） align=center WIDTH=100 HEIGHT=100font color=000080本網(wǎng)站采用/fontfont color=800000SSL/font交易，所有個(gè)人機(jī)密資料皆加密后傳送，請(qǐng)安心購(gòu)物。/font/pp align=center[a href=?temp_id=%=（temp_id） %促銷商品/a] [a href=?temp_id=%=（temp_id） %商品目錄/a][a href=?temp_id=%=（temp_id） %我的購(gòu)物袋/a]/p/body/html圖91 % Dim dbOnlineShoppingDBDim rsForSale Dim strSQLdim rs39。Open Connection to DataBase OnlineShoppingDB Set dbOnlineShoppingDB =（） DRIVER={Microsoft Access Driver （*.mdb）}；DBQ= amp。 （）39。Select Product FieldsstrSQL = SELECT * FROM Ref_Product39。 WHERE Product_ForSale = TrueSet rsForSale = （） strSQL，dbOnlineShoppingDB，3，1%htmlhead/headbody background=p align=centerfont color=004080bigbigbig電腦專賣店/big/big/big/font/pp align=centerfont color=FF0000bigbig本期促銷商品/big/big/font/pp商品促銷開始了/pp本期促銷商品/ptable border=1 width=79% trtd width=23% bgcolor=008080font color=FFFFFF商品圖片/font/tdtd width=55% bgcolor=008080font color=FFFFFF商品說明/font/tdtd width=22% bgcolor=008080font color=FFFFFF促銷價(jià)/font/td /tr %Do While Not %tr td width=23%img src=%=rsForSale（Product_Picture）% WIDTH=100 HEIGHT=100 /tdtd width=55%%=rsForSale（Product_Name）%p%=rsForSale（Product_Spec）%/tdtd width=22%%=rsForSale（Product_Price）%pa href=?temp_id=%=（temp_id）%amp。amp；Product_No=%=rsForSale（Product_No）%放入購(gòu)物袋/a/td /tr % % %Loop %/tablep align=center[促銷商品][a href=?temp_id=%=（temp_id） %商品目錄/a][a href=?temp_id=%=（temp_id） %我的購(gòu)物袋/a]/p/body/html圖94 % Dim dbOnlineShoppingDBDim rsProductDim strSQL39。Open Connection to DataBase OnlineShoppingDB Set dbOnlineShoppingDB =（） DRIVER={Microsoft Access Driver （*.mdb）}；DBQ= amp。 （）39。Select Product FieldsstrSQL = SELECT * FROM Ref_Product Set rsProduct = （） strSQL， dbOnlineShoppingDB， 3，1%htmlheadmeta name=GENERATOR content=Microsoft FrontPage title商品目錄/title /headbody background=p align=centerbigbigbig商品目錄/big/big/big/font/pp本期商品目錄/ptable border=1 width=79%tr td width=23% bgcolor=008080font face=地眃穝淖彩堵 color=FFFFFF商品圖片/font/td td width=55% bgcolor=008080font face=地眃穝淖彩堵 color=FFFFFF商品詳情/font/td td width=22% bgcolor=008080font face=地眃穝淖彩堵 color=FFFFFF價(jià)格/font/td /tr% Do While Not % tr td width=23%img src=%=rsProduct（Product_Picture）% WIDTH=100 HEIGHT=100/td td width=55%%=rsProduct（Product_Name）%p%=rsProduct（Product_Spec） %/pp%=rsProduct（Product_Memo）%/td td width=22%%=rsProduct（Product_Price）%pa href=?temp_id=%=（temp_id）%amp。Product_No=%=rsProduct（Product_No）%立即購(gòu)買/a/td% %% Loop% /tr /tablep align=center[a href=?temp_id=%=（temp_id） %促銷商品/a][商品目錄][a href=?temp_id=%=（temp_id） %我的購(gòu)物袋/a]/p/body/html圖95 % Dim dbOnlineShoppingDBDim rsOrderDim rsTempOrder Dim strSQLDim Order_Amt39。Open Connection to DataBase OnlineShoppingDB Set dbOnlineShoppingDB =（） DRIVER={Microsoft Access Driver （*.mdb）}；DBQ= amp。 （）39。select Temp set rs= （） Sql=select * from Dat_Temp Sql，dbOnlineShoppingDB，3，1Order_Amt = 0 %htmlheadtitle訂單確認(rèn)/title/headbody background=p align=centerbigbigbig電腦專賣店/big/big/big/pp align=centerbigbig訂單確認(rèn)/big/big/pp/ptable border=1 width=87% height=172tr td width=44% colspan=2 height=19 bgcolor=008080 valign=middle align=center個(gè)人資料/td /trtr td width=13% height=19big客戶名稱/big/tdtd width=31% height=19%=Request（Client_Name）% /td /tr tr td width=13% valign=middle height=19big聯(lián)絡(luò)電話/big/tdtd width=32% valign=middle height=19%=Request（Client_Tel） %/td /trtr td width=13% valign=middle height=19big送貨地址/big/tdtd width=32% valign=middle height=19%=Request（Client_Address） %/td /trtr td width=45% valign=middle colspan=2 height=19 bgcolor=008080 align=centerbig付款資料/big/td /trtr td width=12% valign=middle height=19big信用卡號(hào)/big/tdtd width=33% valign=middle height=19%=Request（CreditCard_No） %/td /trtr td width=10% valign=middle height=16big信用卡到期日：/big/tdtd width=23% valign=middle height=16%=Request（CreditCard_ValidDate） %/td /tr/tableform method=POST action= webbotaction=WEBBOTSELFtable border=1 width=646tr td width=37 bgcolor=008080font color=FFFFFF序號(hào)/font/tdtd width=154 bgcolor=008080font color=FFFFFF商品名稱/font/tdtd width=176 bgcolor=008080font color=FFFFFF商品規(guī)格/font/tdtd width=80 bgcolor=008080font color=FFFFFF單價(jià)/font/tdtd width=91 bgcolor=008080font color=FFFFFF訂購(gòu)數(shù)量/font/td /tr% i=1 do while not % %set temprs= （） sql=select * from Ref_Product where Product_No=amp。rs（Product_No） sql，dbOnlineShoppingDB，3，1 39。訂單入庫 strSQL=insert into Dat_OrderList （Order_No， Product_No， OrderList_Qty， OrderList_Price） values （39。amp。Request（temp_id）amp。39。，39。amp。temprs（Product_No）amp。39。，39。amp。rs（Temp_Qty）amp。39。，39。amp。temprs（Product_Price）amp。39。） strSQL % tr td%=i%/td td%=temprs（Product_Name）%/td td%=temprs（Product_Memo）%/td td%=temprs（Product_Price）%/td td　/td /tr %order_price=rs（Temp_Qty）*temprs（Product_Price）+order_price%% set temprs=nothing i=i+1 （） loop%