<% if checkstr(request("cmd"),2)="add" then errinfo="" username=checkstr(request("username"),2) password=checkstr(request("password"),2) if username="" or password="" then errinfo="对不起，用户名不能为空！" else set rs=server.CreateObject("adodb.recordset") sql="select top 1 order_code from edu_intention where user_id=(select id from edu_userinfo where username='"&username&"' and password='"&password&"') order by id desc" rs.open sql,conn,3 if not(rs.bof or rs.eof) then Order_Code=rs("order_code") Amount=checkstr(request("amount"),1) else errinfo="对不起，用户不存在或还未选课！" end if end if end if %> 网上支付
返回帮助
支付说明
<% if checkstr(request("cmd"),2)="add" then if errinfo<>"" then response.Write errinfo&" —> [返回]" else Set mctSDK = Server.CreateObject("HmacMd5API.HmacMd5Com") 'Setup 秘钥. 其中merchantID, 以及秘钥value 需要丛YeePay平台获得 '作为例子此处使用merchant ID =1001001 key Value =Key Dim merchantId Dim keyValue Dim nodeAuthorizationURL Dim amount Dim cur Dim productDesc Dim productCat Dim productId Dim messageType Dim addressFlag Dim orderId Dim merchantCallbackURL Dim sMctProperties Dim frpId Dim sbOld Dim sNewString merchantId = 1090002928 keyValue = "bVIs2Pl56QgIP5kw6LJiGgAv836QgIP5kw6LJiGgAv836QgIP5kw6LJiGgAv" '下列代码将用户浏览器重新定向到YeePay平台上 nodeAuthorizationURL = "https://www.yeepay.com/app-merchant-proxy/node" '扣款请求URL 无需更改 messageType="Buy" '消息类型 addressFlag="0" '需要填写送货信息 0：不需要 1:需要 merchantCallbackURL = "http://www.edu24ol.com/telbank/callback.asp" '用户完成交易完成后, 控制应用返回到商家自己的URL orderId=Order_Code '商家的交易定单号此参数可选，但不能有重复（如果不输入YeePay会自动帮助商家生成一个订单号） productId = "0,0" '商品ID(尽量清楚填写，方便以后统计订单) amount=Amount '购买金额(必须) cur="CNY" '货币单位(固定不需要修改，现在一般只会支持人民币交易) productDesc = "0,0" '商品描述(可保持为空) productCat = 1 '商品种类(可保持为空) '商家可以把一些辅助信息放在mp列表中，当从YeePay易宝平台返回时，还可以原样取出商家设定的一些信息。可以提供商家临时保存信息的功能 sMctProperties = conn.execute("select id from edu_userinfo where username='"&username&"' and password='"&password&"'")(0) '(可保持为空) '如果直接到YeePay网关设定为空即可，而在商家端选择银行的情况下请参见银行列表 frpId="" '(可选) needResponse = 1 '是否需要应答机制,默认或0为不需要应答机制,1为需要应答机制. '调用签名函数生成签名串 sbOld="" sbOld = sbOld & messageType sbOld = sbOld & merchantId sbOld = sbOld & orderId sbOld = sbOld & CStr(amount) sbOld = sbOld & cur sbOld = sbOld & productId sbOld = sbOld & productCat sbOld = sbOld & productDesc sbOld = sbOld & merchantCallbackURL sbOld = sbOld & addressFlag sbOld = sbOld & sMctProperties 'sbOld = sbOld & frpId 'sbOld = sbOld & needResponse 'sNewString = mctSDK.HmacMd5(sbOld,keyValue) dim TelsbOld0,TelsbOld1,TelsbOld2,TelsbOld3,TelsbOld4 dim telsNewString1,telsNewString2,telsNewString3,telsNewString4 TelsbOld0 = sbOld & frpId & needResponse telsNewString = mctSDK.HmacMd5(TelsbOld0,keyValue) TelsbOld1 = sbOld & "ICBC-NET" & needResponse TelsbOld2 = sbOld & "ABC-NET" & needResponse TelsbOld3 = sbOld & "CMBCHINA-NET" & needResponse TelsbOld4 = sbOld & "CCB-NET" & needResponse telsNewString1 = mctSDK.HmacMd5(TelsbOld1,keyValue) telsNewString2 = mctSDK.HmacMd5(TelsbOld2,keyValue) telsNewString3 = mctSDK.HmacMd5(TelsbOld3,keyValue) telsNewString4 = mctSDK.HmacMd5(TelsbOld4,keyValue) 'yeepay网上支付商家设置用户购买商品的支付信息获取结束 %>
用 户 名： <%=username%>
订 单 号： <%=order_code%>
充值金额： <%=amount%> 元
充值日期： <%=date%>
工商银行 农业银行 招商银行 建设银行
<% end if else %>
用 户 名：
密　　码：
支付金额：
　
  新用户注册>>
<%end if%>

欢迎来到环球网校！
·已经在环球网校注册和报名了的用户,请在左侧输入"用户名"和要"支付的金额"，提交后确认订单，记住自己的订单号，并根据页面提示点击"在钱支付"进入易宝支付平台。
·用户选择易宝账户或者其它银行卡进行在线支付。
·如果您是还没有注册请先点左侧新用户注册按钮成为网校用户。

如有问题，请拨打技术咨询电话：400-678-3456(长途免费)