<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<style type="text/css">
<!--
.STYLE2 {color: #FF0000}
-->
</style>
<body onLoad="show(e21),show(e22)">
<!--#include file="top.asp"-->
<!--#include file="../include/page.asp"-->
<!--#include file="../include/tishi.asp"-->

    <style type="text/css" media="screen">

	@import url("../home/css/sys/detail.php@t=20060522.css");
</style>


<table width="762" border="0" align="center" cellpadding="2" cellspacing="0" style='BORDER-COLLAPSE: collapse;MARGIN: 3px'>
  <tr> 
    <td height="15" colspan="2"></td>
  </tr>
  <tr> 
    <td width="180" valign="top"> 
      <!--#include file="left.asp"-->
    </td>
    <td width="582" height="280" valign="top"><br>
  <%hy "login.asp"
Select case REQUEST("abc")
case "zz_yes"
if request("huiyuan")="" or request("je")="" or isempty(request("je")) or request("password")="" then

Response.Write("<script>alert(""对不起！您不能成功地转账！请正确填写完整的信息！!"");window.history.go(-1);</script>")
response.end
else
if REQUEST("huiyuan")=Request.Cookies(Rikee)("huiyuan") then

Response.Write("<script>alert(""对不起！您不能成功地转账！转账接收人不能是自己！"");window.history.go(-1);</script>")
response.end
else
if clng(REQUEST("je"))<=0 then

Response.Write("<script>alert(""对不起！您不能成功地转账！转账金额不能低于等于0元！"");window.history.go(-1);</script>")
response.end
else
rs= conn.execute("select je2,password from huiyuan where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"'")
je=rs("je2")
pass=md5(request("password"))
if rs("password")<>pass then

Response.Write("<script>alert(""对不起！密码输入错误！"");window.history.go(-1);</script>")
response.end
else
if je<clng(REQUEST("je")) then

Response.Write("<script>alert(""对不起！您不能成功地转账！您的可支配转账金额低于本次转账总金额！"");window.history.go(-1);</script>")
response.end
else
if conn.execute("select count(id) from huiyuan where huiyuan='"&REQUEST("huiyuan")&"'")(0)<1 then

Response.Write("<script>alert(""对不起！您不能成功地转账！该转账的会员账号在数据库中没有找到！"");window.history.go(-1);</script>")
response.end
else
conn.execute("Update huiyuan set je2=je2-"&REQUEST("je")&" where huiyuan='"&Request.Cookies(rikee)("huiyuan")&"'")
conn.execute("Update huiyuan set je2=je2+"&REQUEST("je")&" where huiyuan='"&REQUEST("huiyuan")&"'")
conn.execute("Insert into je(huiyuan_1,huiyuan_2,je,lx,bz)values('"&Request.Cookies(rikee)("huiyuan")&"','"&REQUEST("huiyuan")&"',"&REQUEST("je")&",0,'"&REQUEST("bz")&"')")
conn.execute("Insert into je(huiyuan_1,huiyuan_2,je,lx,bz)values('"&REQUEST("huiyuan")&"','"&Request.Cookies(rikee)("huiyuan")&"',"&REQUEST("je")&",1,'"&REQUEST("bz")&"')")
Response.Write("<script>alert(""转账成功！"");window.history.go(-1);</script>")
response.end

end if
end If
end if
end if
end if
end if
case "faq"%>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td><table border="0" align="left" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="1"><IMG SRC="../images/mytaobaobj1_3.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                  <td width="120" align="center" background="../images/mytaobaobj1_4.gif"><span class="STYLE2">相关帮助</span></td>
                <td width="1"><IMG SRC="../images/mytaobaobj1_6.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
                </tr>
              </table>
                <table border="0" align="left" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                    <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><a href="money.asp">帐户中心</a></font></td>
                  <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
                  </tr>
                </table>
              <table border="0" align="left" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                    <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><span class="C"><a href="?abc=zz">转账中心</a><a href="auc_fend.asp"></a></span></font></td>
                  <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
                  </tr>
              </table>
            </td>
          </tr>
      </table>
        <table width="100%" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td height="4" bgcolor="1E88C1"></td>
          </tr>
        </table>
        <br>

		
		
		<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#efefef">
          <tr bgcolor="#f7f7f7">
            <td height="21" background="../image/bk.gif" bgcolor="#f7f7f7"></td>
          </tr>

          <tr valign="middle" bgcolor="#FFFFFF"> 
            <td height=22 align="center" bgcolor="#FFFFFF" class=main1><table width="90%" border="0" cellpadding="6" cellspacing="0">
              <tr>
                <td>虚拟<%=my_je%>相关帮助说明：</td>
              </tr>
              <tr>
                <td>·虚拟货币名称：<b><%=my_je%></b></td>
              </tr>
              <tr>
                <td>·会员初始注册奖励虚拟货币金额：<b><%=my_je01%>元</b></td>
              </tr>
              <tr>
                <td>·会员登陆一次奖励虚拟货币金额(1天内登陆只计一次)：<b><%=my_je02%>元</b></td>
              </tr>
              
              <tr>
                <td>·会员购物每一元货款奖励虚拟货币金额：<b><%=my_je07%>元</b></td>
              </tr>
              <tr>
                <td>·<span class="STYLE2">站长将定期举办使用<%=my_je%>购买商品或其他活动,如:作为广告费用等.请注意首页公告。</span></td>
              </tr>
            </table>
            </td>
          </tr>
          <tr valign="middle" bgcolor="#FFFFFF">
            <td height=21 background="../image/bk1.gif" class=main1>&nbsp;</td>
          </tr>
      </table>
	      <%case "zz"%>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td><table border="0" align="left" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="1"><IMG SRC="../images/mytaobaobj1_3.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                    <td width="120" align="center" background="../images/mytaobaobj1_4.gif"><span class="C STYLE2">转账中心</span></td>
                  <td width="1"><IMG SRC="../images/mytaobaobj1_6.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
                  </tr>
                </table>
                  <table border="0" align="left" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                      <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><a href="money.asp">帐户中心</a></font></td>
                    <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
                    </tr>
                  </table>
                <table border="0" align="left" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                      <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><a href="?abc=faq">相关帮助</a></td>
                    <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
                    </tr>
                </table></td>
            </tr>
      </table>
	      <table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td height="4" bgcolor="1E88C1"></td>
            </tr>
          </table>
        <script language="javascript">
	<!--//
	function checksignup() {
    if ((document.zz.huiyuan.value == '' )||(document.zz.je.value == '' )) {
			window.alert('请输入要转账的会员账号和本次转账的金额!!');
	       return false;
        }
    if (isNaN(document.zz.je.value)) {
			window.alert('转账金额只能为数值型!!');
	       return false;
        }
	return true;
	}
	//-->
	</script>
        <br>
 <%rs= conn.execute("select je2,rz from huiyuan where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"'")

if rs("rz")=0 then
Response.Write("<script>alert(""对不起！只要通过了身份认证的会员才能转账，您还没有通过身份认证！"");window.location.href=""sfrz.asp"";</script>")

else

  msg="提示：您目前的可转账支配金额为 <font color=red><b>"&rs("je2")&"元</b></font> "
  wmsg()
  %><br>
	  
	  <table width="92%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#efefef">
        <form name="zz" method="post" action="?abc=zz_yes">
          
          <tr valign="middle" bgcolor="#FFFFFF">
            <td height="21" align="center" background="../image/bk.gif">&nbsp;</td>
            <td height="21" background="../image/bk.gif">&nbsp;</td>
          </tr>
          <tr valign="middle" bgcolor="#FFFFFF"> 
            <td width="100" height="30" align="center">转账会员账号</td>
            <td height="30">&nbsp; <input name="huiyuan" type="text" class="wenbenkuang" id="huiyuan" size="20" maxlength="16"></td>
          </tr>
          <tr valign="middle" bgcolor="#FFFFFF">
            <td height="30" align="center">登录密码</td>
            <td height="30">&nbsp;
            <input name="password" type="password" class="wenbenkuang" id="password" size="20" maxlength="16" /></td>
          </tr>
          <tr valign="middle" bgcolor="#FFFFFF"> 
            <td width="100" height="30" align="center">本次转账金额</td>
            <td height="30">&nbsp; <input name="je" type="text" class="wenbenkuang" id="je" size="8" maxlength="5">
              元</td>
          </tr>
          <tr valign="middle" bgcolor="#FFFFFF">
            <td height="30" align="center">转账简要备注</td>
            <td height="30">&nbsp;
              <input name="bz" type="text" class="wenbenkuang" id="bz" size="45" maxlength="25"></td>
          </tr>
          <tr valign="middle" bgcolor="#FFFFFF"> 
            <td height="30" colspan="2" align="center"> <input name="Submit3" type="submit" class="go-wenbenkuang" value="转账" ONCLICK="javascript:return checksignup()"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
              <input name="Submit4" type="reset" class="go-wenbenkuang" value="重新填写"></td>
          </tr>
          <tr valign="middle" bgcolor="#FFFFFF">
            <td height="21" colspan="2" align="center" background="../image/bk1.gif">&nbsp;</td>
          </tr>
        </form>
      </table> 
<%
end if
case else
%> 
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td><table border="0" align="left" cellpadding="0" cellspacing="0">
            <tr>
              <td width="1"><IMG SRC="../images/mytaobaobj1_3.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                  <td width="120" align="center" background="../images/mytaobaobj1_4.gif"><font color="#FFFFFF">帐户中心</font></td>
                  <td width="1"><IMG SRC="../images/mytaobaobj1_6.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
              </tr>
            </table>
                  <table border="0" align="left" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                      <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><span class="C"><a href="?abc=zz">转账中心</a><a href="auc_fend.asp"></a></span></font></td>
                      <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
                    </tr>
            </table>
                <table border="0" align="left" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                      <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><a href="?abc=faq">相关帮助</a></td>
                    <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
                  </tr>
            </table></td>
        </tr>
      </table>
          <table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td height="4" bgcolor="1E88C1"></td>
            </tr>
      </table>
          <table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td height="5"></td>
            </tr>
      </table>
          <br>
<%
msg="提示：您的"&my_je&"总金额为<b>￥"&conn.execute("select je2 from huiyuan where huiyuan='"&myhuiyuan&"'")(0)&"元</b> "
  wmsg()



conn.execute("Delete * from je where datediff('d',sj,now())>30")
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select huiyuan_2,je,lx,sj,bz from je where huiyuan_1='"&Request.Cookies(rikee)("huiyuan")&"' order by id desc"
rs.open sql,conn,3,1

page1("5")%>
     <br> <table width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#efefef">

        <tr align="center" bgcolor="#99CC00">
          <td width="50" height="21" background="../image/bk.gif" bgcolor="#efefef">借贷</td>
          <td height="21" background="../image/bk.gif" bgcolor="#efefef">会员名称</td>
          <td width="100" height="21" background="../image/bk.gif" bgcolor="#efefef">金额</td>
          <td width="140" height="21" background="../image/bk.gif" bgcolor="#efefef">记账时间</td>
        </tr>
        <%
		
  if rs.eof then
  response.write "<tr><td colspan=4 align=center bgcolor=white height=21 valgin=bottom >没有转帐纪录！</td></tr>"
  else	
		
		i=1
do while not rs.eof and i<=rs.pagesize%>
        <tr valign="middle" bgcolor="#FFFFFF">
          <td width="50" height="25" align="center"><%if rs(2)=0 then Response.Write("<font color=#638400>转出</font>") else Response.Write("<font color=#ff6600>转入</font>")%></td>
          <td>&nbsp;<%=rs(0)%></td>
          <td width="100" align="center"><%=rs(1)%>元</td>
          <td width="140" align="center"><%=rs(3)%></td>
        </tr>
        <%if rs(4)<>"" then Response.Write "<tr valign=middle bgcolor=#FFFFFF><td colspan=4>备注："&rs(4)&"</td></tr>"
i=i+1
rs.MoveNext                                              
loop%>
        <tr valign="middle" bgcolor="#FFFFFF">
          <td height="21" colspan="4" align="center" background="../image/bk1.gif">
<%page2("abc=je&")
rs.close
set rs=nothing
end if 
%></td>
        </tr>
      </table>  
      <%End Select%>    </td></tr>
</table>
<!--#include file="bottom.asp"-->
