bbr_buy_success.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=""0""  align=""center"" class=""td"">" & 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_Success.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.AucItemOwner,a.AucCurrentBid,a.AucCloseDate,a.BBR_AlipayStatus,b.BidItemID,b.BidNum,b.Biddate from auctions as a left join bids as b on a.Aucid=b.BidItemID where a.aucended='Y' and a.ykjbidtimes<a.auctotalnum and a.auccurrentbidder="& UserID &" and b.bidbidderid=a.auccurrentbidder and a.auccurrentbid=b.bidamount and a.auccurrentbid>=a.aucreserveprice and a.auctype in (1,3) and a.auctype in ("& SYS_MODEL &") order by 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=""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=0 class=tablebg>" & vbcrlf
	  .write"<tr class=titletd>" & vbcrlf
	  .write"<td width=40% align=center>商品名称</td>" & vbcrlf
	  .write"<td width=15% align=center>卖家</td>" & vbcrlf
	  .write"<td width=10% align=center>成交价</td>" & vbcrlf
	  .write"<td width=6% align=center>数量</td>" & vbcrlf
	  .write"<td width=12% align=center>成交时间</td>" & vbcrlf
	  .write"<td width=8% 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>"& FormatNumber(rs("auccurrentbid"),2,-1) &"</td>" & vbcrlf
	 .write"<td align=center>"
	 .Write rs("bidnum")
	 .write"</td>" & vbcrlf
	.write"<td align=center>"
	.write rs("aucclosedate")
   	.write"</td>" & vbcrlf
	.write"<td align=center>"

	if Rs("BBR_AlipayStatus")=1 then
	   Dim RsSqlSeller
	   Sql="Select RegId,RegUserName,RegEmail from Users Where RegID="&Rs("aucItemOwner")
	   Set RsSqlSeller=Conn.Execute(Sql)
	   if Not (RsSqlSeller.Eof or RsSqlSeller.Bof) then
	      Dim TempAlipayUrl
	      TempAlipayUrl=RsSqlSeller("RegEmail") &"?subject=购买商品："& Rs("AucItemTitle") &"&body=付款人昵称："& Request.Cookies(Super_User)("UName") &"&price="& Rs("AucCurrentBid") &"&number="& Rs("BidNum") &"&type=3"
	      TempAlipayUrl=Server.UrlEncode(TempAlipayUrl)
              .Write"<a href=""https://www.alipay.com/payto:"& TempAlipayUrl &""" target=""_Blank""><img Src=""Images/AlipayStatus.gif"" border=""0"" alt=""推荐使用支付宝支付，确保安全交易！""></a>"& Vbcrlf
	   else
	      .Write"无"
	   end if
	   RsSqlSeller.Close
	   Set RsSqlSeller=nothing
	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
%>