熱門商品區功能

與【產品類別】，很快地知道商品屬於哪一種類性質，而本網站有記 錄 「刊登時間」 與統計「商品觀看次數」，可以讓顧客知道目前流 行的是什麼，也可以提供 e-sale 拍賣網知道顧客想要的商品是哪一 方面，並有專門處理顧客訂單的設計，可增加處理訂單的效率。

此 功 能 分 成 了 三 個 子 功 能 。

1.顧客線上訂購。

2. 訂單管理。

3. 熱門商品管理。

(1) 顧客線上訂購

熱門商品區是專門來販賣 e-sale 拍賣網的商品，只要 一進入熱門商品區，就可免除掉許多繁雜的手續，希望能給 顧客們最快速，最便利的服務，如【圖 4.16】，除了清楚的

將物品分門別類，也附上商品的觀看次數，很容易讓顧客可 以找到本網站的熱門商品是什麼，只要對哪件商品有興趣，

可以點選該物品，直接可以瀏覽該物品的相關內容，如【圖 4.17】所示，若顧客想要購買此商品，可以直接按【圖 4.17】

下方的【我要訂購這項產品】，然後填寫訂購單的資料，如

【圖 4.18.1】與【圖 4.18.2】，完成後，點選【送出訂單】

即 可 完 成 訂 購 交 易 。

圖 4.16 熱 門 拍 賣 區 - 產 品 一 覽

圖 4.17 熱 門 拍 賣 品

圖 4.18.1 熱 門 商 品 線 上 訂 購 (上 頁 )

圖 4.18.1 熱 門 商 品 線 上 訂 購 (下 頁 )

(b) Process:

USER=REQUEST("USER") PAGE=REQUEST("PAGE") ID = Request.Querystring("ID")

Set CN = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("data.mdb")

CN.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set RS = Server.CreateObject("ADODB.Recordset")

Set RS1 = Server.CreateObject("ADODB.Recordset")

SQL="SELECT*FROM Board WHERE ( ID = "&ID&")"

RS.Open SQL,CN,1,3

NEWIP = REQUEST.servervariables("REMOTE_ADDR") RS("HITS") = RS("HITS") + 1

R S . U P D A T E

(c) Output:

當送出訂單後，會將顧客所填寫的訂單資料傳回本網 站，本網站會依照下訂單的順序，來處理顧客的訂單。同 時 表 達 對 顧 客 的 感 謝 ， 如 【 圖 4.19】。

圖 4.19 完 成 商 品 訂 購

(2) 訂單管理

登入管理之後，再依畫面指示輸入管理帳號與管理密碼，

如【圖 4.20】，然後畫面會顯示目前所有的訂單，方便訂單的 作 業 ， 如 【 圖 4.21】。

圖 4.20 管 理 帳 號 與 管 理 密 碼 輸 入

圖 4.21 列 出 已 收 到 的 訂 單

(b) Process :

page=request("page")

S e t c o n n = S e r v e r . C r e a t e O b j e c t ( " A D O D B . C o n n e c t i o n " ) D B P a t h = S e r v e r . M a p P a t h ( " d a t a . m d b " )

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath SET rs = Server.CreateObject("ADODB.Recordset")

Rs.Open "Select * From add order by id desc" , conn,1,3

(c) Output :

處理完訂單後，可刪除已處理的訂單後，可以來檢視還 有多少訂單等待處理，也可以依照顧客下訂單的順序，來決 定 處 理 的 順 序 。

圖 4.22 處 理 訂 單 完 後

(3) 熱門商品管理

若要新增本站的熱門商品，請先進入管理模式，如【表 4.23】，然後輸入【管理帳號】和【管理密碼】，按【確定】

後，若比對資料正確，則可進入產品管理的主選單，畫面如

【圖 4.24】所示，然後就可以開始填寫【新增物品表單】了，

如 【 圖 4.25】。

圖 4.23 管 理 者 登 入

圖 4.24 管 理 者 登 入 後 的 選 單

圖 4.25 填 寫 新 增 拍 賣 物 品 (b) Process :

if request.form("memo")<>"" then memo=request.form ("memo") if session("memo")="" then

memo=replace(memo,"<","&lt;") e n d i f

memo=replace(memo,chr(13),"<br>")

else

ok=false end if

if request.form("ms1")<>"" then else

ok=false end if

if request.form("m2")<>"" then m2=request.form ("m2") else

ok=false end if

if request.form("m2")<>"" then m2=request.form ("m2") else

圖 4.26 新 增 拍 賣 物 品 完 成