供求信息登记子系统
用户可以及时地将自己的商品或需求信息发布到网上。用户供求信息由后台数据库通过触发器，根据用户级别自动管理，定时删除。本子系统主要由程序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 &
用户可以及时地将自己的商品或需求信息发布到网上。用户供求信息由后台数据库通过触发器，根据用户级别自动管理，定时删除。本子系统主要由程序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 &
相关文章
 我来说两句 |
对此文章发表了评论 |
评论列表 （最新 评论仅限网友观点！）
推荐文章
