1.增加了首页的右边栏:发布用户模块
在default.html里面增加了:
< div class="function" id="divAuthors"> < h3><#ZC_MSG011#><#ZC_MSG003#> < ul><#CACHE_INCLUDE_AUTHORS#>
并把admin那个用户屏蔽掉:修改FUNCTION/c_system_base.asp中的对应代码为
Set objRS=objConn.Execute("SELECT TOP 1 [mem_ID] FROM [blog_Member] WHERE [mem_ID]>1 ORDER BY [mem_ID] DESC") If (Not objRS.bof) And (Not objRS.eof) Then i=objRS("mem_ID") ReDim Users(i) End If objRS.Close Set objRS=Nothing Set objRS=objConn.Execute("SELECT [mem_ID],[mem_Name],[mem_Level],[mem_Password],[mem_Email],[mem_HomePage],[mem_PostLogs] FROM [blog_Member] WHERE [mem_ID]>1 ORDER BY [mem_ID] ASC")
2.修改了高级用户的权限使之可以阅读私人文章类别;
修改view.asp中的对应代码为:
If Article.Level=1 Then Call ShowError(9) If Article.Level=2 Then If Not ((Article.AuthorID=BlogUser.ID) Or CheckRights("FileMng")) Then Call ShowError(6) End If If Article.Export(ZC_DISPLAY_MODE_ALL)= True Then Article.template="SINGLE" Article.Build Response.Write Article.html End If