asp 一些支付接口

2019-01-13 07:07:04王振洲


<%
if request("orderid")<>"" then                                '判断是否有传递订单号

         v_oid = request("orderid")

     else

         curdate = now()                                        ' 根据系统时间产生订单,格式:YYYYMMDD-v_mid-HMMSS
         ymd = year(curdate)&month(curdate)&day(curdate)        ' 年月日
         hms = hour(curdate)&minute(curdate)&second(curdate)    ' 分秒时

         v_oid = ymd&"-"&v_mid&"-"&hms                            ' 推荐订单号构成格式为 年月日-商户号-小时分钟秒

    end if

    v_amount = request("totalmoney")        ' 订单金额

    v_moneytype = "CNY"                    ' 币种

    text = v_amount&v_moneytype&v_oid&v_mid&v_url&key    ' 拼凑加密串

    v_md5info=Ucase(trim(md5(text)))                    ' 网银支付平台对MD5值只认大写字符串,所以小写的MD5值得转换为大写

'**********以下几项为可选信息,如果发送网银在线会保存此信息,使用和不使用都不影响支付!**************

     v_rcvname = request("v_rcvname")            ' 收货人
     v_rcvaddr = request("v_rcvaddr")            ' 收货地址
        v_rcvtel = request("v_rcvtel")            ' 收货人电话
     v_rcvpost = request("v_rcvpost")            ' 收货人邮编
     v_rcvemail = request("v_rcvemail")        ' 收货人邮件
     v_rcvmobile = request("v_rcvmobile")        ' 收货人手机号