end1_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: end1_auction.asp
'Version:2.0
'UpdateTime: 2004-10-3 23:19:46
'Script Written by www.aspease.com 
'=========================================================
if request("submit")<>"" and rst("c1")<>"" then
aucid=FVal(rst("c1"))
aucnum=FVal(rst("auc_num"))
owner=FVal(rst("auc_owner"))
days=FVal(rst("days"))
closedate= DateAdd("d", days, NOW)
err_msg=""
	if owner<>fval(userid) then
		err_msg=errmsg&"<B><LI>"&easeend1aucerr1&"</B>"
	end if
sql="select * from auctions where auc_id="&sqlval(aucid)&" and auc_numleft="&sqlval(aucnum)&" and auc_ItemOwner="&sqlval(owner)
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
	if rs.recordcount=0 then 'is it ok?
		err_msg=errmsg&"<B><LI>"&easeend1aucerr1&"</B>"
	else 'ok, you can update the database
		set rs2=conn.execute("select auc_ended from auctions where auc_ended='N' and auc_id="&sqlval(aucid))
		if not rs2.eof then
			err_msg=errmsg&"<B><LI>"&easeend1aucerr2&"</B>"
		end if
	end if
if err_msg<>"" then
	stats=easeerrmsgname
	header
	aspease_err
else
	stats=easeend1aucstats2
	header
	conn.execute("update auctions set auc_num="&sqlval(aucnum)&",auc_AvailDate=now(),auc_CloseDate='"&closedate&"',auc_ended='N',auc_clicknum=0 where auc_id="&sqlval(aucid))
	suc_msg="<center>"&easeend1aucstats2&"<br><a href=viewitem.asp?aucid="&aucid&">"&easeseeitempage&"</a></center>"
	aspease_suc	
end if
footer
response.end
end if
stats=easeend1aucstats
header
call activeonline()
sql="select * from auctions where auc_ended='Y' and auc_Numleft<>0 and auc_ItemOwner="&sqlval(userid)&" order by auc_CloseDate desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
totalcs=rs.recordcount
mytabletop
mynavtop easeend1aucstats
mycontenttop "34%,28%,*,12%,14%|"&easeend1auctoplist
if rs.eof then 
	response.write tr2&"<td colspan=""5"">"&easeend1aucnull&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("><form action=""?aucid=")
response.Write( FVal(rs("auc_id")) )
response.Write(""" method=""post"" target=""_self"">")
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><select name=""days"" id=""days""><option value=""3"">3</option><option value=""7"" selected>7</option><option value=""10"">10</option></select>")
response.Write(easeauctiondaysvalue)
response.Write("</td>")
response.Write("       <td>")
response.Write( FVal(rs("auc_numleft")) )
response.Write("<input type=""hidden"" name=""auc_num"" value=""")
response.Write( FVal(rs("auc_numleft")) )
response.Write("""><input type=""hidden"" name=""auc_owner"" value=""")
response.Write( FVal(rs("auc_ItemOwner")) )
response.Write("""></td>")
response.Write("       <td><input type=""checkbox"" name=""c1"" value=""")
response.Write( FVal(rs("auc_id")) )
response.Write("""><input type=""submit"" name=""submit"" value=""")
response.Write(easesubmitbutton)
response.Write("""></td></form>"&ctr)
%><!--#include file="inc/libf.inc"--><%
end if
mycontentfoot
MyFPage "end1_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: end1_auction.asp
'Version:2.0
'UpdateTime: 2004-10-3 23:19:46
'Script Written by www.aspease.com 
'=========================================================%>