<%dbs="../"%>
<!--#include file="../inc/config.asp"-->
<!--#include file="uccook.asp"-->
<!--#include file="uc.asp"-->
<%
if request("Submit")="删 除" then
id=replace(request("id")," ","")
id=split(id,",")
for i=0 to UBound(id)
conn.execute("delete from H_news where ID="&id(i)&"")
next
response.Write "<script >alert('提示：\n\n删除成功,立即返回...');location.href='news_master.asp';</script>"
response.end
end if
%>
<%
if request.QueryString("act")="zhong" then
zhongid=request.QueryString("zhongid")
upsql="Update H_news set tuijian=1 where id="&zhongid&""
conn.execute(upsql)
response.Write "<script >alert('提示：\n\n推荐成功,立即返回...');location.href='news_master.asp';</script>"
response.end
end if
if request.QueryString("act")="qing" then
qingid=request.QueryString("qingid")
upsql="Update H_news set tuijian=0 where id="&qingid&""
conn.execute(upsql)
response.Write "<script >alert('提示：\n\n取消推荐,立即返回...');location.href='news_master.asp';</script>"
response.end
end if
%>
<!--#include file="../inc/ListPager.asp"-->
<%
'千万条数据分页调用。支持 900万条数据系统
Dim nTime : nTime = Timer()
Dim arrParam
arrParam = split(Request.QueryString("ListParam"), ",")
Dim conn, myListPager
Set conn = server.CreateObject("ADODB.Connection")
conn.open conndata
Set myListPager = new ListPager
with myListPager
	.Connection = conn
	.Table = "H_news"
	.PrimaryKey = "ID" 
	.Fields = "ID,H_title,Rdate,tuijian,H_ren" '显示字段
	.PageSize = 15
	.AddOrder "ID"," desc"
	if request("B_title")<>"" then
	.AddWhere" B_title like'%"&request("B_title")&"%'"	
	end if
	if request("B_char")<>"" then
	.AddWhere" B_char like'%"&request("B_char")&"%'"	
	end if
	if request.QueryString("tuijian")<>"" then
	.AddWhere "tuijian >="&request.QueryString("tuijian")&""
	end if
	.Cache = 10	
	.Init()
end with
%>



<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<title><%=W_title%>,总管理中心</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="style.css" type=text/css rel=stylesheet>
<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; 
   }
  }
</script>
<script>
function oa_tool1(){
window.parent.mm.rows="20,200,10,*";
}
</script>
<SCRIPT language=javascript src="images/jquery.js" 
type=text/javascript></SCRIPT>

<SCRIPT language=javascript src="images/function.js" 
type=text/javascript></SCRIPT>

<SCRIPT language=javascript type=text/javascript>
<!--


/*
function AddnewType()
*/
-->
</SCRIPT>

<META content="MSHTML 6.00.3790.4426" name=GENERATOR>
</HEAD>
<BODY><!--用户中心头部-->
<!--#include file="top.asp"-->
<table width="960" border="0" cellpadding="0" cellspacing="0">
    <tr>
        <td width="150" valign="top"><!--#include file="left.asp"--></td>
      <td width="810" align="right" valign="top"><table width="800" border="0" cellpadding="0" cellspacing="0">
            <tr>
                <td width="20" align="center"><img src="images/ico_4.gif" width="12" height="12"></td>
                <td height="30" align="left"><a href="index.asp" target="_self">用户中心</a> <span class="uc_huise">&gt; 会员管理</span></td>
            </tr>
            <tr>
                <td height="1" colspan="2" bgcolor="#EEEEEE"></td>
        </tr>
        </table>
            <table width="600" height="5" border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td></td>
                </tr>
            </table>
		
		    <table width="800" height="30" border="0" cellpadding="0" cellspacing="1" bgcolor="#EEEEEE">
			<form action="news_master.asp?action=sou" method="post" target="_self">
              <tr>
                <td width="52" bgcolor="#FFFFFF" class="uc_huise">标题</td>
                <td width="160" align="center" bgcolor="#FFFFFF"><input name="H_title" type="text" class="uc_huise" id="H_title"></td>
                <td width="51" bgcolor="#FFFFFF" class="uc_huise">内容</td>
                <td width="159" align="center" bgcolor="#FFFFFF"><input name="H_char" type="text" class="uc_huise" id="H_char"></td>
                <td width="59" bgcolor="#FFFFFF"><input name="Submit2" type="submit" class="UCform" value="搜索"></td>
              </tr>
			  </form>
            </table>
			
		    <table width="600" height="5" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td></td>
              </tr>
            </table>
		    <table width="800" height="1" border="0" cellpadding="0" cellspacing="0" bgcolor="#84BD00">
              <tr>
                <td></td>
              </tr>
            </table>
		    <table width="600" height="5" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td></td>
              </tr>
            </table>
		    <table width="800" height="105" border="0" cellpadding="0" cellspacing="0">
			<form action="news_master.asp?my=del" method="post" target="_self">
              <tr>
                <td width="54" height="25" align="left"><input name="chkall" type="checkbox" id="chkall" value="select" onClick="CheckAll(this.form)" style="border:0">全选</td>
                <td width="79" align="center">推荐</td>
                <td width="315" align="left">新闻标题</td>
                <td width="96" align="left">发布日期</td>
                <td align="left">发布人</td>
                <td align="center">修改</td>
              </tr>
              <tr>
                <td height="1" colspan="6" bgcolor="#84BD00"></td>
              </tr>	<%
				if myListPager.RecordCount>0 then
					Dim arrList,intList,i
					arrList = myListPager.GetRows()
					intList = Ubound(arrList,2)
					for i=0 to intList
	%>
			  
              <tr>
                <td height="28" align="left"><input name="ID" type="checkbox" id="ID" value="<%=arrlist(0,i)%>"></td>
                <td align="center"><%if arrlist(3,i)=1 then%><a href="?act=qing&qingid=<%=arrlist(0,i)%>" target="_self"><img src="../images/m2.gif" alt="取消推荐" width="14" height="12" border="0"></a>
                  <%else%><a href="?act=zhong&zhongid=<%=arrlist(0,i)%>" target="_self"><img src="../images/p2.gif" alt="推荐会员" width="14" height="12" border="0"></a>
                  <%end if%></td>
                <td align="left"><%=left(arrlist(1,i),18)%></td>
                <td align="left"><%=year(arrlist(2,i))&"-"&month(arrlist(2,i))&"-"&day(arrlist(2,i))%></td>
                <td align="left"><%=arrlist(4,i)%></td>
                <td align="center"><a href="news_edit.asp?id=<%=arrlist(0,i)%>" target="_self">修改</a></td>
              </tr>
              <tr>
                <td height="1" colspan="6" bgcolor="#F0F0F0"></td>
              </tr>
			      <%
					next
				end if
				%>		
              <tr>
                <td height="1" colspan="6" bgcolor="#84BD00">						</td>
              </tr>
              <tr>
                <td height="25" colspan="6" align="left"><input name="Submit" type="submit" class="biao" value="删 除">	</td>
              </tr>
              <tr>
                <td height="5" colspan="6"><%
					with myListPager
					
							Response.Write("<script type=""text/javascript"" src=""../inc/styles/ListStyle.js""></script>")
							Response.Write("<script type=""text/javascript"">pageTurn(" & .RecordCount & ", " & .PageSize & ", " & .PageCount & ", " & .CurrentPage & ", """ & .QueryString & """);</script>")
					end with
					%>	</td>
              </tr>
			</form>  
            </table>
      </td>
    </tr>
</table>
		  <%
Set myListPager = nothing
conn.close()
Set conn = nothing
%>
<!--#include file="end.asp"-->

</BODY></HTML>
