<%@language=vbscript codepage=936 %> <% option explicit response.buffer=true Const PurviewLevel=2 Const CheckChannelID=2 Const PurviewLevel_Article=3 %> <% dim ArticleID,sql,rsArticle,FoundErr,ErrMsg,PurviewChecked dim Author,AuthorName,AuthorEmail,CopyFrom,CopyFromName,CopyFromUrl dim ClassID,tClass,ClassName,RootID,ParentID,Depth,ParentPath,ClassMaster dim SkinID,LayoutID,SkinCount,LayoutCount,BrowsePurview,AddPurview ArticleID=trim(request("ArticleID")) FoundErr=False PurviewChecked=False if ArticleID="" then FoundErr=True ErrMsg=ErrMsg & "
  • 请指定要修改的文章ID
  • " call WriteErrMsg() call CloseConn() response.end else ArticleID=Clng(ArticleID) end if sql="select * from article where ArticleID=" & ArticleID & "" Set rsArticle= Server.CreateObject("ADODB.Recordset") rsArticle.open sql,conn,1,1 if rsArticle.bof and rsArticle.eof then FoundErr=True ErrMsg=ErrMsg & "
  • 找不到文章
  • " else ClassID=rsArticle("ClassID") set tClass=conn.execute("select ClassName,RootID,ParentID,Depth,ParentPath,ClassMaster From ArticleClass where ClassID=" & ClassID) if tClass.bof and tClass.eof then founderr=True ErrMsg=ErrMsg & "
  • 找不到指定的栏目
  • " else ClassName=tClass(0) RootID=tClass(1) ParentID=tClass(2) Depth=tClass(3) ParentPath=tClass(4) ClassMaster=tClass(5) end if if rsArticle("Editor")=AdminName and rsArticle("Passed")=False then PurviewChecked=True else if AdminPurview=1 or AdminPurview_Article<=2 then PurviewChecked=True else PurviewChecked=CheckClassMaster(ClassMaster,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 if PurviewChecked=False then FoundErr=True ErrMsg=ErrMsg & "
  • 对不起,您的权限不够,不能修改此文!
  • " end if end if end if if FoundErr=True then call WriteErrMsg() else Author=rsArticle("Author") CopyFrom=rsarticle("CopyFrom") if instr(Author,"|")>0 then AuthorName=left(Author,instr(Author,"|")-1) AuthorEmail=right(Author,len(Author)-instr(Author,"|")) else AuthorName=Author AuthorEmail="" end if if instr(CopyFrom,"|")>0 then CopyFromName=left(CopyFrom,instr(CopyFrom,"|")-1) CopyFromUrl=right(CopyFrom,len(CopyFrom)-instr(CopyFrom,"|")) else CopyFromName=CopyFrom CopyFromUrl="" end if %> 修改文章
    修 改 文 章
    <%if AdminPurview=1 or AdminPurview_Article<=2 then%> <%end if%> <%if AdminPurview=1 or AdminPurview_Article<=2 then%> <%end if%>
    所属栏目:
    <% if AdminPurview=1 or AdminPurview_Article<=2 then response.write "" response.write "注意:1、不能指定为含有子栏目的栏目,或者外部栏目" else call Admin_ShowPath2(ParentPath,ClassName,Depth) response.write "" end if %>
    所属专题: <% if AdminPurview=1 or AdminPurview_Article<=2 then call Admin_ShowSpecial_Option(1,rsArticle("SpecialID")) else if rsArticle("SpecialID")>0 then dim rsSpecial set rsSpecial=conn.execute("select * from Special where SpecialID=" & rsArticle("SpecialID")) if rsSpecial.bof and rsSpecial.eof then response.write "找不到所属专题!可能所属专题已经被删除!" else response.write rsSpecial("SpecialName") end if set rsSpecial=nothing end if response.write "" end if%>
    文章标题: " size="50" maxlength="255"> *
    关键字: " size="50" maxlength="255"> *
    用来查找相关文章,可输入多个关键字,中间用“|”分开。不能出现"'*?()等字符。
    作者: 姓名:     Email:
    原出处: 名称:     地 址:

    文章内容:

    · 如果是从其它网站上复制内容,并且内容中包含有图片,本系统保存修改结果时将把非本站图片复制到本站服务器上,系统会因复制图片的大小而影响速度,请稍候(此功能需要服务器安装了IE5.5以上版本才有效)。

    · 换行请按Shift+Enter

    · 另起一段请按Enter

    内容分页方式:     注:手动分页符标记为“[NextPage]”,注意大小写
      自动分页时的每页大约字符数(包含HTML标记): " size="8" maxlength="8">
    文章阅读等级:    只有具有相应权限的人才能阅读此文章。
    文章阅读点数: " size="5" maxlength="3">      如果大于0,则用户阅读此文章时将消耗相应点数。(对游客和管理员无效)
    包含图片: > 是(如果选中的话会在标题前面显示[图文])
    首页图片: " size="56" maxlength="200"> 用于在首页的图片文章处显示
    直接从上传图片中选择: ">
    文章性质: > 固顶文章     热点文章     > 推荐文章    文章评分等级:
    点击数: " size="10" maxlength="10">   这功能是提供给管理员作弊用的。不过尽量不要用呀!^_^
    录入时间: " maxlength="50"> 时间格式为“年-月-日 时:分:秒”,如:2003-5-12 12:32:47
    配色模板:  相关模板中包含CSS、颜色、图片等信息
    版面设计模板:  相关模板中包含了版面设计的版式等信息
    已通过审核: > 是(如果选中的话将直接发布,否则审核后才能发布。)

    ">  

    <% end if rsArticle.close set rsArticle=nothing call CloseConn() %>