weixin/JsonPost_1000006.gds
@@ -17,6 +17,7 @@ 'Post方法 Function PostBody(appUrl,args1) 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 @@ -35,6 +36,7 @@ Set https = Nothing End If PBrs.close() end if End Function 'Get方法