bbr_sell_auction.asp

. 缓存处理技术

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

<!--#include file="Cnbbr_UserCenter_Left.asp"-->
<script src="js/CheckAll.js"></script>
<script src="js/DelTrue.js"></script>

<%
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_Sell_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
set rs = MP.Execute("select aucid,aucitemtitle,auccurrentbid,aucnum,auccurrentbidder,aucclosedate,BBR_ClassPath,auctype,BBR_AdminCommend,BBR_SellerCommend from auctions where aucitemowner="& UserID &" and aucended='N' and auctype in ("& SYS_MODEL &") order by aucavaildate DESC",conn,jsPerPage)
CnbbrConnTimes
if rs.eof then
   HelpTitle="出错了！"
   HelpInfo="对不起，系统没有找到你正在出售中的商品！"
   HelpList="<Ul>" & Vbcrlf
   HelpList=HelpList & "<LI><a href=""SellAuc.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"<form name=form1 action=""del.asp"" method=post>"& vbcrlf
	  .Write"<tr><td width=100% class=td colspan=8><input name=deltrue type=button value=""确定删除"" OnClick=""return DelTrue(this.form,'del.asp')""> <input name=BBR_SellerCommend type=button value=""首页推荐"" OnClick=""return DelTrue(this.form,'BBR_SellerIndexCommend.asp?BBR_SellerCommend=1')""> <input name=BBR_SellerCommend type=button value=""店铺推荐"" OnClick=""return DelTrue(this.form,'BBR_SellerShopCommend.asp?BBR_SellerCommend=1')""> <input name=BBR_SellerCommend type=button value=""取消店铺推荐"" OnClick=""return DelTrue(this.form,'BBR_SellerShopCommend.asp?BBR_SellerCommend=0')""></td></tr>"& vbcrlf
	  .write"<tr class=titletd>" & vbcrlf
	  .Write"<td width=3% align=center><input type=""checkbox"" name=""chkAll"" value=""on"" onClick=""CheckAll(this.form)""></td>" & vbcrlf
	  .write"<td width=32% align=center>商品名称</td>" & vbcrlf
	  .write"<td width=13% align=center>现价（元）</td>" & vbcrlf
	  .write"<td width=10% align=center>剩余（件）</td>" & vbcrlf
	  .write"<td width=12% align=center>当前买家</td>" & vbcrlf
	  .write"<td width=10% align=center>结束时间</td>" & vbcrlf
	  .write"<td width=8% 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=center><input name=id type=checkbox value="& rs("aucid") &" style=""border: 0px;""></td>" & 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=Right>￥"& FormatNumber(rs("auccurrentbid"),2,-1) &"</td>" & vbcrlf
	 .write"<td align=center>"
	 .write rs("aucnum")
   	 .write"</td>" & vbcrlf
	 .write"<td align=center>"
	 .write CnbbrSqlUser(rs("auccurrentbidder"),0)
   	 .write"</td>" & vbcrlf
	.write"<td align=center>"
	.write rs("aucclosedate")
   	.write"</td>" & vbcrlf
	.write"<td align=center>"
	if Rs("BBR_AdminCommend")>=1 then
	   .Write"  <img src=""Skins/"& SKINS_FOLDER &"/StarAuc_Commend.gif"" border=""0"" alt=""首页推荐此商品"">"
	else
	   .Write"  <img src=""Skins/"& SKINS_FOLDER &"/StarAuc_NotCommend.gif"" border=""0"" alt=""首页未推荐此商品"">"
	end if
	if Rs("BBR_SellerCommend")>=1 then
	   .Write"  <img src=""Skins/"& SKINS_FOLDER &"/StarShop_Commend.gif"" border=""0"" alt=""店铺首页已推荐此商品"">"
	else
	   .Write"  <img src=""Skins/"& SKINS_FOLDER &"/StarShop_NotCommend.gif"" border=""0"" alt=""店铺首页未推荐此商品"">"
	end if	
   	.write"</td>" & vbcrlf
	.write"<td align=center>"
	.write"  <input name=b2 type=button value=""修改"" OnClick=""javascript: location.href='SellAuc.asp?AucID="& rs("aucid") &"&BBRpath="&Rs("BBR_ClassPath")&"&stype="&rs("aucType")&"&RegStep=2';"">"
   	.write"</td>" & vbcrlf
	.write"</tr>" & vbcrlf

   rs.movenext
   Loop
	.Write"<input name=act type=hidden value=auc>"& vbcrlf
	.Write"</form>" & vbcrlf
	.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
%>