一個在線交易市場方案的設計與實現
一個在線交易市場方案的設計與實現 萊陽農學院　徐鵬民　蓋凌云　李常先 　　本文設計了一個網上商品交易系統(tǒng)。作為虛擬社區(qū)的一部分，系統(tǒng)模擬現實生 活中人們的市場行為，為社區(qū)用戶提供購銷服務。利用該系統(tǒng)，用戶既可發(fā)布和查 詢供求信息，又可實時在線交流，表達購銷意向，從事購銷活動，從而實現在線交 易。 系統(tǒng)以 Windows NT 4.0為平臺，采用 IIS 4.0做 Web服務器， MS SQL Server 7.0做數據庫服務器，數據庫中設有用戶表、供求信息表和成交記錄表，三個數據 表記錄有關的交易數據，開發(fā)工具采用 HTML、 ASP和 JavaScript，部分程序如下。 用戶身份認證子系統(tǒng) 系統(tǒng)采用會員制，所有用戶必須首先注冊，才能進入市場。對用戶進行分級管理， 根據不同的用戶級別決定用戶所登記的供求信息發(fā)布時間的長短。通過用戶名和密 碼控制用戶的登記行為和交易行為。該子系統(tǒng)主要由程序 LOGIN.HTM、 CHECK.ASP完成。 提供用戶登錄界面 //LOGIN.HTM …… 用戶： 密碼： response.write " "用戶名 "和 "密碼 "不匹配！" response.write "原因與處理辦法：" 1.如果您是第一次登錄，則是該用戶名已經被他人注冊過 !您只能換其他名字注冊； "response.write " 2.如果您以前曾經用該名字注冊成功，那么是密碼錯誤； "response.write " 3.如果密碼沒有問題，則可能是您的用戶名已經被別人盜用，并且盜用者更改了密 碼 " response.write "請與管理員聯系。 " response.write "點擊這里進行修改 " response.end else ’登錄正確 ,進入市場 response.redirect " market.htm" end if ’處理未注冊的新用戶 else sql1=" insert park_users values(’ "＆ username＆ "’,’ "＆ userpd＆ "’,getdate(),getdate(),1)" sql2=" insert park_online values(’ "＆ username＆ "’,’ "＆ ip＆ "’,getdate())" conn.execute(sql1) conn.execute(sql2) response.write " ?。?！歡迎您光臨?。?！ " response.write " 您的用戶名是： "＆ request.form(" username")＆ " "＆ "密碼是： "＆ request.form(" userpd")＆ " " response.write "再次光臨您可繼續(xù)使用以上數據！ " end if …… 供求信息查詢子系統(tǒng) 用戶通過本子系統(tǒng)可得到詳細的供求信息，包括供求的商品名稱、價格、數量、聯 系方法以及有關描述，甚至圖片、音頻和視頻。用戶可采用分類瀏覽和關鍵詞查詢 兩種方式，對于關鍵詞查詢，只要輸入商品名稱或表示商品用途、形狀等的單詞或 短語，系統(tǒng)即可通過專門的查詢算法，對數據庫進行準全文式的模糊查詢。本子系 統(tǒng)主要由程序 SEARCH1.ASP、 SEARCH2.ASP和 LINK.ASP完成。 接受并完成用戶查詢請求 //SEARCH1.ASP …… ’來自查詢界面的數據 c_type=request.querystring(" c_type") goods_class=request.form(" D1") s=request.form(" T1") set conn= server.createobject(" adodb.connection") ’打開數據庫 conn.connectionstring=" driver={sql server};server=;uid=;pwd=;database=" conn.open set session(" rs")=server.createobject(" adodb.recordset") ’構造檢索算法 if goods_class="全部 " then sql=" select goods_name,goods_class,description,publisher,contact,pub_date from market_goods where client_type=’ "＆ c_type＆ "’ and goods_name like ’％ "＆ s＆ "％ ’" else sql=" select goods_name,goods_class,description,publisher,contact,pub_date from market_goods where client_type=’ "＆ c_type＆ "’ and goods_class=’ "＆ goods_class＆ "’ and goods_name like ’％ "＆ s＆ "％ ’" end if …… if c_type=" s" then response.write " 賣方市場 " else response.write " 買方市場 " end if …… response.write" " response.write " "＆ session(" rs").absoluteposition＆ " " for i=0 to session(" rs").fields.count－ 1 response.write " "＆ session(" rs")(i).value＆ " " next response.write " " session(" rs").movenext if session(" rs").eof then exit for end if next …… nowpage=session(" rs").absolutepage－ 1 else nowpage=session(" rs").pagecount end if response.write " |當前頁數： "＆ nowpage＆ " " response.write " |總頁數： "＆ session(" rs").pagecount＆ " " response.write " |總記錄數： "＆ session(" rs").recordcount＆ " " response.write " |每頁記錄數： "＆ session(" rs").pagesize＆ " " for i=1 to session(" rs").pagecount if inowpage then response.write " "＆ i＆ " "＆ " " else response.write i＆ " " end if next ％ > 　 供求信息登記子系統(tǒng) 用戶可以及時地將自己的商品或需求信息發(fā)布到網上。用戶供求信息由后臺數據庫 通過觸發(fā)器，根據用戶級別自動管理，定時刪除。本子系統(tǒng)主要由程序 GOODS_ADD.ASP完成。 接受來自用戶的登記信息并完成登記 //GOODS_ADD.ASP 在線用戶交談子系統(tǒng) 系統(tǒng)模仿現實生活中的市場，在線的供求雙方可以直接交流商品的有關信息，確定 商品的交易價格，以決定成交與否。主要由程序 ADDSAY.ASP、 SAY.ASP完成。 //ADDSAY.ASP >"＆ rs(3)＆ " ("＆ timevalue(rs(4))＆ " ) " line=line＋ 1 end if else response.write " "＆ trim(rs(0))＆ "對 "＆ trim(rs(1))＆ "說 >>"＆ rs(3)＆ " ("＆ timevalue(rs(4))＆ " ) " line=line＋ 1 end if rs.moveprevious loop if rs.bof then rs.movefirst end if end if rs.close conn.close ％ > 成交記錄子系統(tǒng) 本子系統(tǒng)主要是為在線用戶而設，當在線用戶通過交談決定成交后，由本系統(tǒng)對此 做詳細的成交記錄，包括交易雙方的名字、成交商品的名稱、數量、價格、要求和 所提供的服務等項目。當交易產生爭執(zhí)時可提供證據，從而在一定程度上解決交易 過程中的違規(guī)行為，以保證在線交易的信譽。本子系統(tǒng)通過發(fā)送 COOKIES進行用戶身份驗證，以確保用戶的真實身份，避免冒充他人從事交易的欺 騙行為。系統(tǒng)主要由程序 AGREE.ASP完成。 記錄用戶交易過程，以備查詢 //AGREE.ASP
一個在線交易市場方案的設計與實現