If Request("raction")="alipay_return" Then AliPay_Return() Dvbbs.Footer() Response.End ElseIf Request("action")="alipay_return" Then AliPay_Return() Dvbbs.Footer() Response.End 'ElseIf Request("action")="Re_inmoney" Then ' Re_inmoney() ' Dvbbs.Footer() ' Response.End End If
Sub AliPay_Return() If Dvbbs.Forum_ChanSetting(5) <> "0" Then AliPay_Return_Old() Exit sub Else Dim Rs,Order_No,EnCodeStr,UserInMoney Order_No=Request("out_trade_no") Set Rs = Dvbbs.Execute("Select * From [Dv_ChanOrders] Where O_IsSuc=3 And O_PayCode='"&Order_No&"'") If not(Rs.Eof And Rs.Bof) Then AliPay_Return_Old() Exit sub End if Response.Clear Set Rs = Dvbbs.Execute("Select * From [Dv_ChanOrders] Where O_IsSuc=0 And O_PayCode='"&Order_No&"'") If Rs.Eof And Rs.Bof Then Response.Write "N" Else Response.Write "Y" Dvbbs.Execute("Update Dv_ChanOrders Set O_IsSuc=3 Where O_ID = " & Rs("O_ID")) End If Response.End End If End Sub
Sub AliPay_Return() If Dvbbs.Forum_ChanSetting(5) <> "0" Then AliPay_Return_Old() Else Response.Clear Dim Rs,Order_No,EnCodeStr,UserInMoney Order_No = Dvbbs.CheckStr(Request("order_no")) Set Rs = Dvbbs.Execute("Select * From Dv_ChanOrders Where O_IsSuc=0 And O_PayCode = '"&Order_No&"'") If Rs.Eof And Rs.Bof Then Response.Write "N"