index.asp

有关遗传算法的例子

<!--#include file="../pay_function.asp"-->
<!--#include file="md5.asp"-->
<%
'########################################################################################
'	亚阳软件  http://www.ayang.cn 之
'	深圳全动科技nps支付网关  网址：http://www.nps.cn
'	注意事项：使用此网关前需要先到上面的网址注册开通帐号，
'	开通后请在亚阳后台付费系统参数设置中，填写你的商户号跟密钥即可正常使用本支付网关
'	技术支持QQ：82895743  Email:[e-mail]
'#######################################################################################
ayangVerifyurl=Request.serverVariables("Http_REFERER")
if instr(ayangVerifyurl,"/member/pay_bank.asp")="0" or session("ayangmoviesystem_pay")<>True then
Response.write "非法或二次提交，请刷新上一个页面再重试一次"
Response.end
end if
session("ayangmoviesystem_pay")=False
Session("ayangmoviesystem_repay")=False
%>
<%
	m_id		=	site_pay_id
	modate		=	date+time
	m_orderid	=	Getrnd
	m_oamount	=	Request.form("zfmoney")
	m_ocurrency	=	"1"
	m_url		=	site&"/member/nps/"&site_pay_reurl
	m_language	=	"1"
	s_name		=	Request.form("username")
	s_addr		=	request.form("vipname")
	s_postcode	=	request.form("vip")
	s_tel		=	"0755-83791960"			
	s_eml		=	site_email
	
	if session("username")<>"" then
		r_name	=	session("username")
	else
		r_name	=	Request.form("username")
	end if
	
	r_addr		=	webname
	r_postcode	=	request.form("select")
	r_tel		=	"010-81234567"
	r_eml		=	site_email
	m_ocomment	=	"自动升级"	
	m_status	=	"0"
	key		=	site_pay_md5
	
	OrderMessage =m_id&m_orderid&m_oamount&m_ocurrency&m_url&m_language&s_postcode&s_tel&s_eml&r_postcode&r_tel&r_eml&modate&key

	'response.write "串起来的订单信息为：" & OrderMessage & "<br>"
	
	digest = Ucase(trim(md5(OrderMessage)))
	
	'Response.Write "加密认证为：" & digest
	
%>

<!--

https://payment.nps.cn/VirReceiveMerchantAction.do
https://payment.nps.cn/VirReceiveMerchantOutCardAction.do

http://192.168.0.43:8002/npsweb/VirReceiveMerchantOutCardAction.do

-->
<link rel="stylesheet" href="../images/css.css" type="text/css">
<table border="0" cellspacing="0" cellpadding="15" height="75" width="378">
  <tr>
    <td>
      <table width="100%" border="0" cellspacing="1" cellpadding="5" class="b1" bgcolor="#990033">
        <tr> 
          <td width="3%"><img src="../images/wait.gif"></td>
          <td width="97%">正在发送信息到支付网关->><br>
            请放心使用在线支付功能，我们保证你的信息安全 </td>
        </tr>
      </table>
    </td>
  </tr>
</table><form method="post" action="https://payment.nps.cn/VirReceiveMerchantAction.do" target="_blank" name="form1">
  <div align="center">
    <input Type="hidden" Name="M_ID" value="<%=m_id%>">
    <input Type="hidden" Name="MOrderID" value="<%=m_orderid%>">
    <input Type="hidden" Name="MOAmount" value="<%=m_oamount%>">
    <input Type="hidden" Name="MOCurrency" value="<%=m_ocurrency%>">
    <input Type="hidden" name="M_URL" value="<%=m_url%>">
    <input Type="hidden" Name="M_Language" value="<%=m_language%>">
    <input Type="hidden" Name="S_Name" value="<%=s_name%>">
    <input Type="hidden" Name="S_Address" value="<%=s_addr%>">
    <input Type="hidden" Name="S_PostCode" value="<%=s_postcode%>">
    <input Type="hidden" Name="S_Telephone" value="<%=s_tel%>">
    <input Type="hidden" Name="S_Email" value="<%=s_eml%>">
    <input Type="hidden" Name="R_Name" value="<%=r_name%>">
    <input Type="hidden" Name="R_Address" value="<%=r_addr%>">
    <input Type="hidden" Name="R_PostCode" value="<%=r_postcode%>">
    <input Type="hidden" Name="R_Telephone" value="<%=r_tel%>">
    <input Type="hidden" Name="R_Email" value="<%=r_eml%>">
    <input Type="hidden" name="MOComment" value="<%=m_ocomment%>">
    <input Type="hidden" Name="MODate" value="<%=modate%>">
    <input Type="hidden" Name="State" value="<%=m_status%>">
    <input Type="hidden" Name="digestinfo" value="<%=digest%>">
  </div>
</form>
<script language=javascript>
	form1.submit();
	setTimeout("location.href='../src_4.asp';" , 5000);
</script>