一个在线交易市场方案的设计与实现
一个在线交易市场方案的设计与实现 莱阳农学院　徐鹏民　盖凌云　李常先 　　本文设计了一个网上商品交易系统。作为虚拟社区的一部分，系统模拟现实生 活中人们的市场行为，为社区用户提供购销服务。利用该系统，用户既可发布和查 询供求信息，又可实时在线交流，表达购销意向，从事购销活动，从而实现在线交 易。 系统以 Windows NT 4.0为平台，采用 IIS 4.0做 Web服务器， MS SQL Server 7.0做数据库服务器，数据库中设有用户表、供求信息表和成交记录表，三个数据 表记录有关的交易数据，开发工具采用 HTML、 ASP和 JavaScript，部分程序如下。 用户身份认证子系统 系统采用会员制，所有用户必须首先注册，才能进入市场。对用户进行分级管理， 根据不同的用户级别决定用户所登记的供求信息发布时间的长短。通过用户名和密 码控制用户的登记行为和交易行为。该子系统主要由程序 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 "再次光临您可继续使用以上数据！ " end if …… 供求信息查询子系统 用户通过本子系统可得到详细的供求信息，包括供求的商品名称、价格、数量、联 系方法以及有关描述，甚至图片、音频和视频。用户可采用分类浏览和关键词查询 两种方式，对于关键词查询，只要输入商品名称或表示商品用途、形状等的单词或 短语，系统即可通过专门的查询算法，对数据库进行准全文式的模糊查询。本子系 统主要由程序 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 ％ > 　 供求信息登记子系统 用户可以及时地将自己的商品或需求信息发布到网上。用户供求信息由后台数据库 通过触发器，根据用户级别自动管理，定时删除。本子系统主要由程序 GOODS_ADD.ASP完成。 接受来自用户的登记信息并完成登记 //GOODS_ADD.ASP 在线用户交谈子系统 系统模仿现实生活中的市场，在线的供求双方可以直接交流商品的有关信息，确定 商品的交易价格，以决定成交与否。主要由程序 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 ％ > 成交记录子系统 本子系统主要是为在线用户而设，当在线用户通过交谈决定成交后，由本系统对此 做详细的成交记录，包括交易双方的名字、成交商品的名称、数量、价格、要求和 所提供的服务等项目。当交易产生争执时可提供证据，从而在一定程度上解决交易 过程中的违规行为，以保证在线交易的信誉。本子系统通过发送 COOKIES进行用户身份验证，以确保用户的真实身份，避免冒充他人从事交易的欺 骗行为。系统主要由程序 AGREE.ASP完成。 记录用户交易过程，以备查询 //AGREE.ASP
一个在线交易市场方案的设计与实现