<!--#include file="check.asp" -->
<!--#include file="../config/conn.asp"-->
<!--#include file="../config/code.inc"-->
<!--#include file="../config/function.asp"-->
<!--#include file="../config/config.asp"-->
<%
'option explicit '强制定义变量
'==========================================================================
'毛虫的快速分页
'==========================================================================
dim idcount'记录总数
dim pages'每页条数
dim pagec'总页数
dim page'页码
dim pagenc '每页显示的分页页码数量=pagenc*2+1
pagenc=2
dim pagenmax '每页显示的分页的最大页码
dim pagenmin '每页显示的分页的最小页码
page=clng(request("page"))
dim start'程序开始的时间
dim endt'程序结束的时间
dim datafrom'数据表名
datafrom="news"
dim rs',conn
dim datapath '数据库路经
dim sqlid'本页需要用到的id
dim myself'本页地址
myself = request.servervariables("path_info")
dim sql'sql语句
dim taxis'排序的语句
taxis=" order by sortid"
dim i'用于循环的整数
start=timer()
'datapath="db.mdb"
pages=50             '每页显示数量

'连接打开数据库
dim db
    '定义数据库路径及名称



'获取记录总数
sql="select count(newsid) as idcount from ["& datafrom &"]"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,0,1
idcount=rs("idcount")'获取记录总数

if(idcount>0) then'如果记录总数=0,则不处理
 if(idcount mod pages=0)then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1
  pagec=int(idcount/pages)'获取总页数
 else
  pagec=int(idcount/pages)+1'获取总页数
 end if

 '获取本页需要用到的id============================================
 '读取所有记录的id数值,因为只有id所以速度很快
 sql="select newsid from ["& datafrom &"]"&taxis
 set rs=server.createobject("adodb.recordset")
 rs.open sql,conn,1,1

    rs.pagesize =pages '每页显示记录数
    if page < 1 then page = 1
    if page > pagec then page = pagec
    if pagec > 0 then rs.absolutepage = page  

 for i=1 to rs.pagesize
 if rs.eof then exit for  
  if(i=1)then
   sqlid=rs("newsid")
  else
   sqlid=sqlid &","&rs("newsid")
  end if
 rs.movenext
 next
 '获取本页需要用到的id结束============================================
end if
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" >
<title>信息管理</title>
<style type="text/css">
<!--
body {
	margin-top: 10px;
	margin-left: 10px;
	background-image: url(images/bg.gif);
}
-->
</style>
<link href="css/admin.css" rel="stylesheet" type="text/css" ><script language="javascript">
function selectall()
{
	count = document.form3.del.length;
	for(i=0;i<count;i++)
	{
	document.form3.del(i).checked=true;
	}
}
function unselectall()
{
	count = document.form3.del.length;
	for(i=0;i<count;i++)
	{
	document.form3.del(i).checked=false;
	}
}
function revertselect()
{
	count = document.form3.del.length;
	for(i=0;i<count;i++)
	{
	document.form3.del(i).checked= !document.form3.del(i).checked;
	}
}
function check()
{
	sum = 0;
	count=document.form3.del.length;
	for(i=0;i<count;i++)
	{
		if(document.form3.del(i).checked==true)
		{
		sum = sum + 1;
		}
	}
	if(sum==0)
	{
	window.alert("用户没有选择任何删除选项！");
	return false;
	
	}
}
</script></head>

<body>
<form action="save.asp?action=newsdel" method="post" name="form3" id="form3">
  <table width="844" border="0" cellpadding="0" cellspacing="1">
    <tr>
      <td width="842" valign="top"><br >
          <table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td width="491" align="left" valign="middle" >　共有<strong><font color="#ff6600"><%=idcount%></font></strong>条信息</td>
              <td width="407" align="right" >&nbsp;</td>
            </tr>
          </table>
<table width="980" border="0" align="center" cellpadding="3" cellspacing="1">
            <tr align="center" bgcolor="#9fcb07">
              <td bgcolor="#E1E6E9">删除</td>
              <td width="10" bgcolor="#E1E6E9">&nbsp;</td>
              <td bgcolor="#E1E6E9">连接url</td>
              <td bgcolor="#E1E6E9">标题</td>
              <td bgcolor="#E1E6E9">发布日期</td>
              <td bgcolor="#E1E6E9">首页显示</td>
              <td bgcolor="#E1E6E9">排序</td>
              <td bgcolor="#E1E6E9">操作</td>
          </tr>
<%
	'if idcount=0 then
'	response.Write("对不起，暂时没有记录存在！")
'	end if
	'if(idcount>0 and sqlid<>"") then'如果记录总数=0,则不处理
	'用in刷选本页所语言的数据,仅读取本页所需的数据,所以速度快
	sql="select * from ["& datafrom &"] where newsid in("& sqlid &") order by sortid"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,3,1
	if idcount=0 then
	%>
    <tr>
    <td colspan="12">
    对不起，暂时没有记录存在！    </td>
    </tr>
    <%
	
	else
	while(not rs.eof)'填充数据到表格
%>
            <tr bgcolor="#ffffff">
              <td align="center"><input name="del" type="checkbox" class="input_defult" id="del" value="<%=rs("newsid")%>" ></td>
              <td align="center"><img src="images/icon.gif" alt="01" width="10" height="14" ></td>
              <td align="center" bgcolor="#ffffff"><%= rs("url") %></td>
              
              <td align="center" bgcolor="#ffffff"><%= rs("title") %></td>
              <td align="center" bgcolor="#ffffff"><%= rs("add_time") %></td>
              <td align="center" bgcolor="#ffffff">
			  <% if rs("is_index") =1 then
			  		response.Write("是")
				else
					response.Write("否")
				end if
			   %>              </td>
              <td align="center" bgcolor="#ffffff">
             <%= rs("sortid") %>             </td>
              <td align="center" bgcolor="#ffffff"><% if instr(userrolelist(session("classid")),"[502]")<>0 or session("classid")=0 then %><a href="news_do.asp?newsid=<%= rs("newsid") %>">修改</a>&nbsp;&nbsp;<a href="save.asp?action=newsdel&newsid=<%=rs("newsid")%>"  onclick="return confirm('确认删除吗')">删除</a><% end if %></td>
            </tr>
<%
	rs.movenext
	wend
	
%>
            <tr>
              <td colspan="10" align="center" style="border-bottom:1px dotted black"><img src="images/spacer.gif" width="1" height="5" /></td>
              </tr>
            <tr>
              <td align="center"><p>
                <input name="Submit" type="image" class="input_defult" onFocus="this.blur()" onClick="return confirm('确定要删除选中项吗?');" src="images/delete.jpg" align="middle"/>
                <br />
                <font color="#808080"><span class="td"><a href="#" onclick="selectall()">全部选定</a> | <a href="#" onclick="unselectall()">取消选定</a> | <a href="#" onclick="revertselect()">反向选择</a></span></font><br />
              </p>              </td>
              <td colspan="8" align="center">
<%
 '设置分页页码开始===============================
 pagenmin=page-pagenc'计算页码开始值
 pagenmax=page+pagenc'计算页码结束值
 if(pagenmin<1) then'如果页码开始值小于1则=1
     pagenmin=1
 end if

 
 

 if(pagenmax>pagec) then'如果页码结束值大于总页数,则=总页数
     pagenmax=pagec
 end if

 for i = pagenmin to pagenmax'循环输出页码
     if(i=page) then
  response.write ("<font color='#ff6600'><strong>"& i &"</strong></font>&nbsp;&nbsp;")
     else
  response.write ("<a href='"& myself &"?page="& i &"&class_name="&request("class_name")&"'><font color='#000000'>"& i &"</font></a>&nbsp;&nbsp;")
     end if
 next
 
 
 '设置分页页码结束===============================
%>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<%
	   if(page=1) and pagec>1 then'如果页码开始值大于1则显示(更前)
 
 response.write ("<a href='"& myself &"?page="& page+1 &"&class_name="&request("class_name")&"'><img src=images/down.jpg width=59 height=17 border=0/></a>&nbsp;")
 end if
 if(page=pagec) and pagec>1 then'如果页码结束值小于总页数则显示(更后)
   response.write ("<a href='"& myself &"?page="& page-1 &"&class_name="&request("class_name")&"'><img src=images/up.jpg width=59 height=17 border=0/></a>&nbsp;")
  end if
	if page>1 and page<pagec then
	response.write ("<a href='"& myself &"?page="& page-1 &"&class_name="&request("class_name")&"'><img src=images/up.jpg width=59 height=17 border=0/></a>&nbsp;")
	response.write ("<a href='"& myself &"?page="& page+1 &"&class_name="&request("class_name")&"'><img src=images/down.jpg width=59 height=17 border=0/></a>&nbsp;")
	end if 
%></td>
              </tr>
        </table>
<%

end if
endt=timer()
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
      </td>
    </tr>
  </table>
</form>

</body>
</html>
