一个在线交易市场方案的设计与实现莱阳农学院徐鹏民盖凌云李常先本文设计了一个网上商品交易系统。作为虚拟社区的一部分，系统模拟现实生活中人们的市场行为，为社区用户提供购销服务。利用该系统，用户既可发布和查询供求信息，又可实时在线交流，表达购销意向，从事购销活动，从而实现在线交易。系统以WindowsNT4.0为平台，采用IIS4.0做Web服务器，MSSQLServer7.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.endelse'登录正确,进入市场response.redirect"market.htm"endif'处理未注册的新用户elsesql1="insertpark_usersvalues('"＆username＆"','"＆userpd＆"',getdate(),getdate(),1)"sql2="insertpark_onlinevalues('"＆username＆"','"＆ip＆"',getdate())"conn.execute(sql1)conn.execute(sql2)response.write"！！！欢迎您光临！！！"response.write"您的用户名是："＆request.form("username")＆""＆"密码是："＆request.form("userpd")＆""response.write"再次光临您可继续使用以上数据！"endif……供求信息查询子系统用户通过本子系统可得到详细的供求信息，包括供求的商品名称、价格、数量、联系方法以及有关描述，甚至图片、音频和视频。用户可采用分类浏览和关键词查询两种方式，对于关键词查询，只要输入商品名称或表示商品用途、形状等的单词或短语，系统即可通过专门的查询算法，对数据库进行准全文式的模糊查询。本子系统主要由程序SEARCH1.ASP、SEARCH2.ASP和LINK.ASP完成。接受并完成用户查询请求//SEARCH1.ASP……'来自查询界面的数据c_type=request.querystring("c_type")goods_class=request.form("D1")s=request.form("T1")setconn=server.createobject("adodb.connection")'打开数据库conn.connectionstring="driver={sqlserver};server=;uid=;pwd=;database="conn.opensetsession("rs")=server.createobject("adodb.recordset")'构造检索算法ifgoods_class="全部"thensql="selectgoods_name,goods_class,description,publisher,contact,pub_datefrommarket_goodswhereclient_type='"＆c_type＆"'andgoods_namelike'％"＆s＆"％'"elsesql="selectgoods_name,goods_class,description,publisher,contact,pub_datefrommarket_goodswhereclient_type='"＆c_type＆"'andgoods_class='"＆goods_class＆"'andgoods_namelike'％"＆s＆"％'"endif……ifc_type="s"thenresponse.write"卖方市场"elseresponse.write"买方市场"endif……response.write""response.write""＆session("rs").absoluteposition＆""fori=0tosession("rs").fields.count－1response.write""＆session("rs")(i).value＆""nextresponse.write""session("rs").movenextifsession("rs").eofthenexitforendifnext……nowpage=session("rs").absolutepage－1elsenowpage=session("rs").pagecountendifresponse.write"|当前页数："＆nowpage＆""response.write"|总页数："＆session("rs").pagecount＆""response.write"|总记录数："＆session("rs").recordcount＆""response.write"|每页记录数："＆session("rs").pagesize＆""fori=1tosession("rs").pagecountifi<>nowpagethenresponse.w...
