<% if Request.Cookies("username")=empty then error("
  • 您还未登录社区") if membercode < 5 then error("
  • 您没有权限进入后台") if Request("menu")="out" then session("pass")="" response.redirect ""&Request.ServerVariables("script_name")&"/../" end if %> <%=clubname%>后台管理 - Powered By BBSxp <% select case Request("menu") case "" index case "left" left case "top" top2 case "login" login case "pass" pass end select sub top2 %>
    第五代 BBS 系统 -- BBSxp 安全 快速 方便 可靠 可升级
    <% end sub sub pass session("pass")=md5(""&Request("pass")&"") if adminpassword<>session("pass") then error2("社区管理密码错误") log("登录后台管理") Dim theInstalledObjects(18) 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.Message" theInstalledObjects(14) = "CDONTS.NewMail" theInstalledObjects(15) = "Persits.MailSender" theInstalledObjects(16) = "LyfUpload.UploadFile" theInstalledObjects(17) = "Persits.Upload.1" theInstalledObjects(18) = "w3.upload" %>
    论坛信息统计
    系统信息：论坛数 <%=conn.execute("Select count(id)from bbsconfig")(0)%> 主题数 <%=Application(CacheName&"CountForum")%> 用户数 <%=Application(CacheName&"CountUser")%>
    服务器域名：<%=Request.ServerVariables("server_name")%> / <%=Request.ServerVariables("LOCAL_ADDR")%> 脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
    服务器软件的名称：<%=Request.ServerVariables("SERVER_SOFTWARE")%> ACCESS 数据库路径：<%=datapath%><%=datafile%>
    FSO 文本读写：<%If Not IsObjInstalled(theInstalledObjects(9)) Then%>×<%else%>√<%end if%> SA-FileUp 文件上传：<%If Not IsObjInstalled(theInstalledObjects(11)) Then%>×<%else%>√<%end if%>
    Jmail 组件支持：<%If Not IsObjInstalled(theInstalledObjects(13)) Then%>×<%else%>√<%end if%> CDONTS 组件支持：<%If Not IsObjInstalled(theInstalledObjects(14)) Then%>×<%else%>√<%end if%>


    管理快捷方式
    快速查找用户
    快捷功能链接 建立论坛数据 | 管理论坛资料 | 更新论坛资料

    BBSxp论坛
    产品开发 Yuzi工作室
    产品负责 Yuzi网络有限公司
    联系方法 电话：0595-22205408 咨询部：0595-22205408-7
    传真：0595-22205409 技术部：0595-22205408-2
    网址：http://www.bbsxp.com
    地址：中国 福建省 泉州市 温陵南路 商业城 8号楼 2层
    插件开发 BBSxp插件组织（BBSxp Plus Organization）
    <% conn.execute("delete from log where logtime<"&SqlNowString&"-7") htmlend end sub sub login %>


    登录社区管理
    请输入管理密码:
    　
    <% htmlend end sub sub left %>
    <%=Request.Cookies("username")%> | 退出



    版本：BBSxp 2005

    版权所有：
    Yuzi工作室(Yuzi.Net)

    <% end sub sub index %>













    3







    屏幕切换
    <% 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 %>