一个在线交易市场方案的设计与完成（二)|雨林木风下载站

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

供求信息登记子系统
用户可以及时地将自己的商品或需求信息发布到网上。用户供求信息由后台数据库通过触发器，根据用户级别自动管理，定时删除。本子系统主要由程序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 “”＆trim(rs(0))＆“只对”＆trim
(rs(1))＆“说 > >”
＆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
< ％
'接受来自用户同意界面的数据
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 >
 OK！"
response.write “ < a href=”
“javascript:window.close()"“ >关闭窗口< /a >
< /center >< /body >< /html >"
else
response.write “< html >< body bgcolor=
＃ff0000 text=＃ffffff >< center > 您不能冒充别人的名字从事交易！
"
response.write “ <
a href=”“javascript:window.close()"“ >关闭窗口
< /a >< /center >< /body >< /html >"
end if
％ >

温馨提示：喜欢本站的话，请收藏一下本站！

当前位置:雨林木风下载站 > 网页设计教程 > 详细页面

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

本类教程下载

系统下载排行