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

供求信息登记子系统  
用户可以及时地将自己的商品或需求信息发布到网上。用户供求信息由后台数据库通过触发器，根据用户级别自动管理，定时删除。本子系统主要由程序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＆"‘’ order by name"
set rs1=conn.execute(sql1)
if rs1.eof then response.write “拒绝访问" :  
response.end
sql=“insert into park_says values(‘“＆writer＆"‘’,
‘“＆object＆"‘’,‘1‘’,‘“＆says＆"‘’,getdate(),‘1‘’)"
‘’对交易用户进行身份验证,以防冒充他人
if writer=username then  
　　conn.execute (sql)
set conn=nothing
response.write “< html >< body >< center >
< font face=黑体 size=6 >< br >OK！< /font >"
response.write “< br >< br >< a href=”
“javascript:window.close()"“ >关闭窗口< /a >
< /center >< /body >< /html >"
else
response.write “< html >< body bgcolor=
＃ff0000 text=＃ffffff >< center >< font face=
黑体 size=10 >< br >您不能冒充别人的名字从事交易！
< /font >"
response.write “< br >< br ><
a href=”“javascript:window.close()"“ >关闭窗口
< /a >< /center >< /body >< /html >"
end if
％ >

原文转自：http://www.ltesting.net