|
| 以下是引用片段: 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 |
| 以下是引用片段: 1,1,0,0,pay@aspsky.net,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 Forum_ChanSetting(5)缺省为0,好了你接着看就会笑了 Order_No=Request("out_trade_no") Set Rs = Dvbbs.Execute("Select * From [Dv_ChanOrders] Where O_IsSuc=3 And O_PayCode='"&Order_No&"'") |
| 以下是引用片段: 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" |



| 入侵88red系统的详细过程 | 04-07 |
| 对趋势科技等数万网站被攻击的分 | 03-21 |
| 凡人网络购物系统 V8.0 简体中文 | 03-18 |
| linux平台下渗透日本著名XXXXXX. | 03-18 |
| 搜索框所引起的XSS漏洞 | 03-05 |
| 跳转漏洞的利用 | 03-05 |
| 对复旦大学的一次漫长渗透 | 03-03 |
| .net一句话马以及dx论坛拿shell | 03-01 |
| php渗透入侵过程图文详解 | 03-01 |
| DJ网站的入侵详细过程 | 02-26 |
| BBSXP2008存在后台注射漏洞 | 02-19 |
| Discuz! 6 后台拿Shell的方法 | 02-17 |