ASP支付宝+财付通免签约单号网站通用接口下载

接口文件 post.asp

存放根目录 /yybpay/

<!--#include file="Config.asp"-->
<%
'==================================================================================================
'优云宝V3 V4 V5 V6 X6 接口 www.youyunnet.com
'==================================================================================================
ddh=trim(request("ddh"))'订单号
money=trim(request("money"))'金额
names=trim(request("name"))'备注
key1=trim(request("key"))'KEY
paytime= trim(request("paytime"))'充值时间
lb=trim(request("lb"))'分类 0 支付宝扫码，1‘财付通

if key1 <> YYB_key then '判断KEY是否匹配
	Response.Write "key error"
	response.end
end if'KEY错误中止运行

  if ddh<>"" and money<>"" and  key1<>"" then '非空执行
	Dim crs,csql
	Set crs = Server.CreateObject("ADODB.Recordset")
	  csql = "select * from chongzhi where alipay_orderno='"&ddh&"'"
	  crs.open csql,conn,1,3
	   	if crs.eof and crs.bof then
            Dim usql'查找用户是否存在
			dim lbfl
			
			If lb=0 then
			   usql = "select * from Users where username='"&names&"'" '普通模式
			   lbfl="支付宝备注"
			elseif lb=1 then
			   usql = "select * from Users where username='"&names&"'"'二维码模式
			   lbfl="支付宝"
			elseif lb=2 then
			  usql = "select * from Users where username='"&names&"'"'cft ID
			  lbfl="财付通付款"
			end if
			
			Set rs = Server.CreateObject("ADODB.Recordset")
			rs.open usql,conn,1,3
			 if not rs.eof then
			  '读取用户信息 
			  id=rs("id") '用户ID
			  '============================================
			  '正常备注及二维码订单入库
		      crs.addnew
		      crs("uid")=id
		      crs("amount")=Money
			  crs("alipay_orderno")=ddh
		      crs("status")=1
              crs("typ")=2
		      crs("content")=lbfl
		      crs.update
			  
			  rs("amount") = CStr(CDbl(rs("amount")) + CDbl(Money))'增加金额
			  rs.update'入库更新
			  response.write "ok" '入账成功
			 Else
			   crs.addnew
		      crs("uid")=0
		      crs("amount")=Money
			  crs("alipay_orderno")=ddh
		      crs("status")=2
			  crs("typ")=2
		      crs("content")=lbfl
		      crs.update
			  response.write "no"'没备注
		   end if
		   
		else'存在否则
		 response.write ("ddh no")
		 response.end
	end if '单号是否存在
		
  END if'非

配置文件 config.asp

存放根目录 /yybpay/

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'********************************************'数据库链接代码
Dim YYB_DATAFILE,YYB_CONNSTR,YYB_SQLHOST,YYB_SQLDATA
Dim YYB_SQLUSER,YYB_SQLPASS,CONN,Lwaa
'===============配置文件修改区域========================

  Const YYB_ISSQL=0      '0为Access，1为MSSQL
  
  Const YYB_user=""'名字不调用可以不填
  
  Const YYB_payname="333333@qq.com" '支付宝账号前台不调用可以不填
  
  Const YYB_key="fdsafdsaffdsafdsa" 'key 和服务器软件设置一致
    
'=====================================================
     If YYB_ISSQL=0 Then
	 
	    YYB_DATAFILE = "../db/#888n.mdb"'数据库名称
		
	    
		YYB_CONNSTR="Provider = Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=administrators;Data Source ="&Server.MapPath(YYB_DATAFILE)
		
      Else
	  '========================MSSQL配置区域
	    YYB_SQLHOST="(local)"    '连接IP  [ 本地用 (local) 外地用IP ]       
	    YYB_SQLDATA="111"      '数据库名
	    YYB_SQLUSER="111"         '用户名 
	    YYB_SQLPASS="111"   '密码  
        YYB_CONNSTR = "Provider=Sqloledb;User ID="&YYB_SQLUSER&"; Password="&YYB_SQLPASS&"; Initial CataLog ="&YYB_SQLDATA&"; Data Source="&YYB_SQLHOST& ";"
     END IF
   'On Error Resume Next '错误提示
      Set Conn=Server.CreateObject("ADODB.Connection")
          Conn.open YYB_CONNSTR
            If Err Then
               err.Clear
             Set Conn = Nothing
               'Response.Write ""
	           'Response.End
            End If
%>

接口地址：http://网址.com/yybpay/post.asp