<%=rs("Title")%>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% option explicit response.buffer=true Const PurviewLevel=2 Const CheckChannelID=2 Const PurviewLevel_Article=3 %> <% dim ArticleID,sql,rs,FoundErr,ErrMsg,PurviewChecked,PurviewChecked2 dim ClassID,tClass,ClassName,RootID,ParentID,ParentPath,Depth,ClassMaster,ClassChecker ArticleID=trim(request("ArticleID")) FoundErr=False PurviewChecked=False PurviewChecked2=False call main() if FoundErr=True then WriteErrMsg() end if call CloseConn() sub main() if ArticleId="" then FoundErr=True ErrMsg=ErrMsg & "

参数不足

" exit sub else ArticleID=Clng(ArticleID) end if sql="select * from article where Deleted=False and ArticleID=" & ArticleID & "" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.bof and rs.eof then FoundErr=True ErrMsg=ErrMsg & "

找不到文章

" else ClassID=rs("ClassID") set tClass=conn.execute("select ClassName,RootID,ParentID,Depth,ParentPath,ClassMaster,ClassChecker 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) ClassChecker=tClass(6) end if set tClass=nothing end if if FoundErr=True then rs.close set rs=nothing exit sub end if 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 PurviewChecked2=CheckClassMaster(ClassChecker,AdminName) if PurviewChecked2=False and ParentID>0 then set tClass=conn.execute("select ClassMaster from ArticleClass where ClassID in (" & ParentPath & ")") do while not tClass.eof PurviewChecked2=CheckClassMaster(tClass(0),AdminName) if PurviewChecked2=True then exit do tClass.movenext loop end if end if %> <%=rs("Title")%>

<% response.write "您现在的位置：文章管理 >> " if ParentID>0 then dim sqlPath,rsPath sqlPath="select ClassID,ClassName From ArticleClass where ClassID in (" & ParentPath & ") order by Depth" set rsPath=server.createobject("adodb.recordset") rsPath.open sqlPath,conn,1,1 do while not rsPath.eof response.Write "" & rsPath(1) & " >> " rsPath.movenext loop rsPath.close set rsPath=nothing end if response.write "" & ClassName & " >> " response.write "" & rs("Title") & "" %>

<% if rs("OnTop")=true then response.Write("顶 ") else response.write(" ") end if if rs("Hits")>=HitsOfHot then response.write("热 ") else response.write(" ") end if if rs("Elite")=true then response.write("荐") else response.write(" ") end if %>

<%=rs("Title")%>

<% dim Author,CopyFrom Author=rs("Author") CopyFrom=rs("CopyFrom") response.write "作者：" if instr(Author,"|")>0 then response.write "" & left(Author,instr(Author,"|")-1) & "" else response.write Author end if response.write " 转贴自：" if instr(CopyFrom,"|")>0 then response.write "" & left(CopyFrom,instr(CopyFrom,"|")-1) & "" else response.write CopyFrom end if response.write " 点击数：" & rs("Hits") & " 文章录入：" & rs("Editor") & "" %>

<%=rs("Content")%>

上一篇文章： <% dim rsPrev sql="Select Top 1 ArticleID,Title From Article Where Deleted=False and ArticleID<" & rs("ArticleID") & " order by ArticleID desc" Set rsPrev= Server.CreateObject("ADODB.Recordset") rsPrev.open sql,conn,1,1 if rsPrev.Eof then response.write "没有了" else response.write ""&rsPrev("Title") & "" end if rsPrev.close set rsPrev=nothing %>

下一篇文章： <% dim rsNext sql="Select Top 1 ArticleID,Title From Article Where Deleted=False and ArticleID>" & rs("ArticleID") & " order by ArticleID asc" Set rsNext= Server.CreateObject("ADODB.Recordset") rsNext.open sql,conn,1,1 if rsNext.Eof then response.write "没有了" else response.write ""&rsNext("Title") & "" end if rsNext.close set rsNext=nothing %>

<% response.write "可用操作：" if (rs("Editor")=AdminName and rs("Passed")=False) or PurviewChecked=True then response.write "修改 " response.write "删除 " end if if AdminPurview=1 or AdminPurview_Article<=2 then response.write "移动 " end if if PurviewChecked2=True then if rs("Passed")=false then response.write "通过审核 " Else response.write "取消审核 " end if end if if PurviewChecked=True then if rs("OnTop")=false then response.write "固顶 " else response.write "解固 " end if if rs("Elite")=false then response.write "设为推荐" else response.write "取消推荐" end if end if %>

<% rs.close set rs=nothing %>

相关评论：
<% dim rsComment sql="select * from ArticleComment where ArticleID=" & ArticleID Set rsComment= Server.CreateObject("ADODB.Recordset") rsComment.open sql,conn,1,1 if rsComment.eof then response.write " 暂时没有任何人对本文章发表评论" else %> <% do while not rsComment.eof %> <%if rsComment("ReplyName")<>"" then%> <% end if rsComment.movenext loop %>

ID	内容	评论人	评论人IP	评论时间	操作
<%= rsComment("CommentID") %>	<% response.write "" & left(rsComment("Content"),25) & "" %>	<%= rsComment("UserName") %>	<%=rsComment("IP")%>	<%= rsComment("WriteTime") %>	<% if AdminPurview=1 or AdminPurview_Article=1 then if rsComment("ReplyName")<>"" then response.write " " else response.write "回复 " end if response.write "修改 " response.write "删除" end if%>
	<%response.write "管理员【" & rsComment("ReplyName") & "】于 " & rsComment("ReplyTime") & " 回复： " & rsComment("ReplyContent") & " "%>				">修改回复内容

<% end if rsComment.close set rsComment=nothing %>

<% end sub %>