asp微信支付代码v4.1无需证书版,带回调入库的asp支付源码

最新推荐文章于 2025-05-25 10:43:48 发布

码农18611436777

最新推荐文章于 2025-05-25 10:43:48 发布

阅读量2k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/tocnc/article/details/88364201

本文分享了一段ASP编写的微信支付接口代码，该代码适用于老版本的ASP程序，且无需安装证书。文章指出，尽管ASP支付相对较少使用，但微信对其仍有良好支持，包括完整的回调入库功能。提供的代码分为支付和回调两个部分，适用于手机下单支付场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

昨天帮一个客户写的，他的程序是老的asp，想实现微信在手机上下单付款，让帮忙给写一份asp微信支付的接口代码，昨天晚上闲着没事，搞了一个晚上才搞好，其实asp支付并不需要安装证书，其实asp支付也很好用，微信对asp的支持还是有的，回调入库等都很完善，不说了，上代码：
支付部份=============================

<%
'作者微信：18611436777
SET Wx = New WxAPI
If Session("openid")="" Then
     Code = Trim(Request.QueryString("code"))
     If Code = "" Then
           wx.get_redirect_uri = "http://"&request.ServerVariables("HTTP_HOST")&request.ServerVariables("URL")&"?"&request.QueryString
           Response.Redirect(Wx.GetAuthorization_Code)
     Else
          Call Wx.GetAccess_Token(Code)
     End If
End If
Set Wx=Nothing
 set wxpay = New WxPayApi
   Dim body,out_trade_no,attach,total_fee,Arr,sUrl
   body = "微信支付测试(18611436777)"
   out_trade_no = wxpay.GetDateTime
   attach = "购买商品"'商户自定义数据包.
   total_fee = "0.01"

    wxpay.setParameter "openid",Session("openid")'"oiQ6Bs4Vo0OWAAiHxVSbry7z6yzE"
    wxpay.setParameter "body",body
	wxpay.setParameter "out_trade_no",out_trade_no
	wxpay.setParameter "attach",attach
	wxpay.setParameter "total_fee",(total_fee)*100
	wxpay.setParameter "trade_type","JSAPI"
    wxpay.setParameter "spbill_create_ip","127.0.0.1"
	wxpay.setParameter "notify_url",NOTIFY_URL
	wxpay.setParameter "device_info","WEB"
	
    jsApiParameters = wxpay.get_Parameters
	EditAddressParameters = wxpay.GetEditAddressParameters
    'xml= wxpay.Get_Return_Xml()
	'wxpay.Di