<!--#include file="../ACT_INC/ACT.User.asp"-->
<!--#include file="../ACT_INC/cls_pageview.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>评论显示</title>
<link href="Images/css/css.css" rel="stylesheet" type="text/css">
</head>
<body >
<% 
Dim  UserHS,ID
 Set UserHS = New ACT_User
		IF Cbool(UserHS.UserLoginChecked)=false then
		  Response.Write "<script>top.location.href ='login.asp' ;</script>"
		  Response.end
		End If
	Dim strLocalUrl
	strLocalUrl = request.ServerVariables("SCRIPT_NAME")
	Dim intPageNow
	intPageNow = request.QueryString("page")
	Dim intPageSize, strPageInfo
	intPageSize = 20
	Dim arrRecordInfo, i
	Dim sql, sqlCount,Sqls,pages
	pages = "Type="&Request("Type")&"&page"
	Select Case Request.QueryString("Type")
		Case "Lock"
			Sqls = " Where ModeID = 1 And Locked = 1 and UserName='"& UserHS.UserName &"'"
		Case "UnLock"
			Sqls = " Where ModeID = 1 And Locked = 0  and UserName='"& UserHS.UserName &"'"
		Case Else
			Sqls = " Where ModeID = 1  and UserName='"& UserHS.UserName &"'"
	End Select
	sql = "SELECT [ID], [ModeID], [Content], [AddDate],[Locked],[UserIP],[ClassID],[acticleID]" & _
		" FROM [Comment_Act]" &Sqls& _
		"ORDER BY [ID] DESC"
	sqlCount = "SELECT Count([ID])" & _
			" FROM [Comment_Act]  " &Sqls

		Dim clsRecordInfo
		Set clsRecordInfo = New Cls_PageView
			clsRecordInfo.intRecordCount = 2816
			clsRecordInfo.strSqlCount = sqlCount
			clsRecordInfo.strSql = sql
			clsRecordInfo.intPageSize = intPageSize
			clsRecordInfo.intPageNow = intPageNow
			clsRecordInfo.strPageUrl = strLocalUrl
			clsRecordInfo.strPageVar = pages

		clsRecordInfo.objConn = Conn		
		arrRecordInfo = clsRecordInfo.arrRecordInfo
		strPageInfo = clsRecordInfo.strPageInfo
		Set clsRecordInfo = nothing
	 %><form name="Article" method="post" action="?Action=">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
  <tr>
    <td  class="bg_tr"><strong>您现在的位置：文章中心管理 &gt;&gt; 我参与的评论<a href="#" target="_blank" style="cursor:help;'" class="Help"></a></strong></td>
  </tr>
  <tr>
    <td ><strong>评论选项：</strong><strong><a href="?">所有评论</a> ┆ <a href="?Type=Lock">已审核</a>┆ <a href="?Type=UnLock">未审核</a>┆</strong>&nbsp;</td>
    </tr>
</table>
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
  
    <tr>
      <td width="45" align="center" class="bg_tr">ID</td>
      <td width="529" align="center" class="bg_tr">评论内容</td>
      <td width="223" align="center" class="bg_tr">发表时间</td>
      <td width="121" colspan="2" align="center" class="bg_tr">审核与否</td>
    </tr>
	 <%
		Dim bgColor
		If IsArray(arrRecordInfo) Then
			For i = 0 to UBound(arrRecordInfo, 2)
	%>
    <tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
      <td align="center"  ><%= arrRecordInfo(0,i) %></td>
      <td  ><a target="_blank" href="<%=AcTCMS.ActCMSDM&"Comment.asp?ModeID="&arrRecordInfo(1,i)&"&ClassID="&arrRecordInfo(6,i)&"&ID="&arrRecordInfo(7,i)%>"><%=arrRecordInfo(2,i)%></a></td>
      <td  ><%= arrRecordInfo(3,i) %></td>
      <td align="center"  >
	 	<% IF arrRecordInfo(4,i) = 1 Then Response.Write "<font color=red>&nbsp;&nbsp;已审核&nbsp;&nbsp;</font>" Else Response.Write "<font color=#0000FF>&nbsp;&nbsp;未审核&nbsp;&nbsp;</font>"%>	  </td>
    </tr>
	<% 
	Next
	End If
	%>

    <tr >
      <td height="25" colspan="6" align="center" ><%= strPageInfo%></td>
    </tr>
  </table>
</form>
<script language="javascript">

//CSS背景控制
function overColor(Obj)
{
	var elements=Obj.childNodes;
	for(var i=0;i<elements.length;i++)
	{
		elements[i].className="tdbg1"
		Obj.bgColor="";
	}
	
}
function outColor(Obj)
{
	var elements=Obj.childNodes;
	for(var i=0;i<elements.length;i++)
	{
		elements[i].className="tdbg";
		Obj.bgColor="";
	}
}
 

</script>
<% CloseConn %>
</body>
</html>
