bought.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<!--#include file="conn.asp" -->
<!--#include file="inc/check.asp"-->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/myinc.asp" -->
<%
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'FileName: bought.asp
'Version:2.0
'UpdateTime: 2004-10-3 19:31:17
'Script Written by www.aspease.com
'=========================================================
stats=easeboughtstats
header
call activeonline()
action=request("action")
if action="bid" or action="" then
	sql="select * from gets,auctions where get_ItemID=auc_id and get_type=0 and get_BuyerID="&sqlval(userid)&" order by get_date desc"
else
	sql="select * from gets,auctions where get_ItemID=auc_id and get_type=1 and get_buyerID="&sqlval(userid)&" order by get_date desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
mytabletop	
mynavtop easeboughtstats
myrighttop "100%","0","0","b1","style=margin-top:5px;margin-bottom:5px"
myrighttr "7,96,111,*| ,<font color=""#FFFFFF""><a href=""bought.asp?action=bid"">" & easeboughtbid & "</a></font>,<font color=""#FFFFFF""><a href=""bought.asp?action=buy"">"&easeboughtbuy&"</a></font>, "
myrightfoot
mycontenttop "34%,32%,13%,21%|"&easeboughttoplist
if rs.eof then
response.Write(tr2&"<td colspan=""4"" width=""100%"">" & easeboughtnull & ctdr)
else
auction_page=10%><!--#include file="inc/libt.inc"--><%
response.Write("<tr align=""center"" valign=""middle"" height=25 ")
if i mod 2 =0 then
response.Write("class=tdbg2")
else
response.Write("class=tdbg1")
end if
response.Write(">")
response.Write("                <td style=""padding-left:3px""><a href=viewitem.asp?aucid=" & fval(rs("auc_id")) & " target=_blank>" & rs("auc_ItemTitle") & "</a></td>")
response.Write("                <td>" & sqldate(rs("get_date")) & "</td>")
response.Write("                <td>" & FVal(rs("get_Amount")) & " </td>")
response.Write("                <td>")
				   buyerid=fval(rs("get_buyerid"))
                   sellerid=FVal(rs("get_sellerid"))
                   aucid=FVal(rs("auc_id"))
response.Write("<a href=javascript:popw(")
response.Write(sellerid)
response.Write(",")
response.Write(aucid)
response.Write(",")
response.Write(buyerid)
response.Write(")>")
response.Write(easecontactname)
response.Write("</a>&nbsp;")
response.Write("                  <a href=""usercredit.asp?userid=")
response.Write(FVal(rs("get_sellerid")))
response.Write(""" target=_blank>" & aspeaseusername(rs("get_sellerid")) & "</a></td></tr>")
%><!--#include file="inc/libf.inc"--><%			
end if
mycontentfoot
MyFPage "bought.asp",rst("action")
mynavfoot
mytablefoot
rs.close
set rs=nothing
footer
response.Write("<script language=""javascript"">")
response.Write(chr(10))
response.Write("<!--")
response.Write(chr(10))
response.Write("function popw(sellerid,aucid,buyerid)")
response.Write(chr(10))
response.Write("{		")
response.Write(chr(10))
response.Write("window.open(""contact.asp?t=contactseller&aucid=""+aucid+""&sellerid=""+sellerid+""&buyerid=""+buyerid,"""",""height=400,width=600,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no"");")
response.Write(chr(10))
response.Write("}")
response.Write(chr(10))
response.Write("//-->")
response.Write(chr(10))
response.Write("</script>")
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'FileName: bought.asp
'Version:2.0
'UpdateTime: 2004-10-3 19:31:17
'Script Written by www.aspease.com
'=========================================================%>