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

昨天帮一个客户写的，他的程序是老的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 =