bidhistory.asp

来自「AspEase Auction System Ver2.0/动易拍卖系统 Ver」· ASP 代码 · 共 126 行

<!--#include file="conn.asp" -->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<%
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: bidhistory.asp
'Version:2.0
'UpdateTime: 2004-10-4 20:39:58
'Script Written by www.aspease.com 
'========================================================= 
aucid=fval(rst("aucid"))
stats=easebidhistorystats
header
activeonline
set rschk=conn.execute("select auc_id from auctions where auc_id="&sqlval(aucid))
if rschk.eof then
response.Write("<script language=javascript>{alert( '" & easeerrpage & "');location.href='index.asp';}</script>")
rschk.close
response.end
end if
if rst("action")="bid" or rst("action")="" then
 sql="select * from Bids,auctions where bidItemID=auc_id and bidItemID="&sqlval(rst("aucid"))&" order by biddate desc"
else
 sql="select * from gets,auctions where get_itemid=auc_id and get_type=1 and get_itemid="&sqlval(rst("aucid"))
end if 
 set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rst("action")="bid" or rst("action")="" then
response.Write(aspeasetable1bopen&tr&td("200","25","l","","th") & easebidhistorytopstr1 & rs.recordcount & easebidhistorytopstr2 & "</th>")
response.Write("    <th align=""left""><a href=""bidhistory.asp?action=buy&aucid=" & fval(aucid) & """>" & easebidhistoryseeykj & "</a></th>")
response.Write(ctr&aspeasetableclose)
response.Write(aspeasetable1bopen&tr)
response.Write("    <th width=""163"" height=""25"">" & easecontactbuyer & "</th>")
response.Write("    <th width=""93"">" & easebidhistorychujia & "</th>")
response.Write("    <th width=""179"">" & easebidhistorychujiatime & "</th>")
response.Write("    <th width=""179"">" & easebidhistorygetnum & "</th>")
response.Write("    <th>" & easebidhistoryzt & "</th>")
response.Write(ctr)
if rs.recordcount=0 then
response.Write(tr2&"<TD colspan=""5"">" & easenorecord & ctdr )
else
i=0
   while not rs.eof
response.Write("  <TR class=tdbg2 align=center> ")
response.Write("    <TD>" & aspeaseusername(sqlval(rs("bidBidderID"))) & "</TD>")
response.Write("    <TD>" & fval(rs("bidamount")) & "</TD>")
response.Write("    <TD>" & SQLDate(rs("biddate")) & "</TD>")
response.Write("    <TD>")
if i<fval(rs("auc_numleft")) and fval(rs("bidAmount"))>fval(rs("auc_ReservePrice")) then
	response.write fval(rs("bidnum"))	   				
else
	response.write "0"
end if	   
response.Write(" </TD>")
response.Write("    <TD>")
if rs("auc_ended")="N" then	
	if i<fval(rs("auc_numleft")) and fval(rs("bidAmount"))>fval(rs("auc_ReservePrice")) then
		response.write easelingxian
	else
	    response.write easechuju
   	end if
else
	if i<fval(rs("auc_numleft")) and fval(rs("bidAmount"))>fval(rs("auc_ReservePrice")) then
		response.write easecjvalue
	else
		response.write easencjvalue
	end if
end if 
response.Write(" </TD> </TR>")
  rs.movenext
  i=i+1
  wend  
	end if 
response.Write("</table>")
footer 
else 'not bid
response.Write(aspeasetable1bopen&tr)
response.Write("    <th height=""25"" align=""left"" width=""200"">")
response.Write( easebidhistorytopstr1 & rs.recordcount & easebidhistorytopstr3 )
response.Write("</th>   ")
response.Write("    <th align=""left"" height=""25""><a href=""bidhistory.asp?action=bid&aucid=")
response.Write( aucid )
response.Write(""">")
response.Write(easebidhistorystats)
response.Write("</a></th>")
response.Write(ctr&aspeasetableclose)
response.Write(aspeasetable1bopen)
response.Write("  <tr align=center> ")
response.Write("    <th width=""163"" height=""25"">" & easecontactbuyer & "</th>")
response.Write("    <th width=""93"">" & easebidhistorychujia & "</th>")
response.Write("    <th width=""179"">" & easebidhistorychujiatime & "</th>")
response.Write("    <th width=""179"">" & easebidhistorygetnum & "</th>")
response.Write("    <th>" & easebidhistoryzt & "</th>")
response.Write(ctr)
if rs.recordcount=0 then 
response.Write(tr2&"<TD colspan=""5"">" & easenorecord & ctdr)
else
  while not rs.eof
response.Write("  <tr class=tdbg2 align=center> ")
response.Write("    <td>" & aspeaseusername(sqlval(rs("get_BuyerID"))) & "</td>")
response.Write("    <td>" & rs("get_Amount") & "</td>")
response.Write("    <td>" & sqldate(rs("get_Date")) & "</td>")
response.Write("    <td>" & rs("get_num") & "</td>")
response.Write("    <td>" & easecjvalue & ctdr)
 rs.movenext
wend 
end if
response.Write(aspeasetableclose)
footer
End If
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: bidhistory.asp
'Version:2.0
'UpdateTime: 2004-10-4 20:39:58
'Script Written by www.aspease.com 
'========================================================= %>