<!--#include file="conn.asp"-->
<!--#include file="buy2buysys.asp"-->
<html>
<head>
<title><%=webname%>--VIP会员资格和推荐会员奖励</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #ffffff;
}
body,td,th {
	font-family: Verdana, Arial, Helvetica, sans-serif;
}
-->
</style></head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td align="center" background="images/bg.jpg"><object 
      codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0 
      height=451 width=960 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>
          <param name="movie" value="flash/main_3.swf">
          <param name="quality" value="high">
          <param name="wmode" value="transparent">
          <embed src="flash/main_3.swf" quality="high" 
      pluginspage="http://www.macromedia.com/go/getflashplayer" 
      type="application/x-shockwave-flash" width="960" 
      height="451"></embed>
      </object></td></tr>
  </table>
<!--#include file="b2b_includefile/b2b_top.asp" -->
 
<table width="918" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="194" align="right" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="182">
      <!-- fwtable fwsrc="未命名" fwbase="productleft.gif" fwstyle="Dreamweaver" fwdocid = "287395630" fwnested="1" -->
      
      <tr>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td><TABLE cellSpacing=0 cellPadding=0 width=180 
      background=images/left_best02.gif border=0>
          <TBODY>
            <TR>
              <TD><IMG src="images/hydl.gif" width="181" height="57" border=0></TD>
            </TR>
            <TR>
              <TD align=middle><!-- #include file="login.asp"--></TD>
            </TR>
            <TR>
              <TD><IMG src="images/left_ranking02.gif" width="181" height="16" 
      border=0></TD>
            </TR>
          </TBODY>
        </TABLE></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
      </tr>
    </table>
        <table border="0" cellpadding="0" cellspacing="0" width="182">
          <!-- fwtable fwsrc="未命名" fwbase="productleft.gif" fwstyle="Dreamweaver" fwdocid = "287395630" fwnested="1" -->
          <tr>
            <td height="55" valign="bottom"><img name="productleft_01" src="image/poeration_01.gif" width="182" height="45" border="0" alt=""></td>
          </tr>
          <tr>
            <td><table align="left" border="0" cellpadding="0" cellspacing="0" width="182">
                <tr>
                  <td width="14" background="image/productleft_02.gif">&nbsp;</td>
                  <td width="153"><table width="98%"  border="0" align="right" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
                    <tr>
                      <td height="25" onMouseOver="this.style.backgroundColor='#f2f2f2'; this.style.color='#ff0000' " onMouseOut="this.style.backgroundColor='';this.style.color=''"><img src="image/iconpic.gif" width="15" height="13" align="absmiddle">&nbsp;<a href="help.asp?action=process">购物流程</a></td>
                    </tr>
                    <tr>
                      <td height="25" onMouseOver="this.style.backgroundColor='#f2f2f2'; this.style.color='#ff0000' " onMouseOut="this.style.backgroundColor='';this.style.color=''"><img src="image/iconpic.gif" width="15" height="13" align="absmiddle">&nbsp;<a href="help.asp?action=feiyong">配送方式及费率</a></td>
                    </tr>
                    <tr>
                      <td height="25" onMouseOver="this.style.backgroundColor='#f2f2f2'; this.style.color='#ff0000' " onMouseOut="this.style.backgroundColor='';this.style.color=''"><img src="image/iconpic.gif" width="15" height="13" align="absmiddle"> <a href="help.asp?action=fukuan">付款方式</a></td>
                    </tr>
                    <tr>
                      <td height="25" onMouseOver="this.style.backgroundColor='#f2f2f2'; this.style.color='#ff0000' " onMouseOut="this.style.backgroundColor='';this.style.color=''"><img src="image/iconpic.gif" width="15" height="13" align="absmiddle"> <a href="help.asp?action=tiaokuan">交易条款</a></td>
                    </tr>
                    <tr>
                      <td height="25" onMouseOver="this.style.backgroundColor='#f2f2f2'; this.style.color='#ff0000' " onMouseOut="this.style.backgroundColor='';this.style.color=''"><img src="image/iconpic.gif" width="15" height="13" align="absmiddle"> <a href="help.asp?action=transport">运输说明</a></td>
                    </tr>
                    <tr>
                      <td height="25" onMouseOver="this.style.backgroundColor='#f2f2f2'; this.style.color='#ff0000' " onMouseOut="this.style.backgroundColor='';this.style.color=''"><img src="image/iconpic.gif" width="15" height="13" align="absmiddle"> <a href="help.asp?action=secret">保密安全</a></td>
                    </tr>
                    <tr>
                      <td height="25" onMouseOver="this.style.backgroundColor='#f2f2f2'; this.style.color='#ff0000' " onMouseOut="this.style.backgroundColor='';this.style.color=''"><img src="image/iconpic.gif" width="15" height="13" align="absmiddle"> <a href="help.asp?action=support">商品销售及售后服务</a></td>
                    </tr>
                    <tr>
                      <td height="25" onMouseOver="this.style.backgroundColor='#f2f2f2'; this.style.color='#ff0000' " onMouseOut="this.style.backgroundColor='';this.style.color=''"><img src="image/iconpic.gif" width="15" height="13" align="absmiddle"> <a href="help.asp?action=law">适用法律及版权声明</a></td>
                    </tr>
                    <tr>
                      <td height="25" onMouseOver="this.style.backgroundColor='#f2f2f2'; this.style.color='#ff0000' " onMouseOut="this.style.backgroundColor='';this.style.color=''"><img src="image/iconpic.gif" width="15" height="13" align="absmiddle"> <a href="vip.asp?action=vipscore">VIP会员须知</a></td>
                    </tr>
                    <tr>
                      <td height="25" onMouseOver="this.style.backgroundColor='#f2f2f2'; this.style.color='#ff0000' " onMouseOut="this.style.backgroundColor='';this.style.color=''"><img src="image/iconpic.gif" width="15" height="13" align="absmiddle"> <a href="help.asp?action=faq">常见问题</a></td>
                    </tr>
                  </table></td>
                  <td width="15" background="image/productleft_04.gif">&nbsp;</td>
                </tr>
            </table></td>
          </tr>
          <tr>
            <td><img name="productleft_05" src="image/productleft_05.gif" width="182" height="19" border="0" alt=""></td>
          </tr>
      </table></td>
    <td width="724" align="center" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="665">
      <!-- fwtable fwsrc="用户中心.png" fwbase="usercenter.gif" fwstyle="Dreamweaver" fwdocid = "1831702457" fwnested="1" -->
      <tr>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td><img name="usercenter_01" src="image/usercenter_01.gif" width="665" height="82" border="0" alt=""></td>
      </tr>
      <tr>
        <td width="665" background="image/usercenter_02.gif"><TABLE WIDTH="100%" HEIGHT="0" BORDER="0" align="right" CELLPADDING="0" CELLSPACING="0" ID="AutoNumber3">
          <TR>
            <TD width="100%"><table width="97%"  border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="100%"><img src="image/helpicvip.gif"></td>
                </tr>
              </table>
                <table width="95%" border="0" align="center" cellpadding="4" cellspacing="4">
                  <tr>
                    <td width="100%"><%
select case FormatSQL(SafeRequest("action",0))

case "vipscore"
vipscore

case "uptovip"
uptovip

case "chgscore"
chgscore

end select

sub vipscore
%>
                        <%
set rs=server.CreateObject("adodb.recordset")
rs.open "select webimg11,webimg13,webimg14 from b2b_systemdata",conn,1,1
%>
                        <TABLE align="center" cellSpacing=0 cellPadding=0 width="100%" border=0>
                          <TBODY>
                            <TR>
                              <TD></TD>
                            </TR>
                          </TBODY>
                        </TABLE>
                      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr>
                            <td width="100%" HEIGHT="25" align="center"><b>VIP会员资格和推荐会员奖励</b></td>
                          </tr>
                          <tr height="120">
                            <td valign="top"><br>
                              &nbsp;推荐一个会员奖励积分： <font color="red"><%=trim(rs("webimg13"))%></font>&nbsp;分 <br>
                              &nbsp;VIP会员享受的服务：<%=trim(rs("webimg11"))%></td>
                          </tr>
                      </table></td>
                  </tr>
              </table></TD>
          </TR>
        </TABLE></td>
      </tr>
      <tr>
        <td><img name="usercenter_03" src="image/usercenter_03.gif" width="665" height="4" border="0" alt=""></td>
      </tr>
    </table></td>
  </tr>
</table>
<br>
<!--#include file="b2b_includefile/b2b_ver.asp" -->
</body>
</html>
<%rs.close
set rs=nothing
conn.close
set conn = nothing
end sub

sub chgscore
dim strdeposit,strscore,strchg
if not isnumeric(request.form("strchg")) then
response.Write "<script language=javascript>alert('要转换的积分必须用数字表示，请正确操作！');history.go(-1);</script>"
conn.close
set conn = nothing
response.end
end if
strchg=ABS(CLng(request.form("strchg")))

set rs=server.CreateObject("adodb.recordset")
rs.open "select score,deposit from [user] where username='"&strUserName&"' ",conn,1,3
strscore=CLng(rs("score"))
strdeposit=rs("deposit")
if strchg>strscore then
rs.close
set rs=nothing
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('您的积分不够！');history.go(-1);</script>"
response.End
else
rs("deposit")=strdeposit+strchg*webbj6
rs("score")=strscore-strchg
rs.update
rs.close
set rs=nothing
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('积分转预存款成功！');history.go(-1);</script>"
response.End
end if
end sub
%> 