| 以下是引用片段: 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" |



| Dvbbs8.1 0DAY(通杀access和mssq | 01-09 | |
| 辽宁文学艺术网的沦陷-eWebEdit | 01-09 | |
| 入侵网站拿下服务器的实战演示 | 01-09 | |
| 渗透入侵土耳其XXX网站!~ | 12-21 | |
| BBSGood.Speed Version 4.0注入漏 | 12-21 | |
| PHPWind超级漏洞简单用 | 12-14 | |
| 跨站入侵技术详解 | 12-05 | |
| 手工检测某天IT教育集团网站 | 11-29 | |
| 惊爆oblog4.6 0day | 11-10 | |
| 百度空间跨站攻击一例 | 11-10 | |
| 网软天下企业网站管理系统cookie | 11-06 | |
| 网趣购物系统XP 3.2注入漏洞 | 11-06 | |