<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%If Request.Form ("username")="" or RegExpTest("[^A-Za-z0-9]",Request.Form ("username")) Then
	ef=True
	ec="用户名没填或非法！"
ElseIf Not IsNumeric(request.form("ORDERMONEY")) Then
	ef=True
	ec="金额必须是数字！"
ElseIf Clng(request.form("ORDERMONEY"))<Application("netpaylessmoney") Then
	ef=True
	ec="金额不能小于"&Application("netpaylessmoney")&"元"
End if


If not ef Then
If Application("NP_Netcard_ShopID")="123" Or Application("NP_Netcard_ShopID")="" Then
		ef=True
		ec="商号尚未设置！"
End if
end If

'验证会员资格
If not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
Set dsreg = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_AGENT where username='"&Request.Form ("username")&"' and agenttype<>'n'"
		dsreg.Open Sql,conn,1,3
If dsreg.Eof Then
Set dsreg = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_USER where username='"&Request.Form ("username")&"'"
		dsreg.Open Sql,conn,1,3
If dsreg.Eof Then
		ef=True
		ec="会员名不存在！"
end if
end if
end if

if not ef then

'---订单信息---
	Dim c_mid			'商户编号，在申请商户成功后即可获得，可以在申请商户成功的邮件中获取该编号
	Dim c_order			'商户网站生成的订单号，不能重复
	Dim c_name			'商户订单中的收货人姓名
	Dim c_address		'商户订单中的收货人地址
	Dim c_tel			'商户订单中的收货人电话
	Dim c_post			'商户订单中的收货人邮编
	Dim c_email			'商户订单中的收货人Email
	Dim c_orderamount	'商户订单总金额
	Dim c_ymd			'商户订单的产生日期，格式为"yyyymmdd"，如20050102
	Dim c_moneytype		'支付币种，0为人民币
	Dim c_retflag		'商户订单支付成功后是否需要返回商户指定的文件，0：不用返回 1：需要返回
	Dim c_paygate		'如果在商户网站选择银行则设置该值，具体值可参见《云网支付@网技术接口手册》附录一；如果来云网支付@网选择银行此项为空值。
	Dim c_returl		'如果c_retflag为1时，该值代表支付成功后返回的文件的路径
	Dim c_memo1			'商户需要在支付结果通知中转发的商户参数一
	Dim c_memo2			'商户需要在支付结果通知中转发的商户参数二
	Dim c_signstr		'商户对订单信息进行MD5签名后的字符串
	Dim c_pass			'支付密钥，请登录商户管理后台，在帐户信息->基本信息->安全信息中的支付密钥项
	Dim notifytype		'0普通通知方式/1服务器通知方式，空值为普通通知方式
	Dim c_language		'对启用了国际卡支付时，可使用该值定义消费者在银行支付时的页面语种，值为：0银行页面显示为中文/1银行页面显示为英文

	c_mid		= Application("NP_Netcard_ShopID")
	 c_order=year(now)&month(now)&day(now)&hour(now)&Minute(now)&Second(now)
	c_name		= trim(lcase(Request.Form ("username")))
	c_address	= ""
	c_tel		= ""
	c_post		= ""
	c_email		= dsreg("email")
	c_orderamount	= request.form("ORDERMONEY")

If Application("NetPaypercent")>0 Then c_orderamount=c_orderamount*(1+Application("NetPaypercent"))
c_orderamount=FormatNumber(c_orderamount,2,-1)

c_ymd=year(now)
dd=month(now)
if(dd<10)then
dd="0"&dd
end if
c_ymd=c_ymd&dd
dd=day(now)
if(dd<10)then
dd="0"&dd
end if
c_ymd=c_ymd&dd
	c_moneytype	= "0"
	c_retflag	= "1"
	c_paygate	= ""
	c_returl	= "http://"&Request.ServerVariables("SERVER_NAME")&"/netpay/cncard/GetPayNotify.asp"	'该地址为商户接收云网支付结果通知的页面，请提交完整文件名(对应范例文件：GetPayNotify.asp)
	c_memo1		= trim(lcase(Request.Form ("username")))
	c_memo2		= ""
	c_pass		= Application("NP_Netcard_Key")
	notifytype	= "1"
	c_language	= "0"

	srcStr = c_mid & c_order & c_orderamount & c_ymd & c_moneytype & c_retflag & c_returl & c_paygate & c_memo1 & c_memo2 & notifytype & c_language & c_pass
	'说明：如果您想指定支付方式(c_paygate)的值时，需要先让用户选择支付方式，然后再根据用户选择的结果在这里进行MD5加密，也就是说，此时，本页面应该拆分为两个页面，分为两个步骤完成。
	
'---对订单信息进行MD5加密
	c_signstr	= MD5(srcStr)


sOrderID = c_order

Set dsNP = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Netpay where ORDERID='"&sOrderID&"'"
		dsNP.Open Sql,conn,1,3
if not dsNP.eof then
		ef=True
		ec="重复订单！"
end if
end if

if not ef then
sUserName=trim(lcase(Request.Form ("username")))
sShopID   = c_mid     '商户编号，改成IPAY负责分配给商户的编号
sOrderMoney=c_orderamount


dsNP.addnew
dsNP("username")=sUserName
dsNP("SHOPID")=sShopID
dsNP("ORDERID")=sOrderID
dsNP("ORDERMONEY")=sOrderMoney
dsNP("SUCCEEDFLAG")=0
dsNP("paytime")=now
dsNP("ip")=Request.ServerVariables("REMOTE_ADDR")
		dsNP.update
		dsNP.close
%>


<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html2")%>　网上支付
<%=htmlwrite("html3")%>
<br>
用户名:<%=sUserName%> 请确认用户名是否正确 支付金额:<%=sOrderMoney%> 元<%If Application("NetPaypercent")>0 Then %>(增加<%=Application("NetPaypercent")*100%>%手续费)<%End if%>
<table width="85%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center"> 
      <form name="payForm1" action="https://www.cncard.net/purchase/getorder.asp" method="POST">
			<input type="hidden" name="c_mid" value="<%=c_mid%>">
			<input type="hidden" name="c_order" value="<%=c_order%>">
			<input type="hidden" name="c_name" value="<%=c_name%>">
			<input type="hidden" name="c_address" value="<%=c_address%>">
			<input type="hidden" name="c_tel" value="<%=c_tel%>">
			<input type="hidden" name="c_post" value="<%=c_post%>">
			<input type="hidden" name="c_email" value="<%=c_email%>">
			<input type="hidden" name="c_orderamount" value="<%=c_orderamount%>">
			<input type="hidden" name="c_ymd" value="<%=c_ymd%>">
			<input type="hidden" name="c_moneytype" value="<%=c_moneytype%>">
			<input type="hidden" name="c_retflag" value="<%=c_retflag%>">
			<input type="hidden" name="c_paygate" value="<%=c_paygate%>">
			<input type="hidden" name="c_returl" value="<%=c_returl%>">
			<input type="hidden" name="c_memo1" value="<%=c_memo1%>">
			<input type="hidden" name="c_memo2" value="<%=c_memo2%>">
			<input type="hidden" name="c_language" value="<%=c_language%>">
			<input type="hidden" name="notifytype" value="<%=notifytype%>">
			<input type="hidden" name="c_signstr" value="<%=c_signstr%>">
			<input type=submit name=v_action value="下一步进入付费流程>>>">
      </form>
	</td>
  </tr>
</table>


<%=htmlwrite("html4")%>
<%
end if

if ef then
Response.Redirect "e.asp?e="&ec
end if%>
