|
马上注册,结交更多郧西好友
您需要 登录 才可以下载或查看,没有帐号?注册
x
看代码UserPayasp行12-64- If Request("raction")="alipayreturn" Then
- AliPayReturn()
- DvbbsFooter()
- ResponseEnd
- ElseIf Request("action")="alipayreturn" Then
- AliPayReturn()
- DvbbsFooter()
- ResponseEnd
- 'ElseIf Request("action")="Reinmoney" Then
- ' Reinmoney()
- ' DvbbsFooter()
- ' ResponseEnd
- End If
复制代码 无论用户提交的raction为alipayreturn还是action为alipayreturn都调用了AliPayReturn()过程。AliPayReturn()的代码原型在行329-351,代码如下:- Sub AliPayReturn()
- If DvbbsForumChanSetting(5) <> "0" Then
- AliPayReturnOld()
- Exit sub
- Else
- Dim Rs,OrderNo,EnCodeStr,UserInMoney
- OrderNo=Request("outtradeno")
- Set Rs = DvbbsExecute("Select * From [DvChanOrders] Where OIsSuc=3 And OPayCode='"&OrderNo&"'")
- If not(RsEof And RsBof) Then
- AliPayReturnOld()
- Exit sub
- End if
- ResponseClear
- Set Rs = DvbbsExecute("Select * From [DvChanOrders] Where OIsSuc=0 And OPayCode='"&OrderNo&"'")
- If RsEof And RsBof Then
- ResponseWrite "N"
- Else
- ResponseWrite "Y"
- DvbbsExecute("Update DvChanOrders Set OIsSuc=3 Where OID = " & Rs("OID"))
- End If
- ResponseEnd
- End If
- End Sub
复制代码 如果DvbbsForumChanSetting(5) <> "0" 就执行下面的sql语句,我们来看看数据库里默认的ForumChanSetting吧。- 1,1,0,0,[email]pay@aspskynet[/email],0,b63uvb8nsvsmbsaxszgvdr6svyus0l4t,1,1,1,1,1,1,1,100,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
复制代码 ForumChanSetting(5)缺省为0,好了你接着看就会笑了- OrderNo=Request("outtradeno")
- Set Rs = DvbbsExecute("Select * From [DvChanOrders] Where OIsSuc=3 And OPayCode='"&OrderNo&"'")
复制代码 直接把获取的OrderNo放到sql里面去了。
回顾一下DVbbs80的Userpayasp同样一个函数看代码:- Sub AliPayReturn()
- If DvbbsForumChanSetting(5) <> "0" Then
- AliPayReturnOld()
- Else
- ResponseClear
- Dim Rs,OrderNo,EnCodeStr,UserInMoney
- OrderNo = DvbbsCheckStr(Request("orderno"))
- Set Rs = DvbbsExecute("Select * From DvChanOrders Where OIsSuc=0 And OPayCode = '"&OrderNo&"'")
- If RsEof And RsBof Then
- ResponseWrite "N"
复制代码 |
|