bbr_sell_ykj_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=""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_YkjAuction.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 *,auctions.aucid,auctions.aucitemtitle,auctions.aucitemowner,auctions.aucnum,auctions.aucclosedate  " & _
"from ykjbids,auctions,users as c where ykjbiditemid=aucid and ykjbidsellerid=c.regid and c.regid="&UserID,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=15% 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"</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("aucCurrentBidder"),0)
   	 .write"</td>" & vbcrlf
	 .write"<td align=right>"& FormatNumber(rs("YkjBidAmount"),2,-1) &"</td>" & vbcrlf
	 .write"<td align=center>"
	 .write rs("ykjbidnum")
	 .write"</td>" & vbcrlf
	.write"<td width=15% align=center>"
	.write rs("ykjbiddate")
   	.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
%>