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" -->
<%response.buffer=true
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: auction.asp
'Version:2.0
'UpdateTime: 2004-10-3 19:46:04
'Script Written by www.aspease.com
'=========================================================
if rst("action")="del" then
ownerid=fval(userid)
aucid=fval(rst("aucid"))
sql="select * from auctions where auc_id="&sqlval(aucid)&" and auc_itemOwner="&sqlval(ownerid)
set rs=conn.execute(sql)
	if not rs.eof then
		conn.execute("delete from auctions where auc_id="&sqlval(aucid)&" and auc_ItemOwner="&sqlval(ownerid))
		conn.execute("delete from bids where biditemid="&sqlval(aucid)&" and bidsellerid="&sqlval(ownerid))
		conn.execute("delete from upshelf where up_aucid="&sqlval(aucid)&" and up_shelfowner="&sqlval(ownerid))
		rs.close
		response.write "<script language=""javascript"">alert('"&easedodelsucmsg&"');window.location='auction.asp';</script>"
	else
		response.write "<script language=""javascript"">alert('"&easedodelothererrmsg&"');window.location='auction.asp';</script>"
	end if
	response.end
end if 
stats=easeauctionstats
header
activeonline
sql="select * from auctions left join users on auctions.auc_ItemOwner=users.regID where regUsername="&sqlstr(user)&" and auc_Ended='N' order by auc_AvailDate desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
mytabletop
mynavtop easeauctionstats
mycontenttop "40%,10%,10%,*|"&easegoodsname&","&easecurrentbid&","&easelasttime&","&easedeal
if rs.eof then 
	response.write tr2 & tdrc("","4","d",easeauctionlistnull) & 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><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( fval(rs("auc_CurrentBid")))
response.Write("</td>")
response.Write("  <td>")
response.Write(auclefttime(rs("auc_id"),"short"))
response.Write("</td>")
response.Write("  <td>")
sqlb= "select count(get_id) as ttl from gets where get_itemid="&sqlval(rs("auc_id"))
set rsb=conn.execute(sqlb)
if rsb(0)=0 then 
response.Write("<a href=""update_auction.asp?auc_id=")
response.Write(fval(rs("auc_id")))
response.Write(""">")
response.Write(easedoupdate)
response.Write("</a>&nbsp;&nbsp;&nbsp; <a href = ?action=del&aucid=")
response.Write(fval(rs("auc_id")))
response.Write(" onclick=""{if(confirm('")
response.Write(easedodelconfirm)
response.Write("')){this.document.frm.submit();return true;}return false;}""> ")
response.Write(easedodel)
response.Write("</a>")
else
response.Write(easedoupdate)
response.Write("&nbsp;&nbsp;&nbsp; ")
response.Write(easedodel)
end if
response.Write(ctdr)%> <!--#include file="inc/libf.inc"--><%
end if            
mycontentfoot
MyFPage "auction.asp",""
mynavfoot
mytablefoot
footer
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: auction.asp
'Version:2.0
'UpdateTime: 2004-10-3 19:46:04
'Script Written by www.aspease.com
'=========================================================%>