一个在线交易市场方案的设计与实现(二)

80酷酷网    80kuku.com

  设计|在线供求信息登记子系统  
用户可以及时地将自己的商品或需求信息发布到网上。用户供求信息由后台数据库通过触发器,根据用户级别自动管理,定时删除。本子系统主要由程序GOODS_ADD.ASP完成。  
接受来自用户的登记信息并完成登记  

//GOODS_ADD.ASP  
< %
’接受来自商品登记界面的数据
username=request.cookies(“username")  
……
set conn= server.createobject
(“adodb.connection")
conn.connectionstring=“driver=
{sql server};server=;uid=;pwd=;database="  
conn.open
’进行用户身份验证
sql1=“select * from park_online where name=
‘“&username&"' order by name"  
set rs1=conn.execute(sql1)
if rs1.eof then response.write  
“拒绝访问" : response.end
sql=“insert into market_goods values
(‘“&client_type&"',‘“&goods_name&"',
‘“&goods_class&"',‘“&description&"',
‘“&publisher&"',‘“&contact&"',getdate())"
conn.execute (sql)
set conn=nothing
response.redirect “../log.htm"
% >

在线用户交谈子系统  
系统模仿现实生活中的市场,在线的供求双方可以直接交流商品的有关信息,确定商品的交易价格,以决定成交与否。 主要由程序ADDSAY.ASP、 SAY.ASP完成。  
//ADDSAY.ASP
< %
……
says=request.form(“says")
says=server.HTMLEncode(says)
sql=“insert into park_says values(‘“&username&"',
‘“&towho&"',‘“&towhoway&"',‘“&subject&"',
‘“&says&"',getdate(),‘ ')"
conn.execute sql
set conn=nothing
response.redirect “say.asp"
……
//SAY.ASP
< %
username=request.cookies(“username")
subject=request.cookies(“subject")
set conn=server.createobject (“adodb.connection")  
conn.connectionstring=“driver=
{sql server};server=ntd0;uid=xpm;pwd=xpm123;database=park"  
conn.open
set rs=conn.execute(“select name from park_online  
where name=‘“&username&"'")
if rs.eof then
% >
< html >< head >
'对于不遵守市场规则的用户,禁止其继续留在市场
< script language=“JavaScript" >  
window.open(‘kick.asp',‘market',‘resizable=no')
< /script >
< %
end if
% >
< meta http-equiv=‘content-type' content=
‘text/html; charset=gb2312' >
< title >对话区< /title >
< meta http-equiv=refresh content=
‘10;url=say.asp' >< /head >
< %  
set rs=server.createobject (“adodb.recordset")
sql=“select name,towho,towhoway,contents,
time from park_saysrs.open sql,conn,3,1”
if not rs.eof then
line=1
rs.movelast
do while not rs.bof
if line >15 then
exit do
end if
if trim(rs(1))< >“全部" and trim(rs(2))=“1" then
if username=trim(rs(0)) or username=trim(rs(1)) then
response.write “< font size=2 color=
#FF0000 >”&trim(rs(0))&“只对”&trim
(rs(1))&“说 > >< /font >< font color=#0000FF >”
&rs(3)&“< font size=1 >(”&timevalue(rs(4))&“)
< /font >< /font >< br >"
line=line+1
end if
else
response.write “< font size=2 color=#FF0000 >”
&trim(rs(0))&“对”&trim(rs(1))&“说 > >
< /font >< font color=#0000FF >”&rs(3)&“
< font size=1 >(”&timevalue(rs(4))&“)< /font >
< /font >< br >"
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  
< %
'接受来自用户同意界面的数据
username=request.cookies(“username")  
client_type=request.form(“jy1")
object=trim(request.form(“jy2"))
goods=request.form(“jy3")
amount=request.form(“jy4")
price=request.form(“jy5")
description=request.form(“jy6")
writer=trim(request.form(“jy7"))
says=writer+client_type+object+
goods+amount+price+description
set conn= server.createobject(“adodb.connection")
conn.connectionstring=“driver=
{sql server};server=;uid=;pwd=;database="  
conn.open
sql1=“select * from park_online where name=
‘“&username&"' o

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: