bbruserpj.asp

. 缓存处理技术

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

<!--#include file="Cnbbr_UserCenter_Left.asp" -->

<%
  Call Cnbbr_CheckPost(0)

  Dim AppID
  AppID=CheckStr(Trim(Rst("AppID")))
  if Not isNum(AppID) then Call AlertInfo("出错了，参数传递有误，请重新尝试此操作！","",0)

  Dim AucID
  AucID=CheckStr(Trim(Rst("AucID")))
  if Not isNum(AucID) then Call AlertInfo("出错了，参数传递有误，请重新尝试此操作！","",0)

  Dim PjType
  PjType=CheckStr(Trim(Rst("PjType")))
  if Not isNum(PjType) then Call AlertInfo("出错了，参数传递有误，请重新尝试此操作！","",0)

  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]||###|[menu]|信用评价管理||[menu]||###|[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><BR>" & Vbcrlf
  End With


  Sql="Select Cnbbr_aID,Cnbbr_aAucId,Cnbbr_aAucItemTitle,Cnbbr_aAucOwnerId,Cnbbr_aAucBuyerID,Cnbbr_aAucBid,Cnbbr_aAucDate from cnbbr_appraise where cnbbr_aAucID="& AucID &" and Cnbbr_aID="& AppID
  Set rs=conn.execute(sql)
  if Rs.Eof or Rs.Bof then 
   HelpTitle="出错了！"
   HelpInfo="对不起，没有找到匹配的评价记录！"
   HelpList="<Ul>" & Vbcrlf
   HelpList=HelpList & "<LI><a href=""javascript: history.back(-1);"">返回上页</a></LI>" & Vbcrlf
   HelpList=HelpList & "</Ul>" & Vbcrlf
   Cnbbr_Helper HelpTitle,HelpInfo,HelpList,368
  else
   Dim SellerID,BuyerID,CookiesID
   SellerID=Rs("Cnbbr_aAucOwnerID")
   BuyerId=Rs("Cnbbr_aAucBuyerId")
   CookiesID=Request.Cookies(Super_user)("Uid")


   if PjType=1 and Clng(BuyerID)=Clng(CookiesID) then

      With Response
	.Write"<table cellpadding=0 cellspacing=0 width=100% align=center border=0 class=tablebg>"& Vbcrlf
	.Write" <form name=App action=BBRUserPjEnd.asp method=post>"& Vbcrlf
	.Write"  <tr>"& Vbcrlf
	.Write"   <td colspan=2 align=center class=Titletd><b>请对此次交易的卖家作信用评价</b></td>"& Vbcrlf
	.Write"  </tr>"& Vbcrlf
	.Write"  <tr height=25>"& Vbcrlf
	.Write"   <td align=right class=td>商品名称：</td>"& Vbcrlf
	.Write"   <td align=left class=td><a href=""aucinfo.asp?AucID="& Rs("Cnbbr_aAucID") &""">"&Rs("Cnbbr_aAucItemTitle")&"</a></td>"& Vbcrlf
	.Write"  </tr>"& Vbcrlf
	Dim Rs_User,TempUserName
        Sql="Select RegUserName from users where regid="& Rs("Cnbbr_aAucOwnerID")
 	Set Rs_User=Conn.execute(Sql)
	if Rs_User.Eof or Rs_User.Bof then
	   TempUserName="无此用户"
	else
	   TempUserName=Rs_User("RegUserName")
	end if
	.Write"  <tr height=25>"& Vbcrlf
	.Write"   <td align=right class=td>商品卖家：</td>"& Vbcrlf
	.Write"   <td align=left class=td><a href=""DisplayUser.asp?UID="& Rs("Cnbbr_aAucOwnerID") &""">"& TempUserName &"</a></td>"& Vbcrlf
	.Write"  </tr>"& Vbcrlf
	.Write"  <tr height=25>"& Vbcrlf
	.Write"   <td align=right class=td>成交价格：</td>"& Vbcrlf
	.Write"   <td align=left class=td>￥"& FormatNumber(Rs("Cnbbr_aAucBid"),2,-1) &"</td>"& Vbcrlf
	.Write"  </tr>"& Vbcrlf
	.Write"  <tr height=25>"& Vbcrlf
	.Write"   <td align=right class=td>成交时间：</td>"& Vbcrlf
	.Write"   <td align=left class=td>"& Rs("Cnbbr_aAucDate") &"</td>"& Vbcrlf
	.Write"  </tr>"& Vbcrlf
	.Write"  <tr height=25>"& Vbcrlf
	.Write"   <td align=right class=td>评价等级：</td>"& Vbcrlf
	.Write"   <td align=left class=td>"& Vbcrlf
	.Write"   <select name=AppCredit>"& Vbcrlf
	.Write"     <option value=>请选择</option>"& Vbcrlf
	.Write"     <option value=2>好</option>"& Vbcrlf
	.Write"     <option value=1>中</option>"& Vbcrlf
	.Write"     <option value=0>差</option>"& Vbcrlf
	.Write"   </Select>"& Vbcrlf
	.Write"   </td>"& Vbcrlf
	.Write"  </tr>"& Vbcrlf
	.Write"  <tr height=25>"& Vbcrlf
	.Write"   <td align=right class=td>评价内容：</td>"& Vbcrlf
	.Write"   <td align=left class=td>"& Vbcrlf
	.Write"    <textarea cols=60 rows=6 name=AppContent></textarea>"& Vbcrlf
	.Write"   </td>"& Vbcrlf
	.Write"  </tr>"& Vbcrlf
	.Write"  <tr>"& Vbcrlf
	.Write"   <td colspan=2 align=center class=Titletd><input name=submit type=submit value=""评价交易卖家""></td>"& Vbcrlf
	.Write"  </tr>"& Vbcrlf
	.Write"  <input name=Aucid type=hidden value="& AucID &">"& Vbcrlf
	.Write"  <input name=AppID Type=hidden value="& AppID &">"& Vbcrlf
	.Write"  <input name=PjType Type=hidden value=1>"& Vbcrlf
	.Write" </form>"& Vbcrlf
	.Write"</table>"& Vbcrlf
      End With
   elseif PjType=0 and Clng(SellerID)=Clng(CookiesID) then

      With Response
	.Write"<table cellpadding=0 cellspacing=0 width=100% align=center border=0 class=tablebg>"& Vbcrlf
	.Write" <form name=App action=BBRUserPjEnd.asp method=post>"& Vbcrlf
	.Write"  <tr>"& Vbcrlf
	.Write"   <td colspan=2 align=center class=Titletd><b>请对此次交易的买家作信用评价</b></td>"& Vbcrlf
	.Write"  </tr>"& Vbcrlf
	.Write"  <tr height=25>"& Vbcrlf
	.Write"   <td align=right class=td>商品名称：</td>"& Vbcrlf
	.Write"   <td align=left class=td><a href=""aucinfo.asp?AucID="& Rs("Cnbbr_aAucID") &""">"&Rs("Cnbbr_aAucItemTitle")&"</a></td>"& Vbcrlf
	.Write"  </tr>"& Vbcrlf

        Sql="Select RegUserName from users where regid="& Rs("Cnbbr_aAucBuyerID")
 	Set Rs_User=Conn.execute(Sql)
	if Rs_User.Eof or Rs_User.Bof then
	   TempUserName="无此用户"
	else
	   TempUserName=Rs_User("RegUserName")
	end if
	.Write"  <tr height=25>"& Vbcrlf
	.Write"   <td align=right class=td>商品买家：</td>"& Vbcrlf
	.Write"   <td align=left class=td><a href=""DisplayUser.asp?UID="& Rs("Cnbbr_aAucBuyerID") &""">"& TempUserName &"</a></td>"& Vbcrlf
	.Write"  </tr>"& Vbcrlf
	.Write"  <tr height=25>"& Vbcrlf
	.Write"   <td align=right class=td>成交价格：</td>"& Vbcrlf
	.Write"   <td align=left class=td>￥"& FormatNumber(Rs("Cnbbr_aAucBid"),2,-1) &"</td>"& Vbcrlf
	.Write"  </tr>"& Vbcrlf
	.Write"  <tr height=25>"& Vbcrlf
	.Write"   <td align=right class=td>成交时间：</td>"& Vbcrlf
	.Write"   <td align=left class=td>"& Rs("Cnbbr_aAucDate") &"</td>"& Vbcrlf
	.Write"  </tr>"& Vbcrlf
	.Write"  <tr height=25>"& Vbcrlf
	.Write"   <td align=right class=td>评价等级：</td>"& Vbcrlf
	.Write"   <td align=left class=td>"& Vbcrlf
	.Write"   <select name=AppCredit>"& Vbcrlf
	.Write"     <option value=>请选择</option>"& Vbcrlf
	.Write"     <option value=2>好</option>"& Vbcrlf
	.Write"     <option value=1>中</option>"& Vbcrlf
	.Write"     <option value=0>差</option>"& Vbcrlf
	.Write"   </Select>"& Vbcrlf
	.Write"   </td>"& Vbcrlf
	.Write"  </tr>"& Vbcrlf
	.Write"  <tr height=25>"& Vbcrlf
	.Write"   <td align=right class=td>评价内容：</td>"& Vbcrlf
	.Write"   <td align=left class=td>"& Vbcrlf
	.Write"    <textarea cols=60 rows=6 name=AppContent></textarea>"& Vbcrlf
	.Write"   </td>"& Vbcrlf
	.Write"  </tr>"& Vbcrlf
	.Write"  <tr>"& Vbcrlf
	.Write"   <td colspan=2 align=center class=Titletd><input name=submit type=submit value=""评价交易买家""></td>"& Vbcrlf
	.Write"  </tr>"& Vbcrlf
	.Write"  <input name=Aucid type=hidden value="& AucID &">"& Vbcrlf
	.Write"  <input name=AppID Type=hidden value="& AppID &">"& Vbcrlf
	.Write"  <input name=PjType Type=hidden value=0>"& Vbcrlf
	.Write" </form>"& Vbcrlf
	.Write"</table>"& Vbcrlf
      End With
   else
     HelpTitle="出错了！"
     HelpInfo="对不起，评价参数配置出现错误，请返回！"
     HelpList="<Ul>" & Vbcrlf
     HelpList=HelpList & "<LI><a href=""javascript: history.back(-1);"">返回上页</a></LI>" & Vbcrlf
     HelpList=HelpList & "</Ul>" & Vbcrlf
     Cnbbr_Helper HelpTitle,HelpInfo,HelpList,368	
   end if
  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
%>