pay_bank.asp

有关遗传算法的例子

<!--#include file="conn.asp" -->
<link rel="stylesheet" href="images/css.css" type="text/css">
<%
session("ayangmoviesystem_pay")=True
vip_money=split(vip_money,"|")
vip_name=split(vip_name,"|")
if Request("act")="支付" then
%>
<table border="0" align="center" width="612">
<form name="formok" method="post" action="">
    <tr> 
      <td valign="top"> 
        <div align="center"><br>
          <table width="457" border="0" cellspacing="5" cellpadding="5" align="left">
            <tr> 
              <td bgcolor="#0086C6" class="t1" height="27"><b><font color="#FFFFFF">确认支付信息</font></b></td>
            </tr>
            <tr> 
              <td> 
                <div align="left"> 
                  
				 <%'///包月部分
				 if Request("actfs")="包月" then%>
				  <table border="0" cellspacing="0" cellpadding="4" height="76">
                    <tr> 
                      <td> 
                        <div align="right">升级用户：</div>
                      </td>
                      <td><%=request.form("username")%></td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">会员级别：</div>
                      </td>
                      <td><%=request.form("vipname")%></td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">支付金额：</div>
                      </td>
                      <td><font color="#FF0000">
                        <%
					  zfmoney=int(formatnumber(request.form("vipmoney")*request.form("select"),2))
	                  if zfmoney<"1" then zfmoney="0."&request.form("select")
					  Rw zfmoney&"元"
					  %></font> 
                      </td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">会员期限：</div>
                      </td>
                      <td><%=Request.form("select")%>个月</td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">支付方式：</div>
                      </td>
                      <td><%=request.form("payfs")%></td>
                    </tr>
                  </table>
				  <!-- username:用户名   vip:级别数字   zfmoney:支付的金额    select:有效期/点数 -->
				  <input type="hidden" name="username" value="<%=request.form("username")%>">
				  <input type="hidden" name="vip" value="<%=request.form("vip")%>">
				  <input type="hidden" name="vipname" value="<%=request.form("vipname")%>">
				  <input type="hidden" name="zfmoney" value="<%=zfmoney%>">
				  <input type="hidden" name="select" value="<%=request.form("select")%>">
				  <input type="hidden" name="payfs" value="<%=request.form("payfs")%>">
                  <%'////购点显示部分
				  else
				  if request.form("zfmoney")="" or request.form("zfmoney")<"0" or Request.form("username")="" then
				  call msgbox_j("出现错误，错误原因\n1.用户名为空\n2.购买金额小于0","location.href='pay_bank.asp?action=扣点&vip=1&vipname=购买点数'")
				  Response.end
				  end if
				  %>
                  <table border="0" cellspacing="0" cellpadding="4" height="76">
                    <tr> 
                      <td> 
                        <div align="right">升级用户：</div>
                      </td>
                      <td><%=request.form("username")%></td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">会员级别：</div>
                      </td>
                      <td><%=vip_name(1)%></td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">支付金额：</div>
                      </td>
                      <td><font color="#FF0000"><%=request.form("zfmoney")%></font>元</td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">获得点数：</div>
                      </td>
                      <td><%=request.form("zfmoney")*vip_money(1)%>点</td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">支付方式：</div>
                      </td>
                      <td><%=request.form("payfs")%></td>
                    </tr>
                  </table>
				  <!-- username:用户名   vip:级别数字   zfmoney:支付的金额    select:有效期/点数 -->
				  <input type="hidden" name="username" value="<%=request.form("username")%>">
				  <input type="hidden" name="vip" value="1">
				  <input type="hidden" name="vipname" value="<%=vip_name(1)%>">
				  <input type="hidden" name="zfmoney" value="<%=request.form("zfmoney")%>">
				  <input type="hidden" name="select" value="<%=request.form("zfmoney")*vip_money(1)%>">
				  <input type="hidden" name="payfs" value="<%=request.form("payfs")%>">
                  <%end if%>
                </div>
              </td>
            </tr>
          </table>
        </div>
      </td>
    </tr>
    <tr> 
      <td width="286" valign="top"> 
        <table width="40%" border="0" cellspacing="0" cellpadding="0" align="center">
          <tr> 
            <td> 
              <input type="image" border="0" name="imageField2" src="images/ok.gif" width="55" height="20">
            </td>
          </tr>
        </table>
      </td>
    </tr>
</form>
</table>
<script language=javascript>
<%if Request("payfs")="在线支付" then%>
document.all.formok.action="<%=site_pay%>/index.asp"
<%elseif Request("payfs")="电话支付" then%>
document.all.formok.action="Tel_pay/index.asp"
<%elseif Request("payfs")="手机支付" then%>
document.all.formok.action="mobile_pay/index.asp"
<%end if%>
</script>
<%end if
if Request("action")="包月" then
%>
<table border="0" align="center" width="612">
<form name="form1" method="post" action="?act=支付&actfs=包月">
  <tr> 
    <td valign="top"> 
      <div align="center"><br>
          <table width="457" border="0" cellspacing="5" cellpadding="5" align="left">
            <tr> 
              <td bgcolor="#0086C6" class="t1" height="27"><b><font color="#FFFFFF">会员包月升级</font></b></td>
            </tr>
            <tr> 
              <td> 
                <div align="left">
                  <table border="0" cellspacing="0" cellpadding="4" height="76">
                    <tr> 
                      <td> 
                        <div align="right">升级用户：</div>
                      </td>
                      <td> 
                        <input type="text" name="username" value="<%=session("username")%>">
                      </td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">会员级别：</div>
                      </td>
                      <td><%=request("vipname")%></td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">收费标准：</div>
                      </td>
                      <td><%=request("vipmoney")%>/月</td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">续费期限：</div>
                      </td>
                      <td> 
                        <select name="select">
                          <option value="1">1个月</option>
                          <option value="2">2个月</option>
                          <option value="3">3个月</option>
                          <option value="6">半年</option>
                          <option value="12">1年</option>
                        </select>
                        <input type="hidden" name="vip" value="<%=request("vip")%>">
                        <input type="hidden" name="vipmoney" value="<%=request("vipmoney")%>">
                        <input type="hidden" name="vipname" value="<%=request("vipname")%>">
                      </td>
                    </tr>
                    <tr> 
                      <td>
                        <div align="right">支付方式：</div>
                      </td>
                      <td>
                        <select name="payfs">
                        <option value="在线支付" selected>在线支付</option>
                          <%if site_telpay="是" then%>
						<option value="电话支付">声讯电话支付</option>
						  <%end if
						  if site_mobpay="是" then%>
                        <option value="手机支付">手机支付</option>
						  <%end if%>
                        </select>
</td>
                    </tr>
                  </table>
                </div>
              </td>
            </tr>
          </table>
      </div>
    </td>
  </tr>
  <tr>
      <td width="286" valign="top">
        <table width="40%" border="0" cellspacing="0" cellpadding="0" align="center">
          <tr>
            <td>
              <input type="image" border="0" name="imageField" src="images/ok.gif" width="55" height="20">
            </td>
          </tr>
        </table>
      </td>
  </tr></form>
</table>	
<%elseif Request("action")="扣点" then%>
<table border="0" align="center" width="612">
  <form name="form3" method="post" action="?act=支付&actfs=扣点">
    <tr> 
      <td valign="top"> 
        <div align="center"> 
          <p><br>
          </p>
          <table width="457" border="0" cellspacing="5" cellpadding="5" align="left">
            <tr> 
              <td bgcolor="#0086C6" class="t1" height="27"><b><font color="#FFFFFF">购买点数</font></b></td>
            </tr>
            <tr> 
              <td> 
                <div align="left"> 
                  <table border="0" cellspacing="0" cellpadding="4" height="76">
                    <tr> 
                      <td> 
                        <div align="right">使用用户：</div>
                      </td>
                      <td> 
                        <input type="text" name="username" value="<%=session("username")%>">
                      </td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">系统兑率：</div>
                      </td>
                      <td><font color="#FF0000">1元兑<%=vip_money(1)%>点</font></td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">购买金额：</div>
                      </td>
                      <td> 
                        <input type="text" name="zfmoney" size="5" onKeyUp="counthits();">
                        元 </td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">可兑点数：</div>
                      </td>
                      <td><font color="#FF0000"><span id="ds">请输入金额</span></font></td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">购买方式：</div>
                      </td>
                      <td> 
                        <select name="payfs">
                          <option value="在线支付" selected>在线支付</option>
                          <%if site_telpay="是" then%>
                          <option value="电话支付">声讯电话支付</option>
                          <%end if
						  if site_mobpay="是" then%>
                          <option value="手机支付">手机支付</option>
                          <%end if%>
                        </select>
                      </td>
                    </tr>
                  </table>
                </div>
              </td>
            </tr>
          </table>
        </div>
      </td>
    </tr>
    <tr> 
      <td width="286" valign="top"> 
        <table width="40%" border="0" cellspacing="0" cellpadding="0" align="center">
          <tr> 
            <td> 
              <input type="image" border="0" name="imageField3" src="images/ok.gif" width="55" height="20">
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </form>
</table>
<script language=javascript>
function counthits(){
document.all.ds.innerHTML=document.all.zfmoney.value*<%=vip_money(1)%>+"点"
}
</script>
<%end if%>