<%
'乘风多用户计数器 Sql版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/cfcount.htm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示
%>
<%
CardCode=ChkStr(GoBack(Trim(Request("CardCode")),"请输入充值卡号"),1)
CardPassword=ChkStr(GoBack(Trim(Request("CardPassword")),"请输入充值卡密码"),1)
UserName_PayTo=ChkStr(GoBack(Trim(Request("UserName_PayTo")),"请输入给哪个用户充值"),1)

Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFCount_EnoughCard Where CardCode='"&CardCode&"'"
Rs.open Sql,Conn,1,1
If Rs.Eof Then Call AlertBack("此卡号不存在",1)
If CardPassword<>Rs("CardPassword") Then Call AlertBack("充值卡密码有误",1)
%>


  <form name="form2" method="post" action="User.aspx?action=enoughcardaddsave&CardCode=<%=CardCode%>&CardPassword=<%=CardPassword%>&UserName_PayTo=<%=UserName_PayTo%>">
<table class="tb_1"><tr class="tr_1">
      <td colspan="2">卡信息</td>
    </tr>
    <tr> 
      <td width="14%">卡号：</td>
      <td><%=Rs("CardCode")%></td>
    </tr>
    <tr> 
      <td>卡面金额：</td>
      <td><%=Rs("CardMoney")%>元</td>
    </tr>
    <tr> 
      <td>最晚充值日期：</td>
      <td><%=Rs("LastDate")%></td>
    </tr>

    <TR> 
      <TD>给哪个用户充值：</TD>
      <TD><%=UserName_PayTo%></TD>
    </TR>
	<tr> 
      <td>&nbsp;</td><td>
          <input type="submit" name="Submit3322" value="充值">
        </td>
    </tr>  
</table></form>