bbr_sell_false.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

	.Write "<TABLE cellSpacing=0 cellPadding=0 width=98% align=center border=0>" & Vbcrlf
	.Write "<TR>" & Vbcrlf
	.Write "<td colspan=3 width=100% height=2 align=center class=menutdbg_1> </td>" & Vbcrlf
	.Write "</TR>" & Vbcrlf
	.Write "<TR>" & Vbcrlf
	.Write "<td colspan=3 width=100% height=23 align=Left background=""SKINS/"& SKINS_FOLDER &"/GrayBg.Gif"" border=""0"">"& Vbcrlf
	.Write " <img src=""skins/"& SKINS_FOLDER &"/Go.gif"" border=""0"">"
	.Write " <span Class=menufont_1><b>您的位置：<a href=""Index.asp"" class=menuColor_1>首页</a>&nbsp;&gt;&nbsp;<a href=""bbrhome.asp"" class=menuColor_1>个人面板</a>&nbsp;&gt;&nbsp;卖家管理&nbsp;&gt;&nbsp;未拍卖成功的商品</b></span>" & Vbcrlf
	.Write "</td>" & Vbcrlf
	.Write "</TR>" & Vbcrlf
	.Write "<TR height=1>" & Vbcrlf
	.Write "<td width=10% align=center></td><td width=80% align=center class=menutdbg_2> </td><td width=10% align=center></td>" & Vbcrlf
	.Write "</TR>" & Vbcrlf
	.Write "</Table>" & Vbcrlf

	.Write "<table border=0 cellpadding=0 cellspacing=0 width=""98%"" align=center>" & Vbcrlf
	.Write "<tr class=td>"& Vbcrlf
	.Write "<td>" & Vbcrlf
  End With
Dim MP : set MP= New mypage
set rs = MP.Execute("select * from auctions where aucitemowner="&Request.Cookies(super_user)("uid")&" and aucended='Y' and (auccurrentbidder=0 or auccurrentbid<aucReservePrice) order by aucAvaildate DESC",conn,jsPerPage)
CnbbrConnTimes
if rs.eof then
   HelpTitle="出错了！"
   HelpInfo="对不起，系统没有找到你未能成功售出的商品！"
   HelpList="<Ul>" & Vbcrlf
   HelpList=HelpList & "<LI><a href=""BBR_Sell_Auction.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=0 class=tablebg>" & vbcrlf
	  .write"<tr class=titletd>" & vbcrlf
	  .write"<td width=40% align=center>商品名称</td>" & vbcrlf
	  .write"<td width=10% align=center>待标价</td>" & vbcrlf
	  .write"<td width=10% align=center>待标买家</td>" & vbcrlf
	  .write"<td width=15% align=center>结束时间</td>" & vbcrlf
	  .write"<td width=15% align=center>重新上架</td>" & vbcrlf
 	  .write"</tr>" & vbcrlf
  
   Do While Not rs.eof

	 .write"<tr class=td>" & vbcrlf
	 .write"<td align=left>&nbsp;<a href=aucinfo.asp?aucid="& rs("aucid") &" target=_blank>"
	 Dim AucTitle
	   auctitle=rs("aucitemtitle")
	   if StrLength(auctitle)>25 then
	      auctitle=InterceptString(auctitle,23)&"..."
	   end if
	 .write "·"& auctitle
	 .write"</a></td>" & vbcrlf
	 .write"<td align=center>"& FormatNumber(rs("auccurrentbid"),2,-1) &"</td>" & vbcrlf
	 .write"<td align=center>"

	  Dim RsSqlBidder
	   sql="select regid,regusername from users where regid="&rs("auccurrentbidder")
           set rssqlbidder=conn.execute(sql)
	   CnbbrConnTimes
	   if rssqlbidder.eof then
	      .write "暂无"
 	   else
	      .write"<a href=""displayuser.asp?aucid="&rs("aucid")&"&uid="&rssqlbidder("regid")&"&Utype=2"">"&rssqlbidder("regusername")&"</a>"
	   end if

   	.write"</td>" & vbcrlf
	.write"<td width=15% align=center>"
	.write rs("aucclosedate")
   	.write"</td>" & vbcrlf
	.write"<td align=center>"

	.write"<input name=reactionup type=button value=""重新上架"" onclick=""javascript: location.href='userEditauc.asp?aucid="& rs("aucid") &"';"">"


	.write"</td>"
	.write"</tr>"




   rs.movenext
   Loop
	.Write"</table>" & vbcrlf
	.Write "<table cellpadding=0 cellspacing=1 width=100% align=center border=0 class=bg_aaaaaa style=""border: 1px #dfdfdf solid;"">" & vbcrlf
	.Write "<tr class=titletd1><td width=100% align=center>"
	.Write MP.PageDispaly()
	.Write "</td></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
%>