<%
if Request.Cookies("admindj")<>"1" then
   Response.Write "<BR><BR><BR><BR><center>权限不足，你没有此功能的管理权限"
   Response.end
end if
%>
<!--#include file = admin_chk.asp -->
<!--#include file = admin_conn.asp -->
<!--#include file = titleb.asp -->
<head>
<!--#include file = language.asp -->
<STYLE type="text/css">
<!--
a:link       {text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited    {text-decoration: none; color: #000000 }
A:hover      {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline}
body         {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000}
TD           {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;table-layout:fixed;word-break:break-all}
p            {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
input        {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
body         {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000}
select       {FONT-SIZE: 9PT;}
option       {FONT-SIZE: 9pt;}
textarea     {FONT-SIZE: 9pt;}
-->
</STYLE>
</head>
<body bgcolor="#ffffff">
<BR>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="760" id="table3">
		<tr>
			<td>
<div align="center">
	<table border="0" cellpadding="3" cellspacing="0" width="750" id="table1">
		<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="VBScript" Type="text/vbscript"><!--
function FrontPage_Form1_onsubmit()
  Set theForm = document.FrontPage_Form1

  If (theForm.word.value = "") Then
    MsgBox "请在 关键字 域中输入值。", 0, "有效性验证错误"
    theForm.word.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (Len(theForm.word.value) < 1) Then
    MsgBox "在 关键字 域中，请至少输入 1 个字符。", 0, "有效性验证错误"
    theForm.word.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (Len(theForm.word.value) > 20) Then
    MsgBox "在 关键字 域中，请最多输入 20 个字符。", 0, "有效性验证错误"
    theForm.word.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If
  FrontPage_Form1_onsubmit = True 
End Function
--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="<%=request.servervariables("URL")%>" name="FrontPage_Form1"><tr>
			<td width="750" height="29">
				&nbsp;&nbsp;&nbsp;<b>查看评论</b></td>
		</tr><tr>
			<td width="750" background="../images/bj3.jpg" height="25">
				<p align="center">
				&nbsp;<!--webbot bot="Validation" s-display-name="关键字" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="20" --><input type="text" name="word" size="20" maxlength="20">　　<select size="1" name="zd">
				<option value="content">内容</option>
				<option value="username">作者</option>
				</select>　　<input type="submit" value="搜索评论" name="B1"></p>
			</td>
		</tr></form>
	</table>
</div>

<div align="center">
	<table border="1" cellpadding="3" width="750" id="table2" style="border-collapse: collapse" bordercolor="#C0C0C0">
		<tr>
			<td width="440" align="center" background="../images/bj5.jpg" height="25">
			<font color="#FFFFFF">作者　内容</font></td>
			<td width="133" align="center" background="../images/bj5.jpg" height="25">
			<font color="#FFFFFF">发布时间　IP</font></td>
			<td width="156" align="center" background="../images/bj5.jpg" height="25">
			<font color="#FFFFFF">相关操作</font></td>
		</tr>
		<%
		word=trim(request("word"))
		zd=trim(request("zd"))
		sql = "select * from newspl order by id desc"
		if word<>"" and zd<>"" then sql = "select * from newspl where "&zd&" like '%"&word&"%' order by id desc"
		Set rs = Server.CreateObject("ADODB.RecordSet")
		rs.Open sql,conn,1,1
		
		if rs.recordcount<>0 then
		
		page=int(request("page"))
		rs.PageSize=10
		pagecount=rs.pagesize
		if page<=0 then page=1
		if request("page")="" then page=1
		rs.AbsolutePage=page
		
		for i=1 to pagecount
		%>
		<tr>
			<td width="440"><font color="#0066CC"><%=rs("username")%></font><br>
			<a href=# onclick='window.open("admin_news_pl_view.asp?id=<%=rs("id")%>","newsplview","width=480,height=200,top=70,left=150,scrollbars=no" )'><%=titleb(rs("content"),66)%></a></td>
			<td width="133"><a href=# onclick='window.open("admin_ip.asp?iP=<%=rs("ip")%>","newsplview","width=380,height=200,top=190,left=150,scrollbars=no" )'><%=rs("IP")%>(查看来源)</a><br><%=rs("addtime")%></td>
			<td width="156">
			<p align="center">
			<a target="_blank" href="../news_view.asp?newsid=<%=rs("newsid")%>">相关新闻</a>　<a href=# onclick='window.open("../NewsPL.asp?id=<%=rs("newsid")%>","newsview","width=680,height=400,top=70,left=150,scrollbars=yes" )'>相关评论</a>　<a onclick='{if(confirm("您确定删除吗?此操作将不能恢复!")){return true;}return false;}' href="admin_newspl_del.asp?id=<%=rs("id")%>">删除</a></td>
		</tr>
		<%
		rs.movenext 
		if rs.eof then exit for
		next
		else 
		  Response.Write "<tr><td colspan=3>暂无信息</td></tr>"
		end if
		%>
	</table>
</div>
<BR>
<center>
<%if rs.recordcount<>0 then
  if page>1 then
    response.write "<a href="&request.servervariables("URL")&"?page=1>首页</a>　"
    response.write "<a href="&request.servervariables("URL")&"?page="&page-1&">上一页</a>　"
  end if
  if page<rs.pagecount then
    response.write "<a href="&request.servervariables("URL")&"?page="&page+1&">下一页</a>　"
    response.write "<a href="&request.servervariables("URL")&"?page="&rs.pagecount&">尾页</a>　"
  end if
    response.write "共"&rs.recordcount&"条　每页显示"&pagecount&"条　共"&rs.pagecount&"页　"
  %>
  <script language="JavaScript">
  <!--
  function FP_jumpMenu(el,frm,sel) {//v1.0
    var href=el.options[el.selectedIndex].value; if(sel) el.selectedIndex=0;
    if('_new'==frm) open(href); else eval(frm+".location='"+href+"'");
    }
    // -->
  </script>
  <select size="1" onchange="FP_jumpMenu(this,'window',false)" id="id1" name="D1" style="font-size: 9pt; border-style: solid; border-width: 1px">
   <%for i=1 to rs.pagecount%>
   <option value="<%=request.servervariables("URL")%>?page=<%=i%>" <%if page=i then response.write "selected"%> style="font-size: 9pt">第<%=i%>页</option>
    <%next%>
   </select>
<%end if%>
</center>
　</td>
		</tr>
		<tr>
			<td>
　</td>
		</tr>
		</table>
</div>
<br>
<br><Center>
<%
if xuasmdb<>"" then
%>
<iframe name="I45341" src="http://www.xuas.com/Google728x90.asp" height="95" width="735" scrolling="no" border="0" frameborder="0" marginwidth="1" marginheight="1"></iframe>
<%
end if
%>
<br>
</center>