| | |
|---|
| | | End If
|
|---|
| | | '签名验证---end
|
|---|
| | |
|
|---|
| | | Function saveCoupon(objConn,Money,UserID,Remarks,Name)
|
|---|
| | | CouponNO=DTimeID()&getIDnumbers(6)
|
|---|
| | | CouponMoney=Money
|
|---|
| | | CouponRemarks=Remarks
|
|---|
| | | CouponName=Name
|
|---|
| | | If UserID="" Then UserID=0
|
|---|
| | | sql="Insert into Coupon (CouponNO,CouponName,CouponMoney,CouponDate_Ent,CouponRemarks,ServiceOrdIDPK,ToUserID) values ('"&CouponNO&"','"&CouponName&"',"&CouponMoney&",getdate()+365*2,'"&CouponRemarks&"',0,"&UserID&")"
|
|---|
| | | objConn.Execute sql
|
|---|
| | | End Function
|
|---|
| | |
|
|---|
| | | objConn.BeginTrans
|
|---|
| | |
|
|---|
| | | If errcode="" then
|
|---|
| | |
|---|
| | | ADUser="155"
|
|---|
| | | ElseIf UserSourceSP(i)="Iid166" Then
|
|---|
| | | ADUser="166"
|
|---|
| | | ElseIf UserSourceSP(i)="Iid193" Then
|
|---|
| | | ADUser="193"
|
|---|
| | | End If
|
|---|
| | | End If
|
|---|
| | | Next
|
|---|
| | |
|---|
| | | NewUserCoupon=0
|
|---|
| | | End If
|
|---|
| | |
|
|---|
| | | If (ADUser="153") And NewUser=1 And DateDiff("d",now(),"2023-9-15")<=0 And DateDiff("d",now(),"2024-6-30")>=0 Then
|
|---|
| | | if (ADUser="193") And DateDiff("d",now(),"2025-9-5")<=0 And DateDiff("d",now(),"2028-1-1")>=0 Then
|
|---|
| | | sql="select * from Coupon where CouponDate_Ent>=getdate() and CouponName like '城市服务 优惠%' and ToUserID="&UserID
|
|---|
| | | rs.open Sql,objConn,1,1
|
|---|
| | | If rs.Eof then |
|---|
| | | '公交车广告优惠
|
|---|
| | | '城市服务优惠 发优惠券： 市内50 省内200 省外500 高铁1000 航空3000 |
|---|
| | | saveCoupon objConn,50,UserID,"","城市服务 优惠 50元代金券-（本市行政区域内救护车转运可使用）"
|
|---|
| | | saveCoupon objConn,50,UserID,"","城市服务 优惠 50元代金券-（本市行政区域内救护车转运可使用）"
|
|---|
| | | saveCoupon objConn,200,UserID,"","城市服务 优惠 200元代金券-（单程距离100公里以上救护车转运可使用）"
|
|---|
| | | saveCoupon objConn,500,UserID,"","城市服务 优惠 500元代金券-（单程距离500公里以上救护车转运可使用）"
|
|---|
| | | saveCoupon objConn,1000,UserID,"","城市服务 优惠 1000元代金券-（高铁医疗转运可使用）"
|
|---|
| | | saveCoupon objConn,3000,UserID,"","城市服务 优惠 3000元代金券-（航空医疗转运可使用）"
|
|---|
| | | End if |
|---|
| | | rs.close()
|
|---|
| | | ElseIf (ADUser="153") And NewUser=1 And DateDiff("d",now(),"2023-9-15")<=0 And DateDiff("d",now(),"2024-6-30")>=0 Then
|
|---|
| | | sql="select * from Coupon where CouponDate_Ent>=getdate() and CouponName like '城市服务优惠%' and ToUserID="&UserID
|
|---|
| | | rs.open Sql,objConn,1,1
|
|---|
| | | If rs.Eof then
|
|---|
| | |
|---|
| | | webJson="""UserInformation"":{""Title"":""用户优惠券"",""Content"":"""",""PicUrl"":""https://api.966120.com.cn/OA_img/20231013160503.png"",""Url"":""/pages/my/login/login"",""OpenType"":""navigateTo""}"
|
|---|
| | | ElseIf UserID<>"0" And FormIDInt=0 And (InStr(pages,"148")>0 Or InStr(pages,"155")>0 Or InStr(CouponNames,"代金券")>0) Then
|
|---|
| | | webJson="""UserInformation"":{""Title"":""用户优惠券"",""Content"":"""",""PicUrl"":""https://api.966120.com.cn/OA_img/ad_20230727.png"",""Url"":"""",""OpenType"":""""}"
|
|---|
| | | ElseIf wxOpenid<>"" and FormIDInt=0 and (InStr(pages,"193")>0 or InStr(CouponNames,"代金券")>0) then
|
|---|
| | | webJson="""UserInformation"":{""Title"":""用户优惠券"",""Content"":""&pages&"",""PicUrl"":""https://api.966120.com.cn/OA_img/ad_0904.png"",""Url"":"""",""OpenType"":""""}"
|
|---|
| | | Else
|
|---|
| | | webJson="""UserInformation"":0"
|
|---|
| | | End If
|
|---|
