📄 admin_vipboard.asp
字号:
'校验成功，更新版面数据
Set Rs=Dvbbs.Execute("Select Board_Setting from dv_Board where BoardID="&Dvbbs.BoardID)
vipboardsetting=split(rs("Board_Setting"),",")
For i=0 to UBound(vipboardsetting)
If i=0 Then
vipboardslist=vipboardsetting(i)
Else
'认证论坛
If i=2 Then
vipboardslist=vipboardslist & ",1"
'积分
ElseIf i=20 Then
vipboardslist=vipboardslist & "," & vipintegral
'时间
ElseIf i=46 Then
vipboardslist=vipboardslist & "," & vipusetime
'标识
Elseif i=47 Then
vipboardslist=vipboardslist & "," & Session("NowStr")
Else
vipboardslist=vipboardslist & "," & vipboardsetting(i)
End If
End If
Next
Set Rs = Nothing
Dvbbs.Execute("update dv_Board Set Board_Setting='"&vipboardslist&"' Where BoardId="&Dvbbs.BoardID)
Dvbbs.ReloadBoardInfo(Dvbbs.BoardID)
Response.Write "<li>您的VIP论坛已经成功提交申请。"
Else
Errmsg=ErrMsg + "<BR><li>非法的提交过程，"&errmessage&"。"
dvbbs_error()
End If
Case 1001
Errmsg=ErrMsg + "<BR><li>VIP没有审核通过，"&errmessage&"。"
dvbbs_error()
Case 1002
Errmsg=ErrMsg + "<BR><li>用户积分不够，"&errmessage&"。"
dvbbs_error()
Case 1004
Errmsg=ErrMsg + "<BR><li>论坛数据不合法，"&errmessage&"。"
dvbbs_error()
Case 1005
Errmsg=ErrMsg + "<BR><li>论坛ID不存在，"&errmessage&"。"
dvbbs_error()
Case 1007
Errmsg=ErrMsg + "<BR><li>VIP论坛已经申请正处于使用状态，"&errmessage&"。"
dvbbs_error()
Case 1008
Errmsg=ErrMsg + "<BR><li>不是有效的论坛，"&errmessage&"。"
dvbbs_error()
Case 1009
Errmsg=ErrMsg + "<BR><li>VIP论坛申请失败，"&errmessage&"。"
dvbbs_error()
Case 1010
Errmsg=ErrMsg + "<BR><li>数据操作失败，"&errmessage&"。"
dvbbs_error()
Case 1011
Errmsg=ErrMsg + "<BR><li>不明原因与管理员联系，"&errmessage&"。"
dvbbs_error()
Case 1012
Errmsg=ErrMsg + "<BR><li>积分超过上限，"&errmessage&"。"
dvbbs_error()
Case 1013
Errmsg=ErrMsg + "<BR><li>提供的挑战随机数是空，"&errmessage&"。"
dvbbs_error()
Case 1014
Set Rs=Dvbbs.Execute("Select Board_Setting from dv_Board where BoardID="&Dvbbs.BoardID)
vipboardsetting=rs("Board_Setting")
vipboardsetting=split(vipboardsetting,",")
For i=0 to UBound(vipboardsetting)
If i=0 Then
vipboardslist=vipboardsetting(i)
Else
'认证论坛
If i=2 Then
vipboardslist=vipboardslist & ",0"
'积分
ElseIf i=20 Then
vipboardslist=vipboardslist & "," & vipintegral
'时间
ElseIf i=46 Then
vipboardslist=vipboardslist & "," & vipusetime
Else
vipboardslist=vipboardslist & "," & vipboardsetting(i)
End If
End If
Next
Set rs=Nothing
Dvbbs.Execute("update dv_Board Set Board_Setting='"&vipboardslist&"' Where BoardId="&Dvbbs.BoardID)
Dvbbs.ReloadBoardInfo(Dvbbs.BoardID)
Errmsg=ErrMsg + "<BR><li>你已经申请过VIP论坛,但是VIP论坛没有被激活，请等待。"
dvbbs_error()
Case Else
Errmsg=ErrMsg + "<BR><li>非法的提交过程，"&errmessage&"。"
dvbbs_error()
End Select
Response.Write "</td></tr>"
Response.Write "</table>"
End Sub
Sub result1()
Dim Sv
Response.Write "<br>"
Response.Write "<table cellspacing=""1"" cellpadding=""0"" border=""0"" align=""center"" width="""&Dvbbs.mainsetting(0)&""" class=""forumRowHighlight"">"
Response.Write "<tr><th height=""25"" colspan=""2"">"
Response.Write "VIP论坛申请返回信息"
Response.Write "</td></tr>"
'Response.Write "<tr>"
'For Each Sv in Request.form
' Response.Write "<tr><td class=""forumRowHighlight"" height=""25"" align=""right"" width=""30%"">"
' Response.Write sv & "</td><td class=""forumRowHighlight"" height=""25"" align=""left"" width=""70%"">"&Request.form(Sv)
' Response.Write "</td></tr>"
'Next
Response.Write "<tr><td class=""forumRowHighlight"" height=""25"" align=""left"" width=""100%"" colspan=""2"">"
Dim errcode,errmessage,retokerWord,challengword,challengeWord_key
errcode=Trim(Request("errcode"))
errmessage=Trim(Request("errmessage"))
retokerWord=Trim(Request("tokenword"))
challengword=Trim(Request("challengword"))
Dim vipboardsetting,vipboardslist,vipintegral,vipusetime
vipusetime = Session("vipusetime")
vipintegral=Session("vipintegral")
Select Case errcode
Case 1000
challengeWord_key=session("challengeWord_key")
If challengeWord_key=retokerWord Then
'校验成功，更新版面数据
Set Rs=Dvbbs.Execute("Select Board_Setting from dv_Board where BoardID="&Dvbbs.BoardID)
vipboardsetting=split(rs("Board_Setting"),",")
For i=0 to UBound(vipboardsetting)
If i=0 Then
vipboardslist=vipboardsetting(i)
Else
'认证论坛
If i=2 Then
vipboardslist=vipboardslist & ",1"
'标识
Elseif i=47 Then
vipboardslist=vipboardslist & "," & Session("NowStr")
Else
vipboardslist=vipboardslist & "," & vipboardsetting(i)
End If
End If
Next
Set Rs = Nothing
Dvbbs.Execute("update dv_Board Set Board_Setting='"&vipboardslist&"' Where BoardId="&Dvbbs.BoardID)
Dvbbs.ReloadBoardInfo(Dvbbs.BoardID)
Response.Write "<li>您的VIP论坛已经成功提交申请。"
Else
Errmsg=ErrMsg + "<BR><li>非法的提交过程。"
dvbbs_error()
End If
Case 1001
Errmsg=ErrMsg + "<BR><li>VIP没有审核通过。"
dvbbs_error()
Case 1002
Errmsg=ErrMsg + "<BR><li>用户积分不够。"
dvbbs_error()
Case 1004
Errmsg=ErrMsg + "<BR><li>论坛数据不合法"
dvbbs_error()
Case 1005
Errmsg=ErrMsg + "<BR><li>论坛ID不存在"
dvbbs_error()
Case 1007
Errmsg=ErrMsg + "<BR><li>VIP论坛已经申请正处于使用状态"
dvbbs_error()
Case 1008
Errmsg=ErrMsg + "<BR><li>不是有效的论坛"
dvbbs_error()
Case 1009
Errmsg=ErrMsg + "<BR><li>VIP论坛申请失败"
dvbbs_error()
Case 1010
Errmsg=ErrMsg + "<BR><li>数据操作失败"
dvbbs_error()
Case 1011
Errmsg=ErrMsg + "<BR><li>不明原因与管理员联系"
dvbbs_error()
Case 1012
Errmsg=ErrMsg + "<BR><li>积分超过上限"
dvbbs_error()
Case 1013
Errmsg=ErrMsg + "<BR><li>提供的挑战随机数是空"
dvbbs_error()
Case 1014
Set Rs=Dvbbs.Execute("Select Board_Setting from dv_Board where BoardID="&Dvbbs.BoardID)
vipboardsetting=rs("Board_Setting")
vipboardsetting=split(vipboardsetting,",")
For i=0 to UBound(vipboardsetting)
If i=0 Then
vipboardslist=vipboardsetting(i)
Else
'认证论坛
If i=2 Then
vipboardslist=vipboardslist & ",0"
'积分
ElseIf i=20 Then
vipboardslist=vipboardslist & "," & vipintegral
'时间
ElseIf i=46 Then
vipboardslist=vipboardslist & "," & vipusetime
Else
vipboardslist=vipboardslist & "," & vipboardsetting(i)
End If
End If
Next
Set rs=Nothing
Dvbbs.Execute("update dv_Board Set Board_Setting='"&vipboardslist&"' Where BoardId="&Dvbbs.BoardID)
Dvbbs.ReloadBoardInfo(Dvbbs.BoardID)
Errmsg=ErrMsg + "<BR><li>你已经申请过VIP论坛,但是VIP论坛没有被激活，请等待。"
dvbbs_error()
Case Else
Errmsg=ErrMsg + "<BR><li>非法的提交过程。"
dvbbs_error()
End Select
Response.Write "</td></tr>"
Response.Write "</table>"
End Sub
Sub showvipuser()'查看版面VIP用户
If Dvbbs.BoardID=0 Then
Errmsg=ErrMsg + "<BR><li>错误的板面参数。"
dvbbs_error()
End If
Dim Rs,SQL
dim currentPage,page_count,totalrec,Pcount,endpage,i
currentPage=request("page")
If currentpage="" or Not IsNumeric(currentpage) Then
currentpage=1
Else
currentpage=CLng(currentpage)
End If
Set Rs=server.createobject("adodb.recordset")
SQL="Select * from [DV_ChanOrders] where O_type=2 and O_BoardID="&Dvbbs.BoardID&" and O_issuc=1"
Rs.Open SQL,Conn,1,1
Response.Write "<br>"
Response.Write "<table cellspacing=""1"" cellpadding=""0"" border=""0"" align=""center"" width="""&Dvbbs.mainsetting(0)&""" class=""forumRowHighlight"">"
Response.Write "<tr><th height=""25"" colspan=""2"">"
Response.Write "VIP论坛:"&Dvbbs.BoardType&"用户列表"
Response.Write "</td></tr>"
If Not (Rs.eof And Rs.BOF) Then
rs.PageSize = Dvbbs.Forum_Setting(11)
rs.AbsolutePage=currentpage
page_count=0
totalrec=Rs.RecordCount
Response.Write "<tr>"
Response.Write "<td class=""forumRowHighlight"" height=""25"" align=""center"" width=""30%"">"
Response.Write "<b>用户名</b>"
Response.Write "</td>"
Response.Write "<td class=""forumRowHighlight"" height=""25"" align=""left"" width=""30%"">"
Response.Write "<b>所支付的魔力晶球</b>"
Response.Write "</td>"
Response.Write "</tr>"
Do While Not Rs.EOF
Response.Write "<tr>"
Response.Write "<td class=""forumRowHighlight"" height=""25"" align=""center"" width=""30%"">"
Response.Write Rs("O_Username")
Response.Write "</td>"
Response.Write "<td class=""forumRowHighlight"" height=""25"" align=""left"" width=""30%"">"
Response.Write Rs("O_PayMoney")
Response.Write "</td>"
Response.Write "</tr>"
Rs.MoveNext
Loop
If totalrec mod Dvbbs.Forum_Setting(11)=0 Then
Pcount= totalrec \ Dvbbs.Forum_Setting(11)
Else
Pcount= totalrec \ Dvbbs.Forum_Setting(11)+1
End If
Response.Write "<tr><td class=""forumRowHighlight"" height=""25"" align=""left"">"
Response.Write "页次：<b>"¤tpage&"</b>/<b>"&Pcount&"</b>页"
Response.Write " 每页<b>"&Dvbbs.Forum_Setting(11)&"</b> 总数<b>"&totalrec&"</b></td>"
Response.Write "<td Class=""forumRowHighlight"" valign=middle nowrap align=right>分页："
If currentpage > 4 Then
Response.Write "<a href=""?page=1&action="&request("action")&""">[1]</a> ..."
End If
If Pcount>currentpage+3 Then
endpage=currentpage+3
Else
endpage=Pcount
End If
for i=currentpage-3 to endpage
If Not i<1 Then
If i = CLng(currentpage) Then
Response.Write " <font color="&Dvbbs.mainsetting(1)&">["&i&"]</font>"
Else
Response.Write " <a href=""?page="&i&"&action="&request("action")&""">["&i&"]</a>"
End If
End If
Next
If currentpage+3 < Pcount Then
Response.Write "... <a href=""?page="&Pcount&"&action="&request("action")&""">["&Pcount&"]</a>"
End If
Response.Write "</td></tr>"
Else
Response.Write "<tr><td class=""forumRowHighlight"" height=""25"" colspan=""2"" align=""center"">"
Response.Write "本论坛尚无VIP用户。"
Response.Write "</td></tr>"
End If
Response.Write "<tr><td class=""forumHeaderBackgroundAlternate"" height=""25"" colspan=""2"" align=""center"">"
Response.Write "</td></tr>"
Response.Write "</table>"
End Sub
Footer
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -