<%@language=vbscript codepage=936 %> <% option explicit response.buffer=true Const PurviewLevel=2 Const CheckChannelID=2 Const PurviewLevel_Article=3 %> <% dim strFileName,FileName const MaxPerPage=20 dim totalPut,CurrentPage,TotalPages dim i,j dim keyword,strField dim sql,rsArticleList dim ClassID dim PurviewChecked dim strAdmin,arrAdmin dim tClass,ClassName,RootID,ParentID,Depth,ParentPath,Child,ChildID,tID,tChild,ClassMaster dim SkinID,LayoutID,BrowsePurview,AddPurview dim ManageType ManageType=trim(request("ManageType")) PurviewChecked=false FileName="Admin_ArticleManage.asp" ClassID=Trim(request("ClassID")) keyword=trim(request("keyword")) if keyword<>"" then keyword=ReplaceBadChar(keyword) end if strField=trim(request("Field")) if ClassID="" then ClassID=0 if strField="" and AdminPurview=2 and AdminPurview_Article=3 and ManageType<>"MyArticle" then set tClass=conn.execute("select ClassName,RootID,ParentID,Depth,ParentPath,Child,ClassMaster,ClassID From ArticleClass where ClassMaster like '%" & AdminName & "%'") do while not tClass.eof if CheckClassMaster(tClass(6),AdminName)=true then ClassName=tClass(0) RootID=tClass(1) ParentID=tClass(2) Depth=tClass(3) ParentPath=tClass(4) Child=tClass(5) ClassMaster=tClass(6) ClassID=tClass(7) PurviewChecked=True exit do end if tClass.movenext loop end if else ClassID=CLng(ClassID) end if if ClassID>0 and PurviewChecked=False then set tClass=conn.execute("select ClassName,RootID,ParentID,Depth,ParentPath,Child,ClassMaster From ArticleClass where ClassID=" & ClassID) if tClass.bof and tClass.eof then founderr=True ErrMsg=ErrMsg & "
  • 找不到指定的栏目
  • " Call WriteErrMsg() response.end else ClassName=tClass(0) RootID=tClass(1) ParentID=tClass(2) Depth=tClass(3) ParentPath=tClass(4) Child=tClass(5) ClassMaster=tClass(6) PurviewChecked=CheckClassMaster(tClass(6),AdminName) if PurviewChecked=False and ParentID>0 then set tClass=conn.execute("select ClassMaster from ArticleClass where ClassID in (" & ParentPath & ")") do while not tClass.eof PurviewChecked=CheckClassMaster(tClass(0),AdminName) if PurviewChecked=True then exit do tClass.movenext loop end if end if end if if request("page")<>"" then currentPage=cint(request("page")) else currentPage=1 end if if ManageType="MyArticle" then FileName=FileName & "?ManageType=" & ManageType end if strFileName=JoinChar(FileName) & "ClassID=" & ClassID & "&strField=" & strField & "&keyword=" & keyword %> 文章管理
    文 章 管 理
    管理导航: 文章管理首页 | 添加文章(简洁模式 | 高级模式) | 审核文章 <%if false then'if AdminPurview=1 or AdminPurview_Article<=2 then %> | 专题文章管理<%end if%> <%if AdminPurview=1 or AdminPurview_Article=1 then %> | 文章回收站管理 | 文章评论管理<%end if%>

    <%call Admin_ShowRootClass()%>

    <%call Admin_ShowPath("文章管理")%>
    <% sql="select A.ArticleID,A.ClassID,C.ClassName,A.Title,A.Key,A.Author,A.CopyFrom,A.UpdateTime,A.Editor," sql=sql & "A.Hits,A.OnTop,A.Hot,A.Elite,A.Passed,A.IncludePic,A.Stars,A.PaginationType,A.ReadLevel,A.ReadPoint from Article A" sql=sql & " inner join ArticleClass C on A.ClassID=C.ClassID where A.Deleted=False" if ClassID>0 then if Child>0 then ChildID="" set tClass=conn.execute("select ClassID from ArticleClass where ParentID=" & ClassID & " or ParentPath like '" & ParentPath & "," & ClassID & ",%'") do while not tClass.eof if ChildID="" then ChildID=tClass(0) else ChildID=ChildID & "," & tClass(0) end if tClass.movenext loop sql=sql & " and A.ClassID in (" & ChildID & ")" else sql=sql & " and A.ClassID=" & ClassID end if end if if ManageType="MyArticle" then sql=sql & " and A.Editor='" & AdminName & "' " else if keyword<>"" then select case strField case "Title" sql=sql & " and A.Title like '%" & keyword & "%' " case "Content" sql=sql & " and A.Content like '%" & keyword & "%' " case "Author" sql=sql & " and A.Author like '%" & keyword & "%' " case "Editor" sql=sql & " and A.Editor like '%" & keyword & "%' " case else sql=sql & " and A.Title like '%" & keyword & "%' " end select end if end if sql=sql & " order by A.ArticleID desc" Set rsArticleList= Server.CreateObject("ADODB.Recordset") rsArticleList.open sql,conn,1,1 if rsArticleList.eof and rsArticleList.bof then totalPut=0 if Child=0 then response.write "


    没有任何文章!添加文章

    " else response.write "


    此栏目的下一级子栏目中没有任何文章!添加文章

    " end if else totalPut=rsArticleList.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage strFileName,totalput,MaxPerPage,true,true,"篇文章" else if (currentPage-1)*MaxPerPage
    <%do while not rsArticleList.eof%> <% ArticleNum=ArticleNum+1 if ArticleNum>=MaxPerPage then exit do rsArticleList.movenext loop %>
    选中 ID 文章标题 录入 点击数 文章属性 已审核 操作
    <%=rsArticleList("articleid")%> <% if rsArticleList("ClassID")<>ClassID then response.write "[" & rsArticleList("ClassName") & "] " end if if rsArticleList("IncludePic")=true then response.write "[图文]" end if response.write "" & rsArticleList("title") & "" %> <% response.write "" & rsArticleList("Editor") & "" %> <%= rsArticleList("Hits") %> <% if rsArticleList("OnTop")=true then response.Write " " else response.write "   " end if if rsArticleList("Hits")>=HitsOfHot then response.write "热 " else response.write "   " end if if rsArticleList("Elite")=true then response.write "荐" else response.write "  " end if %> <% if rsArticleList("Passed")=true then response.write "是" else response.write "否" end if%> <% if AdminPurview=1 or AdminPurview_Article<=2 or PurviewChecked=true or AdminName=rsArticleList("Editor") then response.write "修改 " response.write "删除 " end if if AdminPurview=1 or AdminPurview_Article<=2 then response.write "移动 " end if if AdminPurview=1 or AdminPurview_Article<=2 or PurviewChecked=true then if rsArticleList("OnTop")=False then response.write "固顶 " else response.write "解固 " end if if rsArticleList("Elite")=False then response.write "设为推荐" else response.write "取消推荐" end if end if %>
    添加文章
    选中本页显示的所有文章 =3 then response.write "disabled"%>> <% if AdminPurview=1 or AdminPurview_Article<=2 then %>     <%end if%>
    <% end sub if ClassID>0 and Child>0 then %>
    【<%response.write "" & ClassName & ""%>】子栏目导航: <%call Admin_ShowChild()%>
    <% end if %>
    文章搜索: <%call Admin_ShowSearchForm(FileName,2)%>
    <% call CloseConn() %>