<%qx="12"%>
<!--#include file="../login/0.asp"-->
<!--#include file="../../mycartconn/conn.asp"-->
<!--#include file="../../mycartconn/my.asp"-->
<!--#include file="../../mycartconn/je.asp"-->
<!--#include file="../../mycartconn/page.asp"-->
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link href="../../mycartconn/admin.css" rel="stylesheet" type="text/css">
		  <%
		  Select case request("abc")
          case "add_yes"
		  if request("huiyuan")="" or request("je2")="" then
		  width="500"
		  my_bt="操 作 失 败 ！"
          my_nr="<meta http-equiv=refresh content=5;url=javascript:history.go(-1)>&nbsp;<b>对不起！你不能成功地充值！！！</b></font><br>·请确保各项必填项填写完整！"
          my()
		  else
		  huiyuan = conn.execute("select count(id) from huiyuan where huiyuan='"&request("huiyuan")&"'")(0)
          if huiyuan<>1 then
		  width="500"
		  my_bt="操 作 失 败 ！"
          my_nr="<meta http-equiv=refresh content=5;url=javascript:history.go(-1)>&nbsp;<b>对不起！你不能成功地充值！！！</b></font><br>·该会员账号在数据库中没有找到！"
          my()
		  else
		  conn.execute("Update huiyuan set je2=je2+"&request("je2")&" where huiyuan='"&request("huiyuan")&"'")
		  width="500"
		  my_bt="操 作 成 功 ！"
          my_nr="<meta http-equiv=refresh content=5;url=je.asp?abc=add>&nbsp;<b>您已成功地充值！！！</b></font><br>·系统正在转向返回，如您的游览器不支持跳转请 <a href=je.asp?abc=add>-&gt直接点这里</a>"
          my()
		  end if
		  end if
		   case "del_yes"
		  if request("huiyuan")="" or request("je2")="" then
		  width="500"
		  my_bt="操 作 失 败 ！"
          my_nr="<meta http-equiv=refresh content=5;url=javascript:history.go(-1)>&nbsp;<b>对不起！你不能成功地扣罚！！！</b></font><br>·请确保各项必填项填写完整！"
          my()
		  else
		  huiyuan = conn.execute("select count(id) from huiyuan where huiyuan='"&request("huiyuan")&"'")(0)
          if huiyuan<>1 then
		  width="500"
		  my_bt="操 作 失 败 ！"
          my_nr="<meta http-equiv=refresh content=5;url=javascript:history.go(-1)>&nbsp;<b>对不起！你不能成功地扣罚！！！</b></font><br>·该会员账号在数据库中没有找到！"
          my()
		  else
		  conn.execute("Update huiyuan set je2=je2-"&request("je2")&" where huiyuan='"&request("huiyuan")&"'")
		  width="500"
		  my_bt="操 作 成 功 ！"
          my_nr="<meta http-equiv=refresh content=5;url=je.asp?abc=del>&nbsp;<b>您已成功地扣罚！！！</b></font><br>·系统正在转向返回，如您的游览器不支持跳转请 <a href=je.asp?abc=del>-&gt直接点这里</a>"
          my()
		  end if
		  end if
		  case "add"%>
<script language="javascript">
function add(aa){		 
if((aa.huiyuan.value=='')||(aa.je2.value=='')){			
alert("对不起,两项都必须选择填写!");
return false;}}
</script><p>&nbsp;</p>
<br>
<table width="350" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#638400">
  <form name="form" method="post" action="?abc=add_yes" onsubmit="javascript:return add(this)">
    <tr valign="middle" bgcolor="#99cc00"> 
      <td height="30" colspan="2">&nbsp;<font color="#FFFFFF">&nbsp;-&gt; 虚拟货币<%=my_je%>充值中心</font></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 width="100" height="30" align="center">充值金额</td>
      <td height="30">&nbsp; 
        <input name="je2" type="text" class="wenbenkuang" id="je2" size="10" maxlength="8">
        元</td>
    </tr>
    <tr valign="middle" bgcolor="#FFFFFF"> 
      <td height="30" colspan="2" align="center">
<input name="Submit3" type="submit" class="go-wenbenkuang" value="OK，充值"> 
        <input name="Submit4" type="reset" class="go-wenbenkuang" value="重新填写"></td>
    </tr>
  </form>
</table>
<%case "del"%>
<script language="javascript">
function add(aa){		 
if((aa.huiyuan.value=='')||(aa.je2.value=='')){			
alert("对不起,两项都必须选择填写!");
return false;}}
</script><p>&nbsp;</p>
<br>
<table width="350" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#638400">
  <form name="form" method="post" action="?abc=del_yes" onsubmit="javascript:return add(this)">
    <tr valign="middle" bgcolor="#99cc00"> 
      <td height="30" colspan="2">&nbsp;<font color="#FFFFFF">&nbsp;-&gt; 虚拟货币<%=my_je%>扣罚中心</font></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 width="100" height="30" align="center">扣罚金额</td>
      <td height="30">&nbsp; 
        <input name="je2" type="text" class="wenbenkuang" id="je2" size="10" maxlength="8">
        元</td>
    </tr>
    <tr valign="middle" bgcolor="#FFFFFF"> 
      <td height="30" colspan="2" align="center">
<input name="Submit3" type="submit" class="go-wenbenkuang" value="OK，扣罚"> 
        <input name="Submit4" type="reset" class="go-wenbenkuang" value="重新填写"></td>
    </tr>
  </form>
</table>
<%case else
conn.execute("Delete je where datediff(d,sj,getdate())>30")
Select case request("lx")
case "2"
key="and huiyuan_2 like '%"&request("key")&"%'"
case "1"
key="and huiyuan_1 like '%"&request("key")&"%'"
case else
if request("key")<>"" then
key="and (huiyuan_1 like '%"&request("key")&"%' or huiyuan_2 like '%"&request("key")&"%')"
else
key=""
end if
End Select
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select huiyuan_1,huiyuan_2,je,sj,bz from je where lx=0 "&key&" order by id desc"
rs.open sql,conn,3,1 
page1("15")%>
<table width="600" align="center" cellpadding="0" cellspacing="0">
  <tr><form name="form1" method="post" action="?">
    <td height="30" align="center" valign="middle"> 
        <input name="key" type="text" class="wenbenkuang" id="key" size="25" maxlength="25">
        <select name="lx" class="wenbenkuang" id="lx">
          <option value="0" selected>全部信息</option>
          <option value="1">操作会员</option>
          <option value="2">转账会员</option>
        </select>
        <input name="Submit" type="submit" class="go-wenbenkuang" value="提交">
      </td></form>
  </tr>
</table>
<table width="500" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#638400">
  <tr bgcolor="#99CC00"> 
    <td width="125" height="25" align="center"><font color="#FFFFFF">操作会员</font></td>
          
    <td width="114" height="25" align="center"><font color="#FFFFFF">转账会员</font></td>
          
    <td width="100" height="25" align="center"><font color="#FFFFFF">金额</font></td>
          
    <td width="140" height="25" align="center"><font color="#FFFFFF">记账时间</font></td>
        </tr>
<%i=1
do while not rs.eof and i<=rs.pagesize%>
        <tr valign="middle" bgcolor="#FFFFFF">
          
    <td width="125" height="25"><%Response.Write("<a href=../huiyuan/huiyuan.asp?abc=xs&page=1&id="&conn.execute("select id from huiyuan where huiyuan='"&rs(0)&"'")(0)&">"&rs(0)&"</a>")%></td>
          
    <td height="25"><%Response.Write("<a href=../huiyuan/huiyuan.asp?abc=xs&page=1&id="&conn.execute("select id from huiyuan where huiyuan='"&rs(1)&"'")(0)&">"&rs(1)&"</a>")%></td>
          
    <td width="100" height="25" align="center"><%=rs(2)%>元</td>
          
    <td width="140" height="25" 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="30" colspan="4" align="center">
<%page2("lx="&request("lx")&"&key="&request("key")&"&")
rs.close
set rs=nothing%></td>
        </tr>
      </table>
      <table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="35" valign="middle">注：虚拟银行系统只保留30天内记录以供查询。</td>
        </tr>
      </table>
<%end select
conn.close
set conn=nothing
%>