一个在线交易市场方案的设计代码

一个在线交易市场方案的设计与实现莱阳农学院徐鹏民盖凌云李常先本文设计了一个网上商品交易系统。作为虚拟社区的一部分，系统模拟现实生活中人们的市场行为，为社区用户提供购销服务。利用该系统，用户既可发布和查询供求信息，又可实时在线交流，表达购销意向，从事购销活动，从而实现在线交易。系统以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"请与管理员联系。"劈respo挽nse.w斧rite丰"点击这里睛进行修改货"蒙respo钓nse.e计nd叙else样'登录正确孔,进入市康场造respo器nse.r哈edire旦ct"渴marke回t.htm冻"盈endi撕f新'处理未注熟册的新用户廉else吉sql1=顽"ins堤ertp掉ark_u挨sers属value污s('"韵＆use扯rname袄＆"',差'"＆奇userp混d＆"'锯,getd咽ate()纺,getd邮ate()飘,1)"计sql2=雕"ins惩ertp记ark_o闭nline赛valu受es('命"＆us奖ernam俭e＆"'璃,'"＆保ip＆贵"',ge加tdate英())"混conn.盘execu般te(sq卸l1)笼conn.翼execu磨te(sq舅l2)秀respo幻nse.w稼rite书"辟！！！欢迎束您光临！！烘！"帮respo欣nse.w裙rite牢"呢您的用户名泉是："＆膛requ策est.f杰orm("荣user房name"摸)＆"骆"＆震"密码是：昆"＆r臣eques榨t.for店m("u帮serpd枣")＆"浅"怪respo盲nse.w枣rite劣"再次光临掩您可继续使云用以上数据稿！"隔endi恒f……雾供求信息查吴询子系统士用户通过本随子系统可得稠到详细的供味求信息，包句括供求的商起品名称、价秒格、数量、榜联系方法以土及有关描述故，甚至图片投、音频和视灾频。用户可副采用分类浏储览和关键词英查询两种方霉式，对于关锡键词查询，迹只要输入商画品名称或表冤示商品用途姜、形状等的假单词或短语纵，系统即可胸通过专门的界查询算法，蜻对数据库进豪行准全文式念的模糊查询朵。本子系统丙主要由程序级SEAR宜CH1.A乳SP、S减EARCH画2.ASP烦和LIN虾K.ASP曲完成。俘接受并完成及用户查询请眯求棋//SEA判RCH1.管ASP……颈'来自查询斥界面的数据挽齿c_typ誉e=req亦uest.广query械strin失g("c甜_type袍")阵goods仙_clas中s=req施uest.表form(叛"D1"返)呢s=req酱uest.秃form(世"T1"惨)杂setc柴onn=原serve窜r.cre悟ateob舒ject(您"ado姥db.co淡nnect托ion")馋领'打开数据弹库颗conn.谊conne品ction政strin固g="d付river淡={sql谁serv环er};s塞erver纳=;uid图=;pwd胆=;dat爱abase滴="争conn.阿open幻sets亲essio论n("r器s")=s染erver遵.crea语teobj端ect("毫adod掀b.rec叛ordse走t")剥'构造检索颈算法萌ifgo砍ods_c匆lass=喊"全部"骄then贤查sql="捆sele授ctgo锦ods_n万ame,g询oods_螺class圆,desc暑ripti圈on,pu柜blish曾er,co觉ntact田,pub_寸date警from右marke兼t_goo命dswh房erec浓lient商_type则='"＆来c_ty奶pe＆"股'and切good目s_nam械elik耽e'％肾"＆s＆绪"％'肤"else影sql="懂sele星ctgo鼻ods_n爹ame,g锹oods_应class莲,desc架ripti杠on,pu斧blish秩er,co瓜ntact丘,pub_棕date剖from承marke姻t_goo岁dswh金erec瓜lient赔_type钟='"＆晚c_ty沈pe＆"矿'and类good棚s_cla什ss='庸"＆go居ods_c莫lass＆狠"'a搬ndgo毛ods_n宁amel危ike'药％"＆雅s＆"％称'"捏endi屿f……展ifc_晕type=沿"s"稼then协respo阅nse.w旦rite亿"卖方市场"else蚂respo锤nse.w享rite层"买方市场"砍endi卡f……拐respo洒nse.w车rite"豆"杜respo岩nse.w第rite恩""＆须sessi研on("齐rs").许absol收utepo源sitio维n＆"槽"联fori薪=0to鲁sess团ion("宅rs")稍.fiel撕ds.co缓unt－疮1狐respo树nse.w买rite包""＆通sessi慌on("田rs")(哈i).va革lue＆亿""next丈respo烦nse.w缩rite煤""隶sessi折on("绿rs").陶moven股ext扔ifse喜ssion膜("rs贵").eo须fthe违n切exit路for余endi染fnext……宜nowpa纽ge=se蜜ssion扁("rs绘").ab弄solut仗epage迎－1else拌nowpa尖ge=se改ssion岸("rs很").pa果gecou孕nt没endi耍f维respo卷nse.w鲜rite限"|当前列页数："怠＆now谦page＆鉴""萝respo局nse.w州rite漂"|总页班数："＆部sess箱ion("尸rs")甜.page帝count测＆""龟哭respo茅nse.w买rite登"|总记酿录数："榆＆ses烘sion(秀"rs"灭).rec示ordco汇unt＆乳""卵respo蛙nse.w销rite任"|每页缎记录数：权"＆se磨ssion守("rs万").pa辜gesiz阻e＆""贩fori喊=1to想sess变ion("饥rs")睁.page辉count沿殿ifi<欺>nowp艺aget嘱hen荣respo踏nse.w束rite泡"<a愿href防=""功searc慕h2.as哪p?pag正e="＆葱i＆"锣"">响"＆i＆朝""＆趋""else简respo毕nse.w枪rite锐i＆"哥"尊endi桃fnext％>间供求信息登涨记子系统顶用户可以及丛时地将自己世的商品或需员求信息发布便到网上。用泳户供求信息还由后台数据跨库通过触发炮器，根据用挨户级别自动依管理，定时割删除。本子匀系统主要由户程序GO临ODS_A说DD.AS娃P完成。愚接受来自用违户的登记信巡息并完成登简记泡//GOO挂DS_AD碑D.ASP补<％倍'接受来自柔商品登记界运面的数据杜usern披ame=r奸eques圾t.coo漫kies(拖"use腹rname签")……仪setc斤onn=袋serve鸣r.cre罩ateob雨ject(腊"ado芦db.co榆nnect姐ion")紧屠conn.弃conne裕ction烘strin牙g="d排river体={sql波serv挖er};s徐erver袭=;uid耗=;pwd凶=;dat妥abase绑="效conn.菠open局'进行用户姻身份验证蠢sql1=式"sel购ect＊偏from叙park_宗onlin洪ewhe胀rena膨me='天"＆us韵ernam贷e＆"'愉orde蜻rby诊name"沙绢setr玩s1=co健nn.ex坡ecute慨(sql1肾)锅ifrs坚1.eof烟then扑resp增onse.井write葵"拒绝访顽问":昼resp世onse.雁end袭sql="争inse锦rtin抽toma友rket_亏goods皮valu裹es('没"＆cl搏ient_脉type＆特"','辫"＆g瘦oods_驴name＆搬"','炕"＆g忘oods_斜class忘＆"',纷'"＆冰descr谢iptio锡n＆"'以,'"＆兼publ绢isher谊＆"',昼'"＆线conta症ct＆"最',get隆date(宜))"帖conn.垃execu铁te(s阻ql)撒setc悟onn=n沈othin蝇g保respo利nse.r侄edire花ct"静../lo值g.htm课"％>袖在线用户交灵谈子系统虹系统模仿现谁实生活中的蠢市场，在线断的供求双方倚可以直接交难流商品的有贺关信息，确候定商品的交尘易价格，以棕决定成交与弟否。主要由吸程序AD始DSAY.盟ASP、膜SAY.A量SP完成。朗盲//ADD能SAY.A口SP<％……拍says=糟reque润st.fo顽rm("哗says"裳)债says=通serve模r.HTM拿LEnco晕de(sa鹰ys)简sql="条inse芳rtin问topa淘rk_sa溪ysva脾lues(员'"＆煎usern结ame＆璃"','路"＆to欠who＆邻"','立"＆to谅whowa葵y＆"'耻,'"＆升subj栏ect＆跪"','装"＆sa男ys＆"叹',get涨date(败),''匙)"优conn.掏execu迁tesq训l餐setc赛onn=n撒othin芹g协respo涉nse.r详edire摘ct"央say.a财sp"……忠//SAY贡.ASP<％菊usern矛ame=r免eques您t.coo姥kies(满"use虚rname矿")墓subje冒ct=re倡quest赔.cook晴ies("降subj叉ect")扑景setc诉onn=s份erver悉.crea娃teobj诞ect(味"ado陈db.co堤nnect谱ion")赠疮conn.形conne仔ction翻strin毛g="d慌river似={sql售serv苹er};s咱erver炒=ntd0室;uid=钻xpm;p幼wd=xp里m123;邪datab嚼ase=p辉ark"爷conn.同open膜setr检s=con拦n.exe映cute(刷"sel狗ectn旨amef因romp锻ark_o大nline境wher帜enam崭e='"拼＆use火rname乘＆"'"桨)污ifrs驱.eof散then％>告'对于不遵逆守市场规则镰的用户,折禁止其继续你留在市场<％豪endi散f％><％骡setr充s=ser伙ver.c芒reate弓objec驰t("态adodb坡.reco罗rdset役")稼sql="坛sele织ctna伪me,to译who,t梨owhow帖ay,co添ntent择s,tim休efro茅mpar蚁k_say浓srs.o梳pens逮ql,co洗nn,3,菠1"迷ifno俱trs.房eoft缠hen精line=农1剖rs.mo益velas驶t的dowh潮ilen赌otrs虑.bof寄ifli早ne>15纸then诉吴exit束do牲endi院f仿iftr击im(rs险(1))<载>"全部止"and管trim季(rs(2悦))="盖1"th彩en氏ifus势ernam晒e=tri皇m(rs(诚0))o绞ruse梁rname均=trim忆(rs(1瓣))th聚en槐respo滨nse.w返rite传""＆稼trim(验rs(0)问)＆"只览对"＆悔trim(字rs(1)膀)＆"说神>>"＆载rs(3乌)＆"挤("＆t醉imeva安lue(r洒s(4))锦＆")数"经line=恐line＋令1餐endi腥felse求respo疫nse.w缴rite迹""＆逗trim(赠rs(0)次)＆"对芝"＆t鹊rim(r尊s(1))挡＆"说芦>>"＆阅rs(3)鹿＆"(杯"＆ti框meval艳ue(rs业(4))＆顶")"核line=枪line＋盒1世endi水f副rs.mo求vepre伯vious哭loop坦ifrs影.bof歪then抓rs.mo剖vefir挥st乖endi胶f辫endi钢f寻rs.cl坛ose太conn.驾close祝％>艇成交记录子肾系统低本子系统主谣要是为在线矛用户而设，贪当在线用户凳通过交谈决闷定成交后，喜由本系统对员此做详细的教成交记录，垒包括交易双静方的名字、庆成交商品的什名称、数量纯、价格、要爆求和所提供巨的服务等项抛目。当交易奔产生争执时躺可提供证据骨，从而在一泥定程度上解狱决交易过程钢中的违规行提为，以保证撞在线交易的信信誉。本子平系统通过发糖送COO竿KIES进片行用户身份商验证，以确准保用户的真行实身份，避如免冒充他人尺从事交易的出欺骗行为。奋系统主要由玩程序AG究REE.A衡SP完成。温真记录用户交昨易过程，以困备查询翻//AGR披EE.AS韵P<％梦'接受来自灰用户同意界千面的数据鞋usern之ame=r轰eques泥t.coo裕kies(觉"use窄rname晓")够clien糠t_typ优e=req悼uest.台form(武"jy1丛")统objec柔t=tri紫m(req抚uest.吨form(明"jy2刘"))命goods及=requ仰est.f吩orm("羞jy3"酒)轰amoun杂t=req繁uest.手form(解"jy4巷")届price寒=requ谢est.f飞orm("足jy5"耽)丘descr怨iptio脱n=req赌uest.忧form(颤"jy6岔")态write跌r=tri婆m(req薪uest.符form(鼓"jy7骨"))筑says=挨write机r＋cl言ient_观type＋促obje恋ct＋g柜oods＋困amou原nt＋p塑rice＋久desc水ripti灰on遭setc缓onn=条serve耕r.cre闻ateob确ject(油"ado饼db.co任nnect哗ion")沸破conn.吧conne托ction丽strin突g="d坛river痛={sql宅serv牢er};s蜻erver康=;uid总=;pwd叛=;dat布abase望="座conn.四open份sql1=琴"sel捐ect＊脾from勺park_或onlin栋ewhe架rena使me='轧"＆us冻ernam歉e＆"'党orde前rby生name"俩款setr穴s1=co程nn.ex各ecute携(sql1辨)辆ifrs牌1.eof身then毛resp旷onse.雹write蚊"