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

If CardCode="" Then
 ReBuy=0
 CardCode=Left(DateDiff("s","2000-1-1",Now())&GetRanStr_2(16),16)
 CardPassword=GetRanStr_2(16)
 LastDate=DateAdd("yyyy",1,Date())
Else
 ReBuy=1
 Sql="Select * From CFCount_EnoughCard Where CardCode='"&CardCode&"'"
 Set Rs=Conn.Execute(Sql)
 CardPassword=Rs("CardPassword")
 CardMoney=Rs("CardMoney")
 LastDate=Rs("LastDate")
End If
%>

  <form name="f" method="post" action="OnlinePay_Send.asp?UserName=<%=UserName%>&ReBuy=<%=ReBuy%>" target="_blank">
<table class="tb_1">
<tr class="tr_1">
    <td colspan="5">充值卡购买</td>
  </tr>
  <tr> 
      <td width="14%">卡号：</td>
      <td><input name="CardCode" type="text" value="<%=CardCode%>" size="30" readonly style="background='#e8e8e8';"> 
      </td>
    </tr>
    <tr> 
      <td>密码：</td>
      <td><input name="CardPassword" type="text" value="<%=CardPassword%>" size="30" readonly  style="background='#e8e8e8';"> 
      </td>
    </tr>
    <tr> 
      <td>卡面金额：</td>
      <td>
	  <%
	  If ReBuy=0 Then
	   Response.write "<input name='CardMoney' type='text' size='15'>"
	  ElseIf ReBuy=1 Then
	   Response.write "<input name='CardMoney' type='text' size='15' value='"&CardMoney&"' readonly  style=""background='#e8e8e8';"">"
	  End If
	  %>
        元(请填写1元的整数倍)</td>
    </tr>
    <tr> 
      <td>最晚充值日期：</td>
      <td> <input name="LastDate" type="text" value="<%=LastDate%>" size="15" readonly  style="background='#e8e8e8';"> 
      </td>
    </tr>
    <tr> 
      <td>选择支持方式：</td>
      <td>
<%
If GetMySet("CFCountAdminSet","AdminSet","OnlinePayUser_1")<>"" Then
 MyStr= "<input name='PayType' type='radio' value='1'"
 If CInt(GetMySet("CFCountAdminSet","AdminSet","OnlinePay"))=1 Then MyStr=MyStr&" checked"
 MyStr=MyStr&">快钱支付"
End If

If GetMySet("CFCountAdminSet","AdminSet","OnlinePayUser_2")<>"" Then
 MyStr= MyStr&"<input name='PayType' type='radio' value='2'"
 If CInt(GetMySet("CFCountAdminSet","AdminSet","OnlinePay"))=2 Then MyStr=MyStr&" checked"
 MyStr=MyStr&">网银在线支付"
End If

If GetMySet("CFCountAdminSet","AdminSet","OnlinePayUser_3")<>"" Then
 MyStr= MyStr&"<input name='PayType' type='radio' value='3'"
 If CInt(GetMySet("CFCountAdminSet","AdminSet","OnlinePay"))=3 Then MyStr=MyStr&" checked"
 MyStr=MyStr&">支付宝支付"
End If

If GetMySet("CFCountAdminSet","AdminSet","OnlinePayUser_4")<>"" Then
 MyStr= MyStr&"<input name='PayType' type='radio' value='4'"
 If CInt(GetMySet("CFCountAdminSet","AdminSet","OnlinePay"))=4 Then MyStr=MyStr&" checked"
 MyStr=MyStr&">财付通支付"
End If

Response.write MyStr
%>

</td>
    </tr>
    <tr> 
      <td>&nbsp;</td><td><input type="submit" name="Submit4" value="购买">
      </td>
    </tr>  
</table></form>