www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/ReplyManage.asp

    <!--#include file="top.asp"-->
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<%
'==========================================
'
'  晓宇听幽新闻文章管理系统 2004
'
'  主页地址:http://www.xoYu.com
'
'==========================================
'程序名称:晓宇听幽新闻文章管理系统
'英文名称:xoYu News 2004 Professional
'程序创建时间:2003-7-10
'程序完成时间:2003-9-11
'最后修改时间:2003-10-10
'==========================================
set rs=Server.CreateObject("adodb.recordset")
      sql="select * from Reply"
      rs.open sql,conn,1,1
         if rs.EOF then
   response.write "暂时没有评论被添加!"
  end if
  if request.form("result")="del" then
    Num=request.form("ID").count
    for x=1 to Num
     conn.execute("delete from Reply where id="&request("id")(x)&"")
     next
  end if
    if request.form("result")="check" then
    f="1"
    Numc=request.form("ID").count
    for xc=1 to Numc
     conn.execute("update Reply set check="&f&" where id="&request("id")(xc)&"")
     next
  end if
      if request.form("result")="uncheck" then
      f="0"
    Numuc=request.form("ID").count
    for xuc=1 to Numuc
     conn.execute("update Reply set check="&f&" where id="&request("id")(xuc)&"")
     next
  end if
   page=request.querystring("page")
  if page<=1 or page="" then page=1
  rs.pagesize=15
  for i=1 to rs.pagesize*(page-1)
    if not rs.eof then
	  rs.movenext
	end if
  next
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<meta copy="WWW.2KY.CN 共享世纪">
<title>■管理中心 - 共享世纪新闻文章管理系统</title>
<link rel="stylesheet" href="admin.css" type="text/css">
<body>
<%if rs.EOF then
	   response.write "暂时没有评论被添加!"
   else %>

<form method=post action="" name="xoYuStudioH">
<script language="javascript">
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 Isvalidity(val,name){
if (val.value!='' && (isNaN(val.value) || val.value<=0))
    {alert(name+"应填有效数字!");
    val.value="";
     val.focus();}
}
</script>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">

  <tr valign="middle" align="center"> 
    <th height="2" colspan="3" background="images/BLogo.gif">
     <b><img border="0" src="images/t_log.gif"><font color="#FF0000"> </font>文章评论管理</b></th></tr>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr>
      <td class=forumHeaderBackgroundAlternate height=20 width="5%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
      ID</td>
      <td class=forumHeaderBackgroundAlternate height=20 width="8%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
      所属文章ID</td>
      <td class=forumHeaderBackgroundAlternate height=20 width="50%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
      内容</td>
      <td class=forumHeaderBackgroundAlternate height=20 width="20%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
      发表人</td>
      <td class=forumHeaderBackgroundAlternate height=20 width="10%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
      状态</td>
      <td class=forumHeaderBackgroundAlternate height=20 width="7%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
      选择</td>
    </tr>
<%  for i=1 to rs.pagesize
    if rs.eof then exit for
    fileming=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date"))
%>
    <tr>
      <td class=forumrow height=20 width="5%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand' onMouseOut=this.style.backgroundColor=''; align="center"><%=rs("id")%></td>
      <td class=forumrow height=20 width="8%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand' onMouseOut=this.style.backgroundColor=''; align="center"><a target="_blank" href="../html/<%=fileming%>-1.html"><%=rs("InfoID")%></a></td>
      <td class=forumrow height=20 width="50%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><%=rs("content")%></td>
      <td class=forumrow height=20 width="20%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><%=rs("username")%></td>
      <td class=forumrow height=20 width="10%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><% if rs("check")="1" then response.write "已审核" else response.write "未审核"%></td>
      <td class=forumrow height=20 width="7%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><input type="checkbox" name=ID value=<%=rs("ID")%>></td>
    </tr>
          <%
  rs.movenext
  next    
 end if%> 
  <tr>
     <td class=forumrow height=20 width="100%" colspan=6 align=right onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
     &nbsp;&nbsp;&nbsp;&nbsp;<font color="#FF0000">注意</font>:在对评论作相应的操作之后请在文章页面对相应ID的文章进行<font color="#FF0000">“生成”</font>的操作!
	<input type="checkbox" name="chkall" onclick="CheckAll(this.form)" value="ON">选中所有  
     <font color="#FF0000">相关操作:</font> 
     <select size="1" name="result">
     <option selected value="del">删除评论</option>
     <option value="check">通过审核</option>
     <option value="uncheck">取消审核</option>
     </select>
     <input type=submit value=执行 onclick="return Del()">
     </td>    
  </tr>
  <tr> 
     <td class=forumHeaderBackgroundAlternate height=20 width="100%" colspan=6 onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
<%
  for i=1 to rs.PageCount
    response.write("<a href=Replymanage.asp?Page="&i&"><b> "&i&" </a></b>")
  next
  rs.close
  set rs=nothing
%>
     </td>
  </tr>
      </table>
    </td>
  </tr>
</table>
</form>
</body>
</html>