% Dvbbs.stats="购买论坛点券" Dvbbs.LoadTemplates("") Dvbbs.nav() Dvbbs.Head_var 0,0,"用户控制面板","usermanager.asp" 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 If Dvbbs.userid=0 Then Dvbbs.AddErrCode(6):Dvbbs.Showerr() Dvbbs.TrueCheckUserLogin() 'If (Dvbbs.Forum_ChanSetting(13)="1" And Dvbbs.Forum_ChanSetting(0)="1") And Dvbbs.Forum_ChanSetting(3)="0" Then ' Response.redirect "showerr.asp?ErrCodes=
<%UserInfo()%> | <% Select Case Request.QueryString("action") Case "dsms" DSms() Case "Re_Sms" Re_Sms() Case "inmoney" inmoney() Case "alipay" AliPay() Case "alipay_1" AliPay_1() Case "alipay_return" AliPay_Return() Case "UserCenter" UserCenter() Case "UserToolsLog_List" UserToolsLog_List() Case "PayList" PayList() Case Else SmsPayMain() End Select %> |