<% select case Request("action") case "top" call admin_top() case "left" call admin_left() case "main" call admin_main() case "state" If Application(cache_name_user&"_systemstate")<>"stop" Then Application(cache_name_user&"_systemstate")="stop" EventLog "临时关闭了本站",oblog.NowUrl&"?"&Request.QueryString Else Application(cache_name_user&"_systemstate")="run" EventLog "开启了本站",oblog.NowUrl&"?"&Request.QueryString End If Application(cache_name_user&"_systemnote")=Request.Form("systemnote") Response.Write "" case "enmod" Dim enStr enStr=OB_IIF(Request("encomment"),"0") enStr=enStr & "," & OB_IIF(Request("enargue"),"0") enStr=enStr & "," & OB_IIF(Request("enblog"),"0") enStr=enStr & "," & OB_IIF(Request("entb"),"0") Application(cache_name_user&"_systemenmod")=enStr EventLog "临时关闭（重新开启）了本站的部分功能",oblog.NowUrl&"?"&Request.QueryString Response.Write "" case else call main() end select sub main() %> oBlog--后台管理 <body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0"> <p>你的浏览器版本过低！！！本系统要求IE5及以上版本才能使用本系统。</p> </body> <% end sub sub admin_top() %> oBlog后台管理页面
修改密码 站点首页
<%end sub sub admin_left() %> oBlog--后台管理
<% '如果是SQL Server数据库则不再显示该节 If IS_SQLDATA=0 Then %>
<%End If%>
<% Response.Write("") end sub sub admin_main() %> oBlog--后台管理
系 统 状 态
当前系统版本   <%=ver%>
最新系统版本   
当前系统状态    <% Dim strSubmit If Application(cache_name_user&"_systemstate")="stop" Then Response.Write "关闭中" strSubmit="重新启动" Else Response.Write "正常运行中" strSubmit="关闭系统" End If %>
关闭时提示：
(系统处于关闭状态时,以管理员身份仍能完整访问)

部分功能暂时关闭(服务器或者IIS重启后功能会自动开启)
如果取消禁止则需要去除勾选重新确定
<% Dim enStr0,enStr1,enStr2,enStr3,enStr4 enStr0=Application(cache_name_user&"_systemenmod") If enStr0<>"" Then enStr0=Split(enStr0,",") If enStr0(0)="1" Then enStr1=" checked" If enStr0(1)="1" Then enStr2=" checked" If enStr0(2)="1" Then enStr3=" checked" If enStr0(3)="1" Then enStr4=" checked" End If %> >禁止回复与留言 >禁止发布日志 >禁止接收引用通告

oBlog 帮 助
1、将用户前台屏蔽以后此用户发布的所有文章(包括照片)都不会在首页被调用。
2、系统模板及用户模板的标记说明请点击这里。
3、将用户锁定以后，此用户的blog页面也将被屏蔽。
4、将IP屏蔽以后，此IP用户将不能登陆，且不能发表评论及留言。
5、将博客设置为推荐，必须在后台修改用户资料才能实现。
6、若上传文件不正常，请检查是否文件尺寸过大及服务器是否支持fso。
7、有任何问题，请咨询oBlog官方网站http://www.oBlog.cn。

oBlog开发
程序开发： 北京傲博致远计算机技术有限公司 威海研发中心
联系方式： 威海研发中心 网址：http://www.oblog.cn 邮箱：webmaster@oblog.cn
<% end sub %> <% dim Action,ParentID,i,FoundErr,ErrMsg,t,tName dim SkinCount,LayoutCount Action=Trim(Request("Action")) ParentID=Trim(Request("ParentID")) t=Trim(Request("t")) if ParentID="" then ParentID=0 else ParentID=CLng(ParentID) end if If t="1" Then tName="相册" Elseif t="2" then tName="群组" else t="0" tName="日志" End If %> <%=tName%>分类管理