selling.asp

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

<!--#include file="conn.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: selling.asp
'Version:2.0
'UpdateTime: 2004-10-5 11:25:32
'Script Written by www.aspease.com 
'========================================================
user_id=fval(rst("user_id"))
if isnull(user_id) or isnumeric(user_id)=false then response.redirect "index.asp"
call activeonline()
If not checkuser(user_id) then
err_msg = easeerrpage
aspease_err
footer
response.end
end if
pvaction=request("action")
sql="select * from auctions where auc_ItemOwner ="&sqlval(user_id)&" and auc_ended='N'"
if pvaction<>"" then
select case pvaction
case "closing"
strsql = strsql&" and datediff('d',Now(),auc_CloseDate)<=1 and auc_Ended='N' order by auc_CloseDate"
case "new"
strsql = strsql&" and auc_Ended='N' order by auc_AvailDate desc"
case "hot"
strsql = strsql&" and auc_Ended='N' order by auc_bidtimes desc"
case "all"
strsql = strsql&" and auc_Ended='N' order by auc_CloseDate"
case "end"
strsql = strsql&" and auc_Ended='Y' order by auc_id"
case "auc"
strsql = strsql&" and auc_Ended='N' and auc_Isbuygoods='0' order by auc_CloseDate"
case "buy"
strsql = strsql&" and auc_Ended='N' and auc_Isbuygoods='1' order by auc_CloseDate"
case else
strsql = strsql&" and auc_Ended='N' order by auc_CloseDate"
end select
else
strsql=" "
end if
sql=sql&strsql
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
stats="(" & aspeaseusername(user_id) & ")" &easesellingstats
header
navigation
response.write auctopnav("selling.asp","&user_id="&user_id,"","")
response.Write("	" & showallitems(15))
response.Write("<table width=""760"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"" class=tdbg1>")
response.Write("  <tr><td width=""100%"">")
myfpage "selling.asp","user_id="&user_id
response.Write(ctdr&aspeasetableclose)
footer%>