bbr_appraise_buyer.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_Appraise_Buyer.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 Cnbbr_aID,Cnbbr_aAucID,Cnbbr_aAucItemTitle,Cnbbr_aAucOwnerID,Cnbbr_aAucBuyerId,Cnbbr_aAucBid,Cnbbr_aAucDate,Cnbbr_aOwnerCredit,Cnbbr_aOwnerContent,Cnbbr_aOwnerDate,Cnbbr_aOwnerStatus,Cnbbr_aBuyerCredit,Cnbbr_aBuyerContent,Cnbbr_aBuyerDate,Cnbbr_aBuyerStatus from Cnbbr_Appraise where Cnbbr_aAucOwnerId="& UserID &" order by Cnbbr_aAucDate Desc"
set rs = MP.Execute(Sql,conn,jsPerPage)
CnbbrConnTimes




if rs.eof then
   HelpTitle="出错了！"
   HelpInfo="对不起，系统没有找到你作为卖家成交的商品，无法进行买家评价操作！"
   HelpList="<Ul>" & Vbcrlf
   HelpList=HelpList & "<LI><a href=""Search_Auction.asp?CnAucBBrOrder=4"">搜索最新的商品参与竞拍</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=""45%"" align=""center"">商品名称</td>" & vbcrlf
	  .write"<td width=""15%"" align=""center"">买家</td>" & vbcrlf
	  .write"<td width=""11%"" align=""center"">成交价</td>" & vbcrlf
	  .write"<td width=""13%"" align=""center"">成交时间</td>" & vbcrlf
	  .write"<td width=""8%"" 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("Cnbbr_aAucid") &""" target=""_blank"">"

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

	 .write "·"& auctitle
	 .write"</a>"& Vbcrlf
	 .Write"</td>" & vbcrlf
	 .write"<td align=center>"
	 .write CnbbrSqlUser(rs("Cnbbr_aAucBuyerID"),0)
   	 .write"</td>" & vbcrlf
	 .write"<td align=""right"">￥"& FormatNumber(rs("Cnbbr_aAucBID"),2,-1) &"</td>"
	 .write"<td align=""center"">"&Rs("Cnbbr_aAucDate")&"</td>"
        Dim Rs_User
	set rs_user=server.createobject("adodb.recordset")
	sql="select regid,regusername from users where regid="&rs("Cnbbr_aAucBuyerID")
	rs_user.open sql,conn,1,1
	CnbbrConnTimes
	if rs_user.Eof then
	   .write"<td align=""center"">提醒</td>"
	   .write"<td align=""center"">评价</td>"
	else
	   .write"<td align=""center""><a href=""sendmail.asp?aucid="&rs("Cnbbr_aAucID")&"&uid="&rs_user("regid")&""">提醒</a></td>"
	   if Clng(Rs("Cnbbr_aOwnerStatus"))=0 then
	      .write"<td align=""center""><a href=""bbruserpj.asp?aucid="&rs("Cnbbr_aAucID")&"&Appid="&rs("Cnbbr_AID")&"&pjtype=0"">评价</a></td>"
	   else
	      .write"<td align=""center"">已评</td>"
	   end if	 
	end if
        Rs_User.Close
	Set Rs_user=nothing
	 .write"</tr>"

   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
%>