<% Dvbbs.Stats="油画论坛管理控制面板" Select Case Request("action") Case "admin_left" Call admin_left() Case "admin_main" Call admin_main() Case "admin_top" Call admin_top() Case "xml" Call Showxml() Case Else Call Main() End Select Sub Showxml() Dim XMLDOM Set XMLDOM=Application(Dvbbs.CacheName&"_sBoradlist").cloneNode(True) Dim node Response.Clear Response.CharSet="gb2312" Response.ContentType="text/xml" Response.Write ""&vbNewLine Response.Write XMLDom.documentElement.XML Set XMLDOM=Nothing End Sub Sub Main() If Not Dvbbs.Master Or Session("flag")="" Then Response.Redirect "../admin_login.asp" Else %> <%=Dvbbs.Forum_info(0)%>--控制面板 <body></body> <% End If End Sub Sub admin_top() %> top <%=Replace(template.html(1),"{$path}","images/")%>
<% end sub sub admin_left() %> <%=dvbbs.Forum_info(0)%>--管理页面 <% REM 管理栏目设置 dim menu(8,10),trs,k i=0 k=0 set rs=Dvbbs.Execute("select * from dv_help where h_type=1 and h_parentid=0 and not h_stype=1 order by h_id") do while not rs.eof menu(i,k)=rs("h_title") 'response.write "menu("&i&","&k&")="""&rs("h_title")&"""" 'response.write chr(10) k=k+1 set trs=Dvbbs.Execute("select * from dv_help where h_type=1 and h_parentid="&rs(0)&" and not h_stype=1 order by h_id") do while not trs.eof menu(i,k)="点击查看该项目的帮助" & trs("h_title") 'response.write "menu("&i&","&k&")="""&trs("h_title")&"""" 'response.write chr(10) k=k+1 trs.movenext loop trs.close set trs=nothing i=i+1 k=0 rs.movenext loop rs.close set rs=nothing 'response.end %>
  <% dim j,i dim tmpmenu dim menuname dim menurl Dim TempStr,Menu_1,Menu_2 TempStr = template.html(0) Menu_1 = Split(TempStr,"||") for i=0 to ubound(Menu_1) %> <% Menu_2 = Split(Menu_1(i),"@@") For j = 0 To Ubound(Menu_2) If j=0 Then %>
<%next%>     <% end sub sub admin_main() If Not Dvbbs.Master Or Session("flag")="" Then Response.Redirect "../showerr.asp?action=OtherErr&ErrCodes=
  • 本页面为管理员专用,请登录后进入。" Else Dim theInstalledObjects(20) theInstalledObjects(0) = "MSWC.AdRotator" theInstalledObjects(1) = "MSWC.BrowserType" theInstalledObjects(2) = "MSWC.NextLink" theInstalledObjects(3) = "MSWC.Tools" theInstalledObjects(4) = "MSWC.Status" theInstalledObjects(5) = "MSWC.Counters" theInstalledObjects(6) = "IISSample.ContentRotator" theInstalledObjects(7) = "IISSample.PageCounter" theInstalledObjects(8) = "MSWC.PermissionChecker" theInstalledObjects(9) = "Scripting.FileSystemObject" theInstalledObjects(10) = "adodb.connection" theInstalledObjects(11) = "SoftArtisans.FileUp" theInstalledObjects(12) = "SoftArtisans.FileManager" theInstalledObjects(13) = "JMail.SMTPMail" 'Jamil 4.2 theInstalledObjects(14) = "CDONTS.NewMail" theInstalledObjects(15) = "Persits.MailSender" theInstalledObjects(16) = "LyfUpload.UploadFile" theInstalledObjects(17) = "Persits.Upload.1" theInstalledObjects(18) = "JMail.Message" 'Jamil 4.3 theInstalledObjects(19) = "Persits.Upload" theInstalledObjects(20) = "SoftArtisans.FileUp" Head() %>
    论坛信息统计
    <% dim isaudituser set rs=Dvbbs.Execute("select count(*) from [dv_user] where usergroupid=5") isaudituser=rs(0) if isnull(isaudituser) then isaudituser=0 Dim BoardListNum set rs=dvbbs.execute("select count(*) from dv_board") BoardListNum=rs(0) If isnull(BoardListNum) then BoardListNum=0 set rs=Dvbbs.Execute("select * from dv_setup") if not rs.eof then %> 系统信息:论坛帖子数 <%=rs("Forum_PostNum")%> 主题数 <%=rs("Forum_topicnum")%> 用户数 <%=rs("Forum_usernum")%> 待审核用户数 <%=isaudituser%> 版面总数 <%=BoardListNum%> <% end if rs.close set rs=nothing %>
    由 xvcf.com 授权给 <%=dvbbs.Forum_info(0)%> 使用. <% If IsSqlDatabase=1 Then Response.Write "SQL数据库" Else Response.Write "Access数据库" End If Response.Write " Dvbbs " & Dvbbs.Forum_Version %>
    服务器类型:<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>) 脚本解释引擎:<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
    FSO文本读写:<%If Not IsObjInstalled(theInstalledObjects(9)) Then%>×<%else%><%end if%> <%If IsObjInstalled(theInstalledObjects(18)) Then%>Jmail4.3邮箱组件支持:<%else%>Jmail4.2组件支持:<%end if%> <%If IsObjInstalled(theInstalledObjects(18)) or IsObjInstalled(theInstalledObjects(13)) Then%> <%else%> × <%end if%>   >>查看更详细服务器信息检测
    网络支付和手机短信相关设置:主要用于论坛点券充值等相关导致论坛收益的服务,帐号为<%=Dvbbs.Forum_ChanSetting(4)%>
    数据定期备份:请注意做好定期数据备份,数据的定期备份可最大限度的保障您论坛数据的安全

    <% Dim Forum_Pack Set Rs=Dvbbs.Execute("Select Forum_Pack From Dv_Setup") Forum_Pack = Rs(0) Forum_Pack=Split(Forum_Pack,"|||") If UBound(Forum_Pack)<2 Then ReDim Forum_Pack(3) If Forum_Pack(0) = "1" Then %>
    论坛站长之家 | 论坛管理交流 | 论坛新手区 | 论坛技术区 | 论坛插件区 | 论坛风格区 | 我的问题 | 发表问题
    注意:完全使用本功能必须正确设置 官方自动通讯设置

    <% End If Rs.Close Set Rs=Nothing %>
    论坛管理小贴士
    用户组权限 油画论坛将注册用户分成不同的用户组,每个用户组可以拥有不同的论坛操作权限,用户等级结合到了用户组中,假如用户等级没有自定义权限,那么这个等级的权限就使用他所属的用户组权限,反之则拥有这个等级自己的权限。每个等级或者用户组所设定的权限都是是针对整个论坛的
    分版面权限 每个用户组或有自定义权限设置的等级,都可以设置其在论坛中各个版面拥有不同的权限,比如说您可以设置注册用户或者新手上路在版面A不能发贴可以浏览等等权限设置,极大的扩充了论坛权限的设置,从理论上来说可以分出很多个不同功能类型的论坛
    用户权限设定 每个用户都可以设置其在论坛中各个版面拥有不同的权限或者特殊的权限,比如说您可以设置用户A在版面A中拥有所有管理权限。对于上述三种权限需要注意的是其优先顺序为:用户权限设置(自定义) > 分版面权限设定(自定义) > 用户组权限设定(默认)
    对风格模板的管理 其中包含对论坛所有模板的管理,模板中论坛的基本CSS设置,论坛主风格的更改,论坛分页面风格的更改,图片的设置,语言包的设置,新建模板页面和模板,模板中新建不同的语言、图片、风格等模板元素等等功能,并且拥有模板的导入导出功能,从真正意义上实现了论坛风格的在线编辑和切换
    一句话贴士 ① 对于不同功能模块的页面,要仔细看页面中的说明,以免误操作
    ② 用户组及其扩展的权限设置,对论坛的各种设置有极大扩充性,要充分明白其优先和有效顺序
    ③ 添加论坛大分类的时候,别忘了回头看看该版面高级设置是否正确
    ④ 有问题请到油画论坛官方站点提问,有很多热心的朋友会帮忙,查看更多贴士请点击

    论坛管理快捷方式
    快速查找用户
    快捷功能链接 添加论坛类别 | 管理论坛版面 | 更新服务器缓存
    快速更新数据    

    <% footer end if end sub Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function %>