bbruserpjend.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(Request.Form("AppID")))
  if Not isNum(AppID) then Call AlertInfo("出错了，参数传递有误，请重新尝试此操作！","",0)

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

  Dim PjType
  PjType=CheckStr(Trim(Request.Form("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_aAucOwnerId,Cnbbr_aAucBuyerID,Cnbbr_aAucBid,Cnbbr_aOwnerCredit,Cnbbr_aBuyerCredit,Cnbbr_aOwnerStatus,Cnbbr_aBuyerStatus 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")

   Dim aCredit,aContent
   aCredit=CheckStr(trim(Request.Form("AppCredit")))
   aContent=HtmlEncode(CheckStr(trim(Request.Form("AppContent"))))
   if Not IsNum(aCredit) then Call AlertInfo("请选择此次交易的评价等级！","",0)
   if Len(aContent)<6 then Call AlertInfo("请填写交易评价详细内容，长度大于6个字符 ！","",0)

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

      if Clng(Rs("Cnbbr_aBuyerStatus"))=1 then Call AlertInfo("出错了，你已经对此次交易作过评价，不能再重复评价！","",0)
      Sql="Update Cnbbr_appraise set cnbbr_aBuyerCredit="& aCredit &",Cnbbr_aBuyerContent='"& aContent &"',Cnbbr_aBuyerDate="& SqlNowString &",Cnbbr_aBuyerStatus=1 where Cnbbr_aID="& AppID &" and Cnbbr_aAucID="& AucID &" and Cnbbr_aAucBuyerID="& Request.Cookies(Super_User)("UId")

      Conn.execute(Sql)
      if Clng(Rs("Cnbbr_aOwnerStatus"))=1 then

	Sql="Update Users Set Credit=Credit+"& CreditOper(aCredit) &" where RegId="& SellerID
	Conn.Execute(Sql)
	Sql="Update Users Set Credit=Credit+"& CreditOper(Rs("Cnbbr_aOwnerCredit")) &" where RegId="& BuyerID
	Conn.Execute(Sql)
      end if
      if Err then
         Call AlertInfo("有出错误发生，交易评价失败，请返回！","",0)
      else
     	HelpTitle="成功了！"
     	HelpInfo="感谢你对此次交易的卖家进行信用评价！"
     	HelpList="<Ul>" & Vbcrlf
     	HelpList=HelpList & "<LI><a href=""BBR_appraise_Seller.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	
      end if
   elseif PjType=0 and Clng(SellerID)=Clng(CookiesID) then

      if Clng(Rs("Cnbbr_aOwnerStatus"))=1 then Call AlertInfo("出错了，你已经对此次交易作过评价，不能再重复评价！","",0)
      Sql="Update Cnbbr_appraise set cnbbr_aOwnerCredit="& aCredit &",Cnbbr_aOwnerContent='"& aContent &"',Cnbbr_aOwnerDate="& SqlNowString &",Cnbbr_aOwnerStatus=1 where Cnbbr_aID="& AppID &" and Cnbbr_aAucID="& AucID &" and Cnbbr_aAucOwnerID="& Request.Cookies(Super_User)("UId")

      Conn.execute(Sql)
      if Clng(Rs("Cnbbr_aBuyerStatus"))=1 then

	Sql="Update Users Set Credit=Credit+"& CreditOper(aCredit) &" where RegId="& BuyerID
	Conn.Execute(Sql)
	Sql="Update Users Set Credit=Credit+"& CreditOper(Rs("Cnbbr_aBuyerCredit")) &" where RegId="& SellerID
	Conn.Execute(Sql)
      end if
      if Err then
         Call AlertInfo("有出错误发生，交易评价失败，请返回！","",0)
      else
     	HelpTitle="成功了！"
     	HelpInfo="感谢你对此次交易的买家进行信用评价！"
     	HelpList="<Ul>" & Vbcrlf
     	HelpList=HelpList & "<LI><a href=""BBR_appraise_Buyer.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	
      end if
   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

 Function CreditOper(para1)
  Dim Credit_value
  if Not isNum(Para1) then Credit_value=0
  Select Case Para1
    case 0: Credit_value=-10
    case 1: Credit_value=0
    case 2: Credit_value=10
    case else: Credit_value=0
  end select 
  CreditOper=Credit_value
 End Function
%>