<% Dvbbs.LoadTemplates("") If Dvbbs.UserID=0 Then Dvbbs.AddErrCode(24) Dvbbs.showerr() Else If Dvbbs.Master Then Response.redirect "index.asp?boardid="&Dvbbs.Boardid End If End If dvbbs.stats="交费进入认证论坛" Dvbbs.Nav() Dvbbs.Head_var 1,Application(Dvbbs.CacheName&"_boardlist").documentElement.selectSingleNode("board[@boardid='"&Dvbbs.BoardID&"']/@depth").text,"","" Dvbbs.Showerr() Select Case request("action") Case "subinfo" subinfo() Case Else Main() End Select Dvbbs.activeonline() Dvbbs.footer() Sub Main() Dim UseMondy,UseTicket UseMondy = Dvbbs.Board_Setting(62) UseTicket = Dvbbs.Board_Setting(63) If Dvbbs.VipGroupUser Then UseMondy = UseMondy * Dvbbs.Board_Setting(66) UseTicket = UseTicket * Dvbbs.Board_Setting(66) End If %>
付费进入认证论坛
访问该版面规则为:获得 <%=Dvbbs.Board_Setting(64)%> 个月的访问权限将花费您 <%=UseMondy%> 个金币 或 <%=UseTicket%> 张点券。
您目前共有 金币 <%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text%> 个 + 点券 <%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text%> 张 的货币单位可供支付 (兑换论坛金币 | 购买论坛点券 | 点播手机短信获奖论坛点券
购买操作说明
1、只需要金币购买的,则会扣除您相应的金币,不够则不能操作
2、只需要点券购买的,则会扣除您相应的点券,点券充值请看道具中心,不够则不能操作
3、金币和点券都能购买的,优先扣除相应的点券数,如果不够则从您的金币中扣除,如果两者均不够则不能操作
<%If Dvbbs.forum_setting(43)="1" Then%> 4、Vip用户只需花费 <%=Dvbbs.Board_Setting(62)*Dvbbs.Board_Setting(66)%> 个金币 或 <%=Dvbbs.Board_Setting(63)*Dvbbs.Board_Setting(66)%> 张点券 (现以升级成为VIP用户) <%End If%>
<% End Sub Sub Subinfo() Dim GetUserMoney,GetUserTicket,iUserInfo,ChkPoint GetUserMoney = 0 GetUserTicket = 0 GetUserMoney = Abs(Clng(Dvbbs.Board_Setting(62))) GetUserTicket = Abs(Clng(Dvbbs.Board_Setting(63))) ChkPoint = False If Dvbbs.VipGroupUser Then GetUserMoney =GetUserMoney * cCur(Dvbbs.Board_Setting(66)) GetUserTicket = GetUserTicket * cCur(Dvbbs.Board_Setting(66)) End If If CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text) < GetUserTicket Then Response.redirect "showerr.asp?ErrCodes=
  • 您的点券数目不够,不能购买进入论坛服务&action=OtherErr" ElseIf CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text) < GetUserMoney Then Response.redirect "showerr.asp?ErrCodes=
  • 您的金币数目不够,不能购买进入论坛服务&action=OtherErr" Else If GetUserTicket >0 Then If CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text)-GetUserTicket>=0 Then Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text = CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text) - GetUserTicket End If End If If GetUserMoney >0 Then If CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text)-GetUserMoney>=0 Then Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text = CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text) - GetUserMoney End If End If Add_SuperBoardUser(Dvbbs.MemberName) Dvbbs.Execute("Update Dv_User Set UserMoney = UserMoney - "&GetUserMoney&",UserTicket = UserTicket - "&GetUserTicket&" Where UserID=" & Dvbbs.UserID) %>
    付费进入版面操作成功
    您支付了 <%=GetUserMoney%> 个金币 或 <%=GetUserTicket%> 张点券,获得 <%=Dvbbs.BoardType%> 版面截止到 <%=DateAdd("m",1,Now())%> 的访问权限
  • 进入<%=Dvbbs.BoardType%>
  • <% End If End Sub Function Add_SuperBoardUser(UserName) Dim Rs,SuperBoardUser,SuperBoardUser_List,SuperBoardUser_List_A,i Dim BoardUser UserName = Replace(UserName,",","") If Not Application(Dvbbs.CacheName &"_boarddata_" & Dvbbs.Boardid).documentElement.selectSingleNode("boarddata/@boarduser") Is Nothing Then boarduser=Application(Dvbbs.CacheName &"_boarddata_" & Dvbbs.Boardid).documentElement.selectSingleNode("boarddata/@boarduser").text If BoardUser="" Then SuperBoardUser = UserName & "=" & Now() Else '清除该用户原购买信息 BoardUser=Split(BoardUser,",") For i=0 To Ubound(BoardUser) SuperBoardUser_List_A = Split(BoardUser(i),"=") If Trim(Lcase(SuperBoardUser_List_A(0))) <> Trim(Lcase(UserName)) Then If i=0 Then SuperBoardUser = BoardUser(i) Else SuperBoardUser = SuperBoardUser & "," & BoardUser(i) End If End If Next If SuperBoardUser<>"" Then SuperBoardUser = SuperBoardUser & "," & UserName & "=" & Now() Else SuperBoardUser = UserName & "=" & Now() End If End If Dvbbs.Execute("Update Dv_Board Set BoardUser='"&Replace(SuperBoardUser,"'","")&"' Where BoardID=" & Dvbbs.BoardID) Dvbbs.LoadBoardData Dvbbs.Boardid End Function %>