pay.asp

短信息群发平台 功能强大 使用于各行各业 还可以和其他系统连接

<!--#include file="./alipay_inc/myAlipay.asp"-->
<!--#include file="./alipay_inc/alipay_Config.asp"-->
<%
id=session("id")
pay=int(request("pay"))
zruser=trim(request("zruser"))

if pay=""  then
	response.write "<script>alert('请正确输入转帐金额');history.go(-1);</Script>"
	Response.End 
end if


	Dim body,out_trade_no,price,subject,sDate,show_url,paydj

	Dim myAlipayObj,ResponseTxt

'****************以下为产品相关信息

	'生成日期字符串，如果您的网站没有自动生成订单编号，可以考虑用这个日期字符串做订单编号（订单编号不允许重复）
	sDate				= Now()'生成订单编号，建议使用您网站自己系统的订单编号，否则可用日期时间的方式生成唯一订单编号
	sDate				= Year(sDate) & Right(("00" & Month(sDate)),2) & Right(("00" & Day(sDate)),2) & Right(("00" & Hour(sDate)),2) & Right(("00" &  Minute(sDate)),2) & Right(("00" & Second(sDate)),2)

	body				= "门户短信冲值(订单编号：" & sDate & ")"	'商品描述
	out_trade_no		= sDate					'商户网站订单
	pay                 =Request("pay")
	if pay>=6000 then
	paydj=0.05
	elseif pay>=1667 then
	paydj=0.06
	elseif pay>=770 then
	paydj=0.065
	elseif pay>=250 then
	paydj=0.08
	else
	paydj=0.10
	end if
	
	price				= Request("pay")*paydj				'订单总价
	
	user                 =Request("user")
	subject				= "WEB门户短信冲值_"&user&"_"&pay&""			'商品名称
	show_url			= "www.mhsms.com"		'商品展示网址
	If Not IsNumeric(payFee) Then 
		payFee	= 1
	End If 

	'添加手续费
	price				= Round((price + price * (payFee * 0.01)),2)

'********************

	'创建一个myAlipay实例,并初始化myAlipay_Initialize()
	Set myAlipayObj		= New myAlipay
	myAlipayObj.myAlipay_Initialize()

	'及时到帐接口
	ResponseTxt2		= myAlipayObj.generateURLForDirect(body,s_notify_url,out_trade_no,s_return_url,s_myAlipayEmail,subject,price,partner,key,show_url,input_charset)

	response.redirect(""&responsetxt2&"")

%>