<!--#include file="Include/checklogin.asp"-->
<!--#include file="Include/connect.asp"-->
<!--#include file="Inc/char.asp"-->
<!--#include file="top.asp"-->
<link href="CSS/right.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--

function ask(msg) {
	
	if( msg=='' ) {
		msg='真的要这样做吗？';
	}

	if (confirm(msg)) {
		return true;
	} else {
		return false;
	}
}
//-->
</script>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tablecolor">
  <tr> 
    <td height="25" align="left" class="banner" style="PADDING-LEFT:15px">当前位置 &gt; 博客评论管理</td>
  </tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="1"  class="tablecolor">
  <tr > 
    <td height="25" align="center" class="tablebody">文章ID</td>
	<td height="25" align="center" class="tablebody">文章标题</td>
    <td align="center" class="tablebody">评论用户</td>
    <td align="center" class="tablebody">评论内容</td>
    <td align="center" class="tablebody">发布时间</td>
	<td width="5%" align="center" class="tablebody">删除</td>
  </tr>
<%
strFileName="m_acomment.asp"
pageno=20
set rs = server.CreateObject("adodb.recordset")
sql="select * from Show5_Articlecomment Order By CommentID DESC"
rs.CursorLocation=3
rs.Open sql,cn,1,1
rscount=rs.recordcount
if rs.eof or rs.bof then
response.write "暂无评论！"
else
call showsql(pageno)
rs.move(rsno)
for p_i=1 to loopno
%>
  <tr > 
    <td height="25" align="center" class="tablebody"><a href="../articleview.asp?id=<%=rs("ArticleID")%>" target="_blank"><%=rs("ArticleID")%></a></td>
	<td height="25" align="center" class="tablebody">
      <a href="../articleview.asp?id=<%=rs("ArticleID")%>" target="_blank">
      <%
set rs1 = server.CreateObject("adodb.recordset")
sql1 = "select Topic from Show5_ALLArticle where ArticleID="&rs("ArticleID")&""
rs1.open sql1,cn,1,1
response.write rs1("Topic")
rs1.close
set rs1=nothing
%>
    </a>	</td>
    <td align="center" class="tablebody"><a href="../Hompy/hompy.asp?username=<%=rs("Commentuser")%>" target="_blank"><%=rs("Commentuser")%></a></td>
    <td width="400" align="center" class="tablebody"><%=rs("Comment")%></td>
    <td align="center" class="tablebody"><font color="ff6600"><%=rs("Posttime")%></font></td>
    
	<td align="center" class="tablebody"><a href="javascript:if(ask('真的要删除吗？')) location.href='delacomment.asp?commentid=<%=rs("CommentID")%>&page=<%=request.querystring("page")%>';"><font color="#ff6600">删除</font></a></td>
  </tr>
<%
rs.movenext
next
end if
rs.close
set rs=nothing
%>
<tr>
    <td height="25" colspan="10" align="center" class="tablebody">
<%call showpage(strFileName,rscount,pageno,true,true,"篇评论")%>	</td>
  </tr>
  <tr> 
      <td colspan="10" align="right"  class="tablebody">&nbsp;</td>
  </tr>
</table>
<!--#include file="end.asp"-->