<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../Task/TaskConfig.asp"-->
<!--#include file="../HSK_Cls/HSK.MemberCls.asp"-->
<!--#include file="../HSK_Cls/HSK.Label.CommonCls.asp"-->
<!--#include file="../Plus/md5.asp"-->
<%
Dim KSCls
Set KSCls = New User_ClientUnbind
KSCls.HSK_Run()
Set KSCls = Nothing

Class User_ClientUnbind
        Private KS,KSUser,RS
		Private CurrentOpStr,Action,ID,LoginTF
		Private Sub Class_Initialize()
		  Set KS=New PublicCls
		  Set KSUser = New UserCls
		  Session(KS.SiteSN&"UserInfo") = Empty
		End Sub
        Private Sub Class_Terminate()
		 Set KS=Nothing
		 Set KSUser=Nothing
		End Sub
		%>
		<!--#include file="../HSK_Cls/UserFunction.asp"-->
		<%
       Public Sub loadMain()
		Call KSUser.Head()
		Call KSUser.InnerLocation("商保服务")
		LoginTF = Cbool(KSUser.UserLoginChecked)
		IF LoginTF = False  Then
			GCls.ComeUrl = GCls.GetUrl()
			Response.Write "<script>top.location.href='Login';</script>"
			Exit Sub
		End If
		If KS.S("Action")="Save" Then 
		 	Call DoSave()
		ElseIf KS.S("Action")="Exitsb" Then 
		 	Call DoExit()		
		Else
		%>
		<script language = "JavaScript">
				var User_isShangbao=<%=KS.ChkClng(KSUser.GetUserInfo("KS_IsShangbao"))%>;
				var User_JoinShangbaoMoney=<%=KS.GetN(KSUser.GetUserInfo("KS_JoinShangbaoMoney"),2)%>;
				function CheckForm()
				{
				if (!$("#isRead").attr('checked'))
				  {
					alert("请先阅读商保协议再提交！");
					$("#isRead").focus();
					return false;
				  }
				 if (parseFloat($("#sbMoney").html()) > <%=KS.GetN(KSUser.GetUserInfo("Money"),2)%>)
				  {
					alert("您当前余额不足，请先充值后再来操作！");
					return false;
				  }
				  if ($("#SecurityCode").val()==''){
					 alert("请先输入安全密码！");
					 $("#SecurityCode").focus();
					 return false;
				  }
				  if (User_isShangbao && parseFloat($("#ShangbaoMoney").val()) <= User_JoinShangbaoMoney)
				  {
					alert("抱歉！你已经是商保会员了，只可以补差价升级，不可降级哦！");
					return false;
				  }
				  if (User_isShangbao)
					  return confirm('您现在已经是商保会员了，你确定要升级了吗？')
				  else
	              	  return confirm('您确定要加入商保了吗？');
				  }
				  
				 function changeSelect(n){
					if(User_isShangbao){
						if(n > User_JoinShangbaoMoney){
							$('#sbMoney').html(n - User_JoinShangbaoMoney);}
						else{
							$('#sbMoney').html(n);
							alert("温馨提示：\n\n你已经是商保会员了，只可以补差价升级，不可降级哦！");}
					}else{
						$('#sbMoney').html(n);}
				 }
				</script>
				  <table width="100%"  border="0" align="center" cellpadding="0" cellspacing="1" class="border">
                    <tr>
                        <td height="50" align="left"><div id="tips" style="border:1px #A7DDFE solid; width:auto; height:auto; line-height:24px; padding:4px; margin:10px 0; background:url(/style/images/xiaobao-img.gif) #ECF8FF no-repeat 15px center; padding-left: 90px; color:#666">1、缴纳保证金后即成为商家保障(商保)会员，保障发布人权益同时赚取更高发布点回报<br />
2、接手方才需要交纳商保金，发布方可以不加入商保服务<br />
3、加入商保的会员，将遵守“不维权，不差评，不用信用卡，不用淘宝客”的基本准则<br />
<strong style="color:#F60">4、您<%If Not KS.IsNul(KSUser.GetUserInfo("KS_JoinShangbaoMoney")) Then KS.Echo "的" & KSUser.GetUserInfo("KS_JoinShangbaoMoney") & "元" Else KS.Echo "所交纳的"%>商保金，在所有任务完成后20天，可退出商保并全额申请提现</strong></div></td>
                    </tr>
                    <form name="myform" method="post" action="?Action=Save" onSubmit="return CheckForm();">
                    <tr class="title">
                        <td height="30" align="center"><strong>请先阅读并同意协议，然后只需要交纳保证金即完成加入</strong></td>
                    </tr>
                    <tr class="tdbg">
                        <td align="center"><table align="center" width="70%" border="0" cellspacing="3" cellpadding="3">
  <tr>
    <td height="10"></td>
  </tr>
  <%If KS.ChkClng(KSUser.GetUserInfo("KS_IsShangbao")) = 0 Then%>
  <tr>
    <td align="left"><div style="border:1px solid #FC3; background:url(../Images/note.gif) no-repeat 10px center #FFFFF4; color:red; padding-left:35px; margin-bottom:10px; height:30px; line-height:30px">
    <strong>对不起，您尚未加入"商家保障服务"，请在下面阅读协议后缴费加入</strong></div></td>
  </tr>
  <%End If%>
  <tr>
    <td align="left"><img src="/style/images/money_img.png" width="32" height="32" align="absmiddle" /> &nbsp;<strong style="font-size:14px; color:#F60">缴纳保证金</strong></td>
  </tr>
  <tr>
    <td align="left">您当前账户余额：<font color="#FF6600"><%=KS.GetN(KSUser.GetUserInfo("Money"),2)%></font> 元 &nbsp; <a href="User_Transfer.asp" target="_blank"><font color="green">我要充值>></font></a></td>
  </tr>
  <%If KS.ChkClng(KSUser.GetUserInfo("KS_IsShangbao")) = 1 Then%>
  <tr>
    <td align="left"><strong>您已经缴纳了：<font color="#FF6600"><%=KSUser.GetUserInfo("KS_JoinShangbaoMoney")%></font> 元保证金</strong> &nbsp; 已经享用<img src="/style/images/ShangBao.gif" width="20" height="20" align="absmiddle" />商保服务特权</td>
  </tr>
  <tr style="display:none">
    <td align="left">您剩余的保证金：<font color="#FF6600"><%=KS.GetN(KSUser.GetUserInfo("KS_ShangbaoMoney"),2)%></font> 元</td>
  </tr>
  <tr>
    <td align="left"><font color="blue">Tips：已加入商保的会员还可以在下面选择更高等级保证金补差价升级</font></td>
  </tr>
  <%End If
  	Dim tmpOption,LboundMoney
	If Not KS.IsNul(Shangbao_JoinMoneyAndJieShowMoney) Then
		Dim i,arrMoney: arrMoney = Split(Shangbao_JoinMoneyAndJieShowMoney, ",")
		Dim sbMoney,JieMoney
		For i=0 To Ubound(arrMoney)
			sbMoney = Split(arrMoney(i),"=")(0)
			If i = 0 Then LboundMoney = sbMoney
			JieMoney = Split(arrMoney(i),"=")(1)
			tmpOption = tmpOption & "<option value=""" & sbMoney & """>" & sbMoney & "元 （限制接手未完成的商保任务总额不超过" & JieMoney & "元）</option>" & vbCrlf
		Next
	End If
  %>
  <tr>
    <td align="left"><strong>本次加入商保服务需要缴纳：<font color="#FF6600"><span id="sbMoney"><%=LboundMoney%></span></font> 元保证金</strong></td>
  </tr>
  <tr>
    <td align="left" style="border-bottom:1px dashed #999;"><strong>选择加入商保等级：
      <select name="ShangbaoMoney" id="ShangbaoMoney" onchange="changeSelect(this.options[this.selectedIndex].value)" title="注：非商保任务和已完成的任务不计在总额内">
      <%=tmpOption%>
      </select>
    </strong><br><br></td>
  </tr>
  <tr>
    <td><input name="isRead" id="isRead" type="checkbox" value="1" /> <strong>同意并接受《<a href="javascript:void();" title="点击查看协议内容" onclick="$('#xieyi').toggle();"><%=KS.Setting(0)%>商家保障基础协议</a>》</strong></td>
  </tr>
</table>
</td>
</tr>
  <tr>
    <td><div id="xieyi" style="display:none; overflow:scroll; height:250px; border:1px #CCC solid; padding:5px;">
      <p>《<%=KS.Setting(0)%>商家保障基础协议》</p>
      <p>本协议由您与<%=KS.Setting(0)%>共同缔结，本协议具有合同效力。</p>
      <p>本协议中协议双方合称协议方，<%=KS.Setting(0)%>在本协议中亦称为&quot;<%=KS.Setting(0)%>&quot;</p>
      <p>一、协议内容及生效</p>
      <p>1、本协议内容包括协议正文及所有<%=KS.Setting(0)%>已经发布或将来可能发布的与&quot;商家保障服务&quot;相关的规则。前述规则为本协议不可分割的组成部分，与协议正文具有同等法律效力。</p>
      <p>2、您应当在实际向其他<%=KS.Setting(0)%>会员（以下简称&quot;买家&quot;）提供商家保障服务之前认真阅读全部协议内容，对于协议中以加粗字体显示的内容，您应重点阅读。如您对本协议有任何疑问，应向<%=KS.Setting(0)%>咨询。但无论您事实上是否在向任务发布方提供商家保障服务之前认真阅读了本协议内容，只要您在线点击签署了本协议，则本协议即对您产生约束，届时您不应以未阅读本协议的内容或者未获得<%=KS.Setting(0)%>对您问询的解答等理由，主张本协议无效，或要求撤销本协议。</p>
      <p>3、您承诺接受并遵守本协议的约定。如果您不同意本协议的约定，您应立即结束接手任务流程或停止一切接手<%=KS.Setting(0)%>任务活动。</p>
      <p>4、<%=KS.Setting(0)%>有权根据需要不时地制订、修改本协议及/或与&quot;商家保障服务&quot;相关的规则，并以网站公示的方式进行公告，不再单独通知您。变更后的协议和规则一经在<%=KS.Setting(0)%>网站公布后，立即自动生效。如您不同意相关变更，应当立即停止接手<%=KS.Setting(0)%>任务活动。您继续进行任何接手<%=KS.Setting(0)%>任务活动，包括但不限于维持所接手的任务信息，或继续接手新的任务，使用商家保障服务标识，即表示您接受经修订的协议。</p>
      <p> </p>
      <p>二、定义</p>
      <p>1、商家保障服务：指您根据本协议约定的条款和条件及<%=KS.Setting(0)%>其他公示规则的规定，通过<%=KS.Setting(0)%>接手除&quot;流量任务&quot;&quot;收藏任务&quot;以外的互动区中商保信誉任务（以下简称&quot;商保任务&quot;），应履行任务规定要求（留言提醒除外），在任务指定好评时限完成任务要求的来路进店方式，交易好评、动态评分、好评内容、指定收货地址、旺旺聊天 等任务内容；保障发布方在任务结束但未获得任务要求好评、接手方恶意维权、因接手人使用信用卡付款导致发布人被淘宝扣除手续费、任务交易导致发布方额外被扣除淘宝客佣金、因接手人问题交易遇到淘宝自查等情形下的权益。</p>
      <p>2、保证金：指您根据本协议约定的条款和条件及<%=KS.Setting(0)%>其他公示规则的规定缴存并冻结于您的<%=KS.Setting(0)%>账户内相应存款，在您未履行商家保障服务承诺时用于对商保任务发布方进行赔付的资金。</p>
      <p>3、先行赔付：指您与发布方通过<%=KS.Setting(0)%>产生商保任务关系后，如因您未履行商家保障服务承诺而导致商保任务发布方权益或经济受损，且在发布方直接要求与您协商处理未果的情况下，<%=KS.Setting(0)%>有权以<%=KS.Setting(0)%>客服业务标准，根据相关证据材料和规则判定您是否应履行赔付义务。如是，则<%=KS.Setting(0)%>有权自您的<%=KS.Setting(0)%>账户直接扣除相应金额保证金款项赔付给发布方。</p>
      <p> </p>
      <p>三、商家保障服务内容</p>
      <p>在您向商保任务发布人提供商家保障任务服务过程中，您承诺遵守以下约定：</p>
      <p>1、您同意遵守本协议、《<%=KS.Setting(0)%>规章制度》、以及所有公示于<%=KS.Setting(0)%>与&quot;商家保障服务&quot;相关的规则。</p>
      <p>2、您拥有的权利和资格在<%=KS.Setting(0)%>相关任务大厅接手商保任务。如因您的行为导致<%=KS.Setting(0)%>遭受任何第三方提起的索赔、诉讼或行政责任，您应承担相应责任并使<%=KS.Setting(0)%>免责。</p>
      <p>3、您应在通过<%=KS.Setting(0)%>接手商保任务过程中，应履行任务描述要求（留言提醒除外），在任务指定好评时限完成任务要求的来路进店方式，交易好评、动态评分、好评内容、指定收货地址、旺旺聊天 等任务内容；保障发布方在任务结束但未获得任务要求好评，接手方恶意维权、接手方使用淘宝客导致商家被扣佣金、接手人使用信用卡支付导致商家被扣手续费、或因接手人问题交易遇到淘宝自查等情形下的权益。</p>
      <p>4、您明确了解并同意您是商家保障服务的责任主体，<%=KS.Setting(0)%>仅向您提供相关技术支持及任务交互服务，不对您向商保任务发布方提供的商家保障服务内容承担任何保证责任。当发生上述的发布人权益受损情况下，您应保保证发布方的权益。积极配合处理上述问题。</p>
      <p>5、您同意当<%=KS.Setting(0)%>受理发布方提出的商家保障服务维权和赔付申请时，您应积极配合，在<%=KS.Setting(0)%>要求的时间期限内提供相关证据材料，以证明任务交易过程与结果不存在发布方提出的问题或符合双方的任务约定（任务留言要求除外），并保证所提交的证据材料真实有效。如<%=KS.Setting(0)%>以<%=KS.Setting(0)%>客服标准，对您和/或发布方提供的证据材料进行审核后，以其独立判断您未全面履行商家保障服务内容的，则<%=KS.Setting(0)%>有权根据本协议及其它公示规则的规定，对因此遭受权益损失的发布方进行先行赔付。</p>
      <p>6、您同意当<%=KS.Setting(0)%>使用冻结保证金向发布方进行先行赔付时即视为您违规，<%=KS.Setting(0)%>有权给予您相应处罚，包括但不限于将清退出商保用户，以及限制使用<%=KS.Setting(0)%>账户。</p>
      <p> </p>
      <p>四、保证金</p>
      <p>您应根据以下条款之约定缴存，并不可撤销地授权<%=KS.Setting(0)%>有权根据以下条款及<%=KS.Setting(0)%>其他公示规则的规定冻结、使用、处置保证金。本条款之约定不适用于非<%=KS.Setting(0)%>商保会员。</p>
      <p>1、保证金的缴存</p>
      <p>1.1 除平台发生过严重违规的用户外，您可在&quot;会员中心&quot;等相关页面自由选择主动缴纳或不缴纳商保保证金。</p>
      <p>1.2 如您未根据上述1.1款之约定选择主动缴纳保证金，则出现以下任一情形时，您必须缴纳相应金额的保证金：</p>
      <p>1.2.1 您违反《<%=KS.Setting(0)%>规章制度》中的规定，包括但不限于因发生违规行为之&quot;辱骂会员或客服&quot;，&quot;欺骗恐吓会员，恶意退款维权&quot;，&quot;接手任务曾发生淘宝客佣金&quot;，&quot;使用信用卡支付任务交易&quot;，&quot;旺旺恶意提及敏感词汇&quot;，&quot;中评，乱写评语，恶意评语，广告评语&quot;任意一项，则<%=KS.Setting(0)%>有权强制要求您三日内足额缴纳相应金额的保证金。否则<%=KS.Setting(0)%>有权冻结账号，结算账户存款后终止您的一切服务；</p>
      <p> </p>
      <p>本条款约定之保证金额度为400元人民币。</p>
      <p> </p>
      <p>1.3 尽管有上述约定，本协议有效期内，<%=KS.Setting(0)%>有权根据您业务变化及实际赔付情况以书面方式通知您调整保证金金额。您应使保证金余额始终保持不低于本条款约定之金额，如发生赔付事件导致您需补缴保证金的，则<%=KS.Setting(0)%>有权继续冻结您<%=KS.Setting(0)%>帐户中的余额以补足保证金，如您的<%=KS.Setting(0)%>账户余款不足，则您应在赔付事件发生之日起三日内补足。保证金不足期间，<%=KS.Setting(0)%>有权暂停或终止向您提供全部或部分<%=KS.Setting(0)%>服务。</p>
      <p>1.4 不论前述何种情形，只要您事实上缴纳了保证金，保证金余额为足额时，您<%=KS.Setting(0)%>账号的相关页面将出现&quot;已交商户保证金&quot;或类似文案之标识。</p>
      <p>2、保证金的冻结</p>
      <p>您不可撤销地授权<%=KS.Setting(0)%>，将您根据本协议之约定缴存的保证金款项冻结于您的<%=KS.Setting(0)%>账户中。</p>
      <p>3、保证金的解冻</p>
      <p>3.1 您需同时符合如下条件，方可申请解冻您根据本条1.1款之约定主动缴纳的保证金：</p>
      <p> </p>
      <p>3.1.1 自您主动缴纳保证金之日起已满三个月； </p>
      <p>3.1.2 距离最后一个接手的&quot;商保任务&quot;完成时间超过20天；</p>
      <p>3.1.3 进行中已接手任务包括但不限于任务产生的纠纷均已处理完毕。</p>
      <p> </p>
      <p>4、保证金的管理与使用</p>
      <p>4.1 您同意，<%=KS.Setting(0)%>有权在包括但不限于以下情况发生时，处置您的保证金：</p>
      <p>4.1.1 如您在<%=KS.Setting(0)%>接手商保任务、履行任务相关义务过程中，违反<%=KS.Setting(0)%>任何规则或违反您对发布方的任务承诺，或被发布方申请索赔时，<%=KS.Setting(0)%>有权根据其独立的判断，无须承担责任地，直接使用保证金对发布方进行先行赔付。</p>
      <p>4.1.2 如您违反本协议和/或<%=KS.Setting(0)%>任何规则，给<%=KS.Setting(0)%>造成任何损失（包括但不限于诉讼赔偿、诉讼费用、律师费用等）的，<%=KS.Setting(0)%>有权根据其独立的判断，无须承担责任地，直接从保证金中扣除相当于<%=KS.Setting(0)%>的损失的金额，以补偿<%=KS.Setting(0)%>所遭受的损失。如您的保证金余额不足以赔偿的，<%=KS.Setting(0)%>有权继续向您追偿。在损失金额不明确之前，<%=KS.Setting(0)%>有权继续无限期冻结您的账户保证金，直至损失金额明确后予以结算。</p>
      <p>上述4.1.1项规定的赔付程序将按<%=KS.Setting(0)%>不时公布的规则进行。</p>
      <p> </p>
      <p>4.2 <%=KS.Setting(0)%>如使用保证金进行任何赔付，将以书面方式（包括但不限于电子邮件、传真等）通知您。在向您出具的书面通知中，将说明赔付原因及赔付金额。</p>
      <p>4.3 如您的保证金余额不足以赔付时，您应自行支付额外的赔付金额。在您保证金余额不足时，<%=KS.Setting(0)%>没有使用自有资金向商保任务发布方或者任何第三方支付赔偿金、补偿金或其它任何款项的义务，您仍应对发布方或者其他权利人承担赔付、补偿义务。您明确同意如您的保证金余额不足以赔付，且您未自行向买家支付额外的赔付金额时，您不可撤销地委托<%=KS.Setting(0)%>使用自有资金代您向买家进行赔付。不论是在本协议项下，<%=KS.Setting(0)%>基于您的委托而代为赔付的合计总金额以400元人民币为上限。此等情形下，<%=KS.Setting(0)%>有权向您追偿赔付金，包括但不限于采用以下两种方式：</p>
      <p>4.3.1 要求您在<%=KS.Setting(0)%>赔付后三日内向<%=KS.Setting(0)%>偿还与赔付金数额相同的资金，以补偿<%=KS.Setting(0)%>所遭受的损失，并向买家赔付您实际需赔付金额中的剩余部分（如有），且在指定时间内补足保证金；</p>
      <p>4.3.2 如<%=KS.Setting(0)%>的损失通过上述方式仍无法弥补，则<%=KS.Setting(0)%>有权单方面终止向您提供<%=KS.Setting(0)%>网服务，而且继续要求您承担赔偿责任。</p>
      <p>4.4 您对发布方、任何第三方以及<%=KS.Setting(0)%>的赔付责任不以您已缴纳的保证金数额或400元人民币（取二者较高者）为限。<%=KS.Setting(0)%>不对发布方或者任何第三方承担任何赔付、赔偿义务，但有权根据本协议的规定将您的保证金用于保障对发布方家或其他权利人的利益。</p>
      <p> </p>
      <p>五、有限责任</p>
      <p>1、您了解并同意，<%=KS.Setting(0)%>及其关联公司并非司法机构，仅能以普通或非专业人员的知识水平标准对您提交的证据材料进行鉴别，<%=KS.Setting(0)%>及其关联公司对交易纠纷的调处完全是基于您的委托，<%=KS.Setting(0)%>及其关联公司无法保证交易纠纷处理结果符合您的期望，也不对交易纠纷调处结果及保证金赔付决定承担任何责任。您应保证您提交的证据材料的真实性、合法性，并承担您或买家提供的信息、数据不实的风险和责任。如您因此遭受损失，您同意自行向受益人索赔。</p>
      <p>2、您了解并同意，<%=KS.Setting(0)%>对与本协议相关的以及由于本协议的签订、履行导致的所有的、全部的责任，不管是否与违约、侵权相关，也不管由于故意还是过失，也不管您是否向<%=KS.Setting(0)%>支付过任何费用，在任何情况下，都不应超过400元人民币，这并不影响<%=KS.Setting(0)%>根据本协议、<%=KS.Setting(0)%>与您签署的其它协议、<%=KS.Setting(0)%>规则享有的免责、责任限制的权利。</p>
      <p> </p>
      <p>六、协议终止</p>
      <p>1、出现以下情况时，本协议终止。本协议终止后，您将无法继续进行任何任务互动活动：</p>
      <p>1.1 自然终止：如您在线签署的《<%=KS.Setting(0)%>服务条款》因任何原因终止，则本协议将同时终止。</p>
      <p>1.2 通知解除：<%=KS.Setting(0)%>有权提前十五（15）天以书面通知的方式终止本协议。</p>
      <p>1.3 <%=KS.Setting(0)%>单方解除权：如您违反本协议中的任何承诺与保证或<%=KS.Setting(0)%>的任何规则，<%=KS.Setting(0)%>有权立即终止本协议，且按有关规则对您进行处罚。</p>
      <p>1.4 本协议（含规则）变更时，您明示并通知<%=KS.Setting(0)%>不愿接受新的商家保障服务协议，则本协议自<%=KS.Setting(0)%>收到您通知之日起自动终止。</p>
      <p>1.5 本协议规定的其他协议终止条件发生或实现，导致本协议终止。</p>
      <p>2、无论本协议因何原因终止，在协议终止前的行为所导致的任何赔偿和责任，您必须完全且独立地承担责任。即使本协议终止，<%=KS.Setting(0)%>及其关联公司仍有权根据本协议的规定处理，包括但不限于使用您的保证金来处理因本协议有效期内发生的交易所导致的买家索赔。</p>
      <p>3、本协议第五条及第七条的效力不因本协议的终止而终止。</p>
      <p>&nbsp;</p>
      <p>七、争议解决</p>
      <p>本协议之解释与适用，以及与本协议有关的争议，均应依照中华人民共和国法律予以处理，并以<%=KS.Setting(0)%>所在地人民法院为第一审管辖法院。</p>
      <p> </p>
      <p>八、其他</p>
      <p>1、如本协议的任何条款被视作无效或无法执行，则上述条款可被分离，其余部份则仍具有法律效力。</p>
      <p>2、<%=KS.Setting(0)%>于您过失或违约时放弃本协议约定的权利的，不得视为<%=KS.Setting(0)%>对您的其他或以后同类之过失或违约行为弃权。</p>
      <p>3、<%=KS.Setting(0)%>基于本协议享有的权利以及获得的授权，均可以全部或部分转移、转让、许可、分授权、转授权给任何第三方。未经<%=KS.Setting(0)%>事先书面同意，您不得将本协议项下的权利义务转让给任何第三方。<br />
      </p>
      </div></td>
        </tr>
        <tr class="tdbg">
          <td height="30" align="center">安全密码：<input style="width:100px;" class="textbox" type="password" id="SecurityCode" maxlength="30" name="SecurityCode" value="" title="安全密码主要用于资金流转、账户安全二层保护作用。&#13;&#10;注：安全密码不是登录密码。" /> &nbsp; <a href="/User/GetPassword.asp?GetPassType=2" target="_blank" title="找回安全密码，请不要设置过于简单，以免被暴力破解"><font color="#999999">（忘记？点我找回）</font></a></td>
        </tr>
        <tr>
            <td height="15"></td>
        </tr>
        <tr class="tdbg">
          <td height="40" align="center"><input class="button" name="Submit" type="submit" value=" 确定缴纳 " /> &nbsp; &nbsp; &nbsp;<input class="button" name="Exitsb" type="button" value=" 退出商保服务 " onclick="if(confirm('您确定要退出商保服务吗？')){window.location.href='?Action=Exitsb';}"<%If KS.ChkClng(KSUser.GetUserInfo("KS_IsShangbao")) = 0 Then KS.Echo " disabled"%> /></td>
        </tr>
          <tr>
            <td height="15"></td>
          </tr>
          <tr>
            <td height="20" align="center"><img src="/style/images/shangbao-banner.jpg" width="719" height="473" /></td>
          </tr>
        </form>
    </table>
		<%
		End If
       End Sub
	   
	   Sub DoSave()
	   	Dim ShangbaoMoney: ShangbaoMoney = Round(KS.F("ShangbaoMoney"),2)
		Dim tmpMoney
		IF KS.CheckOuterUrl() = True Or Instr(LCase(Request.ServerVariables("HTTP_REFERER")),"user_shangbao.asp") = 0 Then
			KS.Die "<script>alert('请不要非法提交!');</script>"
		End If
		IF Md5(Trim(KS.S("SecurityCode")),16) <> KSUser.GetUserInfo("KS_SecurityCode") Then
			KS.AlertHistory "系统提示：\n\n您输入的安全密码不对!","-1"
		End IF	
		
		If KS.ChkClng(KSUser.GetUserInfo("KS_IsShangbao")) = 1 Then
			If ShangbaoMoney > Round(KSUser.GetUserInfo("KS_JoinShangbaoMoney"),2) Then
				tmpMoney = Round(ShangbaoMoney - Round(KSUser.GetUserInfo("KS_JoinShangbaoMoney"),2),2)	'补差价
			Else
				KS.AlertHistory "抱歉！你已经是商保会员了，只可以补差价升级，不可降级哦！","-1"
			End If
		Else
			tmpMoney = ShangbaoMoney
		End If
		IF tmpMoney > Round(KSUser.GetUserInfo("Money"),2) Then
			KS.AlertHistory "系统提示：\n\n您当前余额不足，请先充值后再来操作！","-1"
		End IF
		
		Call KS.MoneyInOrOut(KSUser.UserName,KSUser.GetUserInfo("RealName"),tmpMoney,4,2,Now,0,"系统","加入商保服务扣除的保证金",0,0,1)		
        Conn.Execute("UPDate KS_User Set KS_IsShangbao=1, KS_JoinShangbaoMoney=KS_JoinShangbaoMoney+" & tmpMoney & ",KS_ShangbaoMoney=KS_ShangbaoMoney+" & tmpMoney & ",KS_ShangbaoJoinDate=GetDate(),KS_ShangbaoIP='" & KS.GetIP() & "' Where UserName = '" & KSUSer.UserName & "'")
		
		KS.Alert "恭喜，加入商保服务成功！","?"		
	   End Sub
	   
	   Sub DoExit()
	   		If KS.ChkClng(KSUser.GetUserInfo("KS_IsShangbao")) = 1 Then
				If DateDiff("h",KSUser.GetUserInfo("KS_ShangbaoJoinDate"), Now) <= 24 Then
					KS.AlertHistory "对不起！加入【商保服务】要24小时后才可以申请退出！","-1"
				End If
				If Not Conn.Execute("Select Top 1 ID From KS_U_sxyrw Where KS_BuyUserName = '" & KSUser.UserName & "' And KS_ShangBao=1 And KS_Status<5").Eof Then
					KS.AlertHistory "对不起！您还有尚未完成的商保任务，请先完成后再申请退出！","-1"
				End If
				If Not Conn.Execute("Select Top 1 ID From KS_U_sxyrw Where KS_BuyUserName = '" & KSUser.UserName & "' And KS_ShangBao=1 And KS_Status=5 And DateDiff(d,KS_EndDate,GetDate())<20").Eof Then
					KS.AlertHistory "对不起！您有商保任务完成还不到20天，暂时还不能申请退出！","-1"
				End If
				
				Call KS.MoneyInOrOut(KSUser.UserName,KSUser.GetUserInfo("RealName"),KSUser.GetUserInfo("KS_JoinShangbaoMoney"),4,1,Now,0,"系统","退出商保服务返还的保证金",0,0,1)		
				Conn.Execute("UPDate KS_User Set KS_IsShangbao=0, KS_JoinShangbaoMoney=0,KS_ShangbaoMoney=0,KS_ShangbaoJoinDate=Null,KS_ShangbaoIP=Null Where UserName = '" & KSUSer.UserName & "'")
				
				KS.Alert "恭喜，退出商保服务成功！","?"	
			End If
	   End Sub
End Class
%> 
