asp 一些支付接口(22)

         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")        ' 收货人手机号

     v_ordername = request("v_ordername")        ' 订货人姓名
     v_orderaddr = request("v_orderaddr")        ' 订货人地址
     v_ordertel = request("v_ordertel")        ' 订货人电话
     v_orderpost = request("v_orderpost")        ' 订货人邮编
    v_orderemail = request("v_orderemail")        ' 订货人邮件
    v_ordermobile = request("v_ordermobile")    ' 订货人手机号