修改文章

<%@language=vbscript codepage=936 %> <% option explicit response.buffer=true %> <% if CheckUserLogined()=False then response.Redirect "User_Login.asp" end if dim ArticleID,rs,sql,rsArticle,FoundErr,ErrMsg,PurviewChecked dim Author,AuthorName,AuthorEmail,CopyFrom,CopyFromName,CopyFromUrl ArticleID=trim(request("ArticleID")) FoundErr=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 if rsArticle("Editor")=request.Cookies("asp163")("UserName") then if rsArticle("Passed")=True then FoundErr=True ErrMsg=ErrMsg & "

文章已经被审核通过，你不能再进行修改！

" end if else FoundErr=True ErrMsg=ErrMsg & "

你不能修改其他人的文章！

" 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 dim ClassID,tClass,ClassName,RootID,ParentID,Depth,ParentPath ClassID=rsArticle("ClassID") set tClass=conn.execute("select ClassName,RootID,ParentID,Depth,ParentPath From ArticleClass where ClassID=" & ClassID) ClassName=tClass(0) RootID=tClass(1) ParentID=tClass(2) Depth=tClass(3) ParentPath=tClass(4) set tClass=nothing %> 修改文章

修改文章

<%if PurviewChecked=True then%> <%end if%>

所属栏目：	<%call Admin_ShowPath2(ParentPath,ClassName,Depth) response.write ""%>
所属专题：	<% if rsArticle("SpecialID")=0 then response.write " " else dim rsSpecial set rsSpecial=conn.execute("select Specialname from Special where SpecialID=" & rsArticle("SpecialID")) if rsSpecial.bof and rsSpecial.eof then response.write "找不到所属专题！可能所属专题已经被删除！" else response.write rsSpecial(0) end if set rsSpecial=nothing end if response.write "" %>
文章标题：	" size="50" maxlength="255"> *
关键字：	" size="50" maxlength="255"> * 用来查找相关文章，可输入多个关键字，中间用“\|”分开。不能出现"'*?()等字符。
作者：	姓名： Email：
原出处：	名称：地址：
文章内容：
内容分页方式：	注：手动分页符标记为“[NextPage]”，注意大小写
	自动分页时的每页大约字符数（包含HTML标记）： " size="8" maxlength="8">
包含图片：	> 是（如果选中的话会在标题前面显示[图文]）
首页图片：	" size="56" maxlength="200"> 用于在首页的图片文章处显示直接从上传图片中选择： ">

"> "> ">

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