<!--#include file="../../p_inc/config.asp"-->
<!--#include file="../../p_inc/function.asp"-->
<!--#include file="../inc/func.asp"-->
<!--#include file="../../p_inc/function_func.asp"-->
<!--#include file="../../p_inc/ip_query.asp"-->
<!--#include file="../inc/public.asp"-->
<!--#include file="../inc/openconn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<LINK href="../css/style.css" rel=stylesheet type=text/css>
<title>全部电影管理</title>
<script>
function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.name != 'chkall' )
       e.checked = form.chkall.checked;
    }
  }
function setCookie(name, value) {
    var expdate = new Date();
    var argv = setCookie.arguments;//获得数组
    var argc = setCookie.arguments.length;//获得数组的长度
    var expires = (argc > 2) ? argv[2] : 1;//可伸长变量
    var path = (argc > 3) ? argv[3] : "/";
    var domain = (argc > 4) ? argv[4] : null;
    var secure = (argc > 5) ? argv[5] : false;
    if(expires!=null){
        expdate.setTime(expdate.getTime() + ( expires*24*60*60*1000 )); //把传过来得变量变成天数
	}
    document.cookie = name + "=" + escape (value)
    +((expires == null) ? "" : ("; expires="+ expdate.toGMTString()))
    +((path == null) ? "" : ("; path=" + path))
    +((domain == null) ? "" : ("; domain=" + domain))
    +((secure == true) ? "; secure" : "");
}
</script>
</head>
<body>
<%
g_type=request("g_type")
g_t_id=StayNub(request("g_t_id"))


sql="select * from g_b where id>0 And g_topic_id<>0"

IF g_t_id<>"" THen sql=sql&" and g_t_id="&g_t_id

sql=sql&" order by g_date desc,id desc"

Set rs=server.CreateObject(G_RS)
rs.open sql,conn,1,1 
IF request.Cookies("page_n")="" then
	msg_per_page=15
else
	msg_per_page=Cint(request.Cookies("page_n"))
end if


'msg_per_page=20 '定义每页显示记录条数
%>
<!--#include file="../inc/headpage.asp"-->
<Form name="search" method="POST" action="admin_check.asp">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" class="tableBorder">
	<tr>
		<th height=25 colspan="2" class="tableHeaderText"><a href=?><font color="#FFFFFF">全部评论列表</font></a></th>	
    <tr> 
	<tr>
		<td colspan="2"> 
  			<TABLE width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bordercolor="#111111" bordercolorlight="#D7EBFF" bordercolordark="#D7EBFF" style="border-collapse: collapse">
    			<TBODY>
				<%
				if rs.eof then
					response.Write"<br><br><div align='center'>暂无数据信息</div><br><br>"
				else
				%>
					<TR height=25> 
					  <TD  height="20" class=bodytitle><font color="#CC3300"><b>ID</b></font></TD>
					   <TD  class=bodytitle><font color="#CC3300"><b>所属专题</b></font></TD>
						<TD  class=bodytitle><font color="#CC3300"><b>发布者</b></font></TD>
						 <TD  class=bodytitle><font color="#CC3300"><b>来源</b></font></TD>
					    <TD  class=bodytitle><font color="#CC3300"><b>发布者IP</b></font></TD>
				        <TD  class=bodytitle><font color="#CC3300"><b>发布时间</b></font></TD>
					   
					    
					    <TD  align="center" class=bodytitle><input type='submit' value='删除' onClick="{if(confirm('您确定执行的操作吗?')){;this.form.action='../qingtiandy_movie/func.asp?tag=del_err_g';this.form.submit();return true;}return false;}"></TD>
					</TR>
					<%do while not rs.eof and rowcount > 0%>
					
					<TR height="20"> 
					  <TD  class=forumRow>
					 <%=rs("id")%>  </td>
					  <TD class=forumRow>
					  <%
					  ttid=rs("g_topic_id")
					  Set oRsg=conn.Execute("Select m_url,m_name,m_httpurl From qingtiandy_zhuanti Where id="&ttid)
					  IF Not oRsg.Eof Then
					  	tt_m_url=oRsg("m_url")
						tt_m_name=oRsg("m_name")
						tt_m_httpurl=oRsg("m_httpurl")
					  Else
					  	tt_m_url=""
						tt_m_name=""
						tt_m_httpurl=""
					  End IF
					  %>
					  <a href=<%=GetHttpUrl(tt_m_name,tt_m_httpurl,tt_m_url)%> target="_blank"><%=tt_m_name%></a></td>					 
						<TD class=forumRow><%=rs("g_name")%></td>
						<TD class=forumRow><%=Disp_IPAddressData(rs("g_ip"),2)%></td>
					    <TD class=forumRow>
						<%=rs("g_ip")%>						</td>
				      <TD class=forumRow><%IF ForMatDate(rs("g_date"),5)=ForMatDate(now(),5) Then response.Write "<font color=red>"&ForMatDate(rs("g_date"),55)&"</font>" Else response.Write ForMatDate(rs("g_date"),55) %></td>
					  
					  <TD  align="center" class=forumRow><input type=checkbox name=selAnnounce value="<%=cstr(rs("ID"))%>"></td>
					</TR>
					<TR> 
					  <TD  class=forumRow colspan="7">
					  <%
						Dim mmm_content
						mmm_content=HTMLEncode(rs("g_content"))
						mmm_content=replace(mmm_content,"[face","<img src='"&Add_Root_Dir("/p_inc/pinglun/images/face/")&"")
						mmm_content=replace(mmm_content,"]",".gif'>")
						'过滤关键词----------------------------------------
						pL=Qingtiandy_getfilecontent(server.MapPath(Add_Root_Dir("/p_inc/Tag/pinglunlist.txt")))
						p_a=split(pL,"|")
						For j=Lbound(p_a) To Ubound(p_a)
							pL_1=p_a(j)
							mmm_content=replace(mmm_content,pL_1,"**")
						Next					  
					  	response.Write mmm_content
					  %>
					  </td>
					</TR>					
								
					<%
					icolor=icolor+1
					if icolor>1 then icolor=0
					rowcount=rowcount-1
					rs.movenext
					loop
					end if
					%>
			</TABLE>		</td>
	</tr>
	<tr>
	<td width="91%" class=forumRow >&nbsp;
	<input type='submit' value='删除' onClick="{if(confirm('您确定执行的操作吗?')){;this.form.action='../qingtiandy_movie/func.asp?tag=del_err_g';this.form.submit();return true;}return false;}">&nbsp;
	每页显示
	<select name="pp_page" onChange="setCookie('page_n',this.options[this.selectedIndex].value,30);location.href='index.asp'">
	<option value="">请选择页数</option>
	<option value="10">10</option>
	<option value="15">15</option>
	<option value="20">20</option>
	<option value="30">30</option>
	<option value="50">50</option>
	<option value="100">100</option>
	<option value="200">200</option>
	<option value="300">300</option>
	<option value="500">500</option>
	</select>&nbsp;	</td>
	<td width="9%" class=forumRow align="center" ><INPUT onclick=CheckAll(this.form) type=checkbox value=on name=chkall>全选</td>
	</tr>
	<tr>
	<td class=forumRow colspan="2">&nbsp;</td>
	</tr>
	<tr>
	<td colspan="2" align="center" class=forumrowHighLight><b><%=listPages("?g_type="&g_type&"&g_t_id="&g_t_id)%></b></td></tr>
</table>
</form>
</body>
</html>