feat: 增加公交广告中的优惠券功能

wlzboy

2025-09-06 2decf5219e3476e30095fd9dbf6e49c55e105563

 weixin/JsonPost_1000006.gds

@@ -17,24 +17,26 @@


'Post方法

Function PostBody(appUrl,args1)

Set PBrs = Server.CreateObject("ADODB.Recordset")

sql="select id from API_Json where DATEDIFF (ss,Json_time,GETDATE())<=30 and Json='"&args1&"'"

PBrs.open sql,objConn,1,1

If PBrs.Eof Then

   Set https = Server.CreateObject("Msxml2.ServerXMLHTTP") 
	
   'Set https = Server.CreateObject("MSXML2.XMLHTTP") 
   With https 
   .Open "Post", appUrl, False

   .setRequestHeader "Content-Type","application/x-www-form-urlencoded"

   .Send args1

   PostBody = .ResponseBody

   End With 
   PostBody = BytesToBstr(PostBody,"utf-8")

   JsonID = API_JsonSql(appUrl,args1,reserve)

   Set https = Nothing 
End If

PBrs.close()

 if 1=2 then

   Set PBrs = Server.CreateObject("ADODB.Recordset")

   sql="select id from API_Json where DATEDIFF (ss,Json_time,GETDATE())<=30 and Json='"&args1&"'"

   PBrs.open sql,objConn,1,1

   If PBrs.Eof Then

      Set https = Server.CreateObject("Msxml2.ServerXMLHTTP") 
		
      'Set https = Server.CreateObject("MSXML2.XMLHTTP") 
      With https 
      .Open "Post", appUrl, False

      .setRequestHeader "Content-Type","application/x-www-form-urlencoded"

      .Send args1

      PostBody = .ResponseBody

      End With 
      PostBody = BytesToBstr(PostBody,"utf-8")

      JsonID = API_JsonSql(appUrl,args1,reserve)

      Set https = Nothing 
   End If

   PBrs.close()

 end if

End Function



'Get方法