bbr_buy_auction.asp

. 缓存处理技术

<!--#include file="top_cnbbr.asp"-->
<!--#include file="chksession.asp"-->
<!--#include file="inc/mypage.asp"-->

<!--#include file="Cnbbr_UserCenter_Left.asp" -->
<%
Response.Write Cnbbr_Head
  With Response
	.Write "<table width="""& Sys_BodyCenterWidth &""" border=""0"" cellspacing=""0"" cellpadding=""2"" align=""center"">" & Vbcrlf
	.Write "  <tr>" & Vbcrlf
	.Write "   <td width=""150"" align=""left"" valign=""top"" class=td>" & Vbcrlf
	 Disp_CnbbrCenterLeft
	.Write "   </td>" & Vbcrlf
	.Write "   <td align=""left"" valign=""top"" class=td>" & Vbcrlf

	Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
	SiteMenu_Width="98%"
	SiteMenu_Left="BBRhome.asp|[menu]|个人面板||[menu]||BBRhome.asp|[menu]|我是买家||[menu]||BBR_Buy_Auction.asp|[menu]|参与竞拍的商品"
	SiteMenu_Right=""
	Response.Write CnbbrSiteMenu(SiteMenu_Width,SiteMenu_Left,SiteMenu_Right)

	.Write "<table border=0 cellpadding=0 cellspacing=0 width=""98%"" align=center>" & Vbcrlf
	.Write "<tr class=td>"& Vbcrlf
	.Write "<td>" & Vbcrlf
  End With

Dim UserID
UserID=Request.Cookies(Super_User)("Uid")
if not isNum(UserID) then Call alertInfo("登录状态异常，请重新登陆系统！","login.asp",1)

Dim MP : set MP= New mypage
Sql="Select a.AucID,a.AucItemTitle,a.AucCurrentBid,a.AucItemOwner,a.AucCurrentBidder,a.AucCloseDate,a.AucType,b.BidID,b.BidItemID,b.Bidnum,b.BidAmount,b.BidDate,b.BidBidderID,b.BidStatus from Auctions as a left join bids as b on a.aucid=b.bidItemID Where B.bidbidderid="& UserID &" and A.aucended<>'Y' and A.Auctype in ("& SYS_MODEL &") order by b.BidStatus Desc,b.BidDate Desc"
set rs = MP.Execute(Sql,conn,jsPerPage)
CnbbrConnTimes
if rs.eof then
   HelpTitle="出错了！"
   HelpInfo="对不起，系统没有找到你正在参与竞拍的商品！"
   HelpList="<Ul>" & Vbcrlf
   HelpList=HelpList & "<LI><a href=""index.asp"">参与商品的竞拍</a></LI>" & Vbcrlf
   HelpList=HelpList & "<LI><a href=""search.asp"">搜索所有商品</a></LI>" & Vbcrlf
   HelpList=HelpList & "<LI><a href=""javascript: history.back(-1);"">返回上页</a></LI>" & Vbcrlf
   HelpList=HelpList & "</Ul>" & Vbcrlf
   Cnbbr_Helper HelpTitle,HelpInfo,HelpList,368
else
   With Response
	  .Write"<table width=100% border=0 cellspacing=1 cellpadding=1 class=""tablebg"">" & vbcrlf
	  .write"<tr class=titletd>" & vbcrlf
	  .write"<td width=40% align=center>商品名称</td>" & vbcrlf
	  .write"<td width=12% align=center>卖家</td>" & vbcrlf
	  .write"<td width=13% align=center>现价</td>" & vbcrlf
	  .write"<td width=12% align=center>我的出价</td>" & vbcrlf
	  .write"<td width=8% align=center>数量</td>" & vbcrlf
	  .write"<td width=10% align=center>结束时间</td>" & vbcrlf
	  .write"<td width=5% align=center>状态</td>" & vbcrlf
 	  .write"</tr>" & vbcrlf
  
   Do While Not rs.eof
	 .write"<tr class=td height=22>"& vbcrlf
	 .write"<td align=left>"& Vbcrlf
	 .Write"<a href=""AucInfo.asp?AucID="& rs("aucid") &""" target=""_blank"">"

	   Dim AucTitle:auctitle=rs("aucitemtitle")
	   if StrLength(auctitle)>30 then auctitle=InterceptString(auctitle,28)

	 .write "·"& auctitle
	 .write"</a>"& Vbcrlf
	 .Write"</td>" & vbcrlf
	 .write"<td align=center>"
	 .write CnbbrSqlUser(rs("aucItemOwner"),0)
   	 .write"</td>" & vbcrlf
	 .write"<td align=Right>"& Vbcrlf
	   if Rs("Auctype")=3 then
	      .Write"『隐藏』"
	   else
	      .Write"￥"& FormatNumber(rs("auccurrentbid"),2,-1) & vbcrlf
	   end if
	 .Write"</td>" & vbcrlf
	 .write"<td align=center>￥"& FormatNumber(rs("bidamount"),2,-1) &"</td>" & vbcrlf
	 .write"<td align=center>"
	   if Cdbl(rs("bidamount"))>=Cdbl(rs("auccurrentbid")) then
	      .Write rs("bidnum")
	   else
 	      .write "0"
	   end if
	 .write"</td>" & vbcrlf
	.write"<td align=center>"
	   Call DisplayTime(rs("aucclosedate"))
   	.write"</td>" & vbcrlf
	.write"<td align=center>"
	   if Rs("BidStatus")=1 then
	      Response.Write"<span class=fontcolor_2>领先</span>"
	   else
	      Response.Write"出局"
	   end if
   	.write"</td>" & vbcrlf
	.write"</tr>" & vbcrlf

   rs.movenext
   Loop
	.Write"</table>" & vbcrlf
	.Write "<table cellpadding=0 cellspacing=1 width=100% align=center border=0 class=tablebg>" & vbcrlf
	.Write "<tr class=td>"& Vbcrlf
	.Write "<td width=100% align=center>"& Vbcrlf
	.Write MP.PageDispaly()
	.Write "</td>"& Vbcrlf
	.Write "</tr>" & vbcrlf
	.Write "</table>" & vbcrlf
   End With
   
End if

  With Response
	.Write "     </td>" & Vbcrlf
	.Write "    </tr>" & Vbcrlf
	.Write "   </table>" & Vbcrlf
	.Write "   </td>" & Vbcrlf
	.Write "  </tr>" & Vbcrlf
	.Write "</table>" & Vbcrlf
  End With

Response.Write Cnbbr_Bottom
%>