end_auction.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: end_auction.asp
'Version:2.0
'UpdateTime: 2004-10-3 23:14:56
'Script Written by www.aspease.com 
'=========================================================
stats=easeendaucstats
header
call activeonline()
action=rst("action")
select case action
case "all"
sql="select * from gets,auctions where get_itemid=auc_id and get_sellerid="&sqlval(userid)&" order by get_Date desc"
case "buy"
sql="select * from gets,auctions where get_itemid=auc_id and get_sellerid="&sqlval(userid)&" and get_type= 1 order by get_Date desc"
case "bid"
sql="select * from gets,auctions where get_itemid=auc_id and get_sellerid="&sqlval(userid)&" and get_type= 0 order by get_id desc"
case else
sql="select * from gets,auctions where get_itemid=auc_id and get_sellerid="&sqlval(userid)&" order by get_Date desc"
end select
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
totalcs=rs.recordcount
mytabletop
mynavtop easeendaucstats
myrighttop "100%","0","0","b1","style=margin-top:5px;margin-bottom:5px"
myrighttr "33%,33%,*|<a href=""?action=all"">"&easeendaucall&"</a>,<a href=""?action=bid"">"&easeendaucbid&"</a>,<a href=""?action=buy"">"&easeendaucbuy&"</a>"
myrightfoot
mycontenttop "36%,20%,24%,*|"&easeendauctoplist
if rs.recordcount=0 then 
response.write tr2&" <td colspan=""4"">"&easeendaucnull&ctdr		
else
auction_page=10
buyerid=FVal(rs("get_buyerid"))
sellerid=FVal(rs("get_sellerid"))
aucid=FVal(rs("auc_id"))%><!--#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><a href=""viewitem.asp?aucid=")
response.Write( FVal(rs("auc_id")) )
response.Write(""" target=""_blank"">")
response.Write( rs("auc_itemtitle") )
response.Write("</a></td>")
response.Write("         <td>")
response.Write( sqldate(rs("auc_CloseDate")) )
response.Write("</td>")
response.Write("         <td>")
if FVal(rs("get_type"))=1 then response.write easeykjname else response.write easeaucname end if 
response.Write("</td>")
response.Write("		 <td><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;<a href=""usercredit.asp?userid=")
response.Write( FVal(rs("get_BuyerID")) )
response.Write(""" target=_blank>")
response.Write( aspeaseusername(rs("get_buyerid")))
response.Write("</a>" & ctdr)
%><!--#include file="inc/libf.inc"--><%
end if
mycontentfoot          
MyFPage "end_auction.asp",rst("action")
mynavfoot
mytablefoot
footer
response.Write("<script language=""javascript"">")
response.Write(chr(10))
response.Write("<!--")
response.Write(chr(10))
response.Write("function popw(sellerid,aucid,buyerid){window.open(""contact.asp?t=contactbuyer&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("</script>")
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: end_auction.asp
'Version:2.0
'UpdateTime: 2004-10-3 23:14:56
'Script Written by www.aspease.com 
'=========================================================%>