%
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()
Dvbbs.PageEnd()
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
%>
<%
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
%>