need.asp

实现让客户上网就可以挑选自己所想要的装饰物

<!--#include file="cn.asp"-->
<%if session("admin")=""  or request.cookies("timesshop")("admin")="" then 
response.Write "<script language='javascript'>alert('请先登录！');window.location.replace('login.asp');</script>"
response.End
end if
%><style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
-->
</style>

<table width="650" border="0" cellpadding="0" cellspacing="0" align="center">
  <!--DWLayoutTable-->
  <tr>
    <td width="500" height="68" valign="top">
	<form id="form1" name="form1" method="post" action="delnews.asp?lei=3">
	<table width="100%" border="0" cellpadding="0" cellspacing="0">
      <!--DWLayoutTable-->
      <tr>
        <td width="650" height="13" valign="top"><table width="650" border="0" cellpadding="0" cellspacing="0" bgcolor="#B1C3D9">
            <tr>
              <td width="274" height="20" align="center">标题</td>
              <td width="80" align="center">所属类</td>
			 
              <td width="85" align="center">发布人</td>
			   <td width="85" align="center">有效期</td>
               <td width="119" align="center">发布时间</td>
              <td width="92" align="center">删除</td>
            </tr>
          </table></td>
        </tr>
      <tr>
        <td height="21" valign="top">
		
		<table width="650" border="0" cellpadding="0" cellspacing="1" bgcolor="#BBCEFD">
          <!--DWLayoutTable-->
<%set rs=server.CreateObject("adodb.recordset")
sql="select * from need order by id desc"
rs.open sql,cn,1,1
if rs.eof then
 response.Write "<script language='javascript'>alert('无记录！');window.location.replace('index.asp');</script>"
 end if
'分页
jil=rs.recordcount
page=cint(request.QueryString("page"))
rs.pagesize=30
tpage=cint(rs.pagecount)
 if page="" or page=0 then 
		 page=1
		 end if
		  if  page>rs.pagecount then 
		 page=rs.pagecount
		 end if
 rs.Absolutepage=page
 
do while not rs.eof
%>
          <tr>
              <td width="272" height="20" align="center" bgcolor="#FFFFFF"><%=rs("title")%></td>
              <td width="79" align="center" bgcolor="#FFFFFF"><%=rs("lei")%></td>
			  <td width="86" align="center" bgcolor="#FFFFFF"><%=rs("man")%></td>
              <td width="86" align="center" bgcolor="#FFFFFF"><%=rs("ontime")%></td>
              <td width="117" align="center" bgcolor="#FFFFFF"><%=left(rs("addtime"),10)%></td>
              
              <td width="90" align="center" valign="top" bgcolor="#FFFFFF">
                <input name="del" type="checkbox" id="del" value="<%=rs("id")%>" />              </td>
            </tr>
          <%
		  rs.movenext
		  loop
		  %>
          </table></td>
        </tr>
      <tr>
        <td height="32" align="center" valign="bottom"><input type="submit" name="Submit" value="删除所选" />
           &nbsp;&nbsp;全选 
           <input type="checkbox" name="checkbox" value="Check All" onclick="mm()" /></td>
        </tr>
      <tr>
        <td height="22" align="center" valign="bottom">共<%=jil%>条记录 &nbsp;每页显30示条&nbsp;共<%=tpage%>页 &nbsp;第<%=page%>页 &nbsp;<a href="need.asp?page=1">第一页</a> &nbsp;<a href="need.asp?page=<%=page+1%>">下一页</a> &nbsp;<a href="need.asp?page=<%=page-1%>">上一页</a>&nbsp;<a href="need.asp?page=<%=tpage%>">最后一页</a></td>
        </tr>
    </table>     
	</form></td>
  </tr>
  <tr>
    <td height="300">&nbsp;</td>
  </tr>
</table>
<script language=javascript>
function mm()
{
   var a = document.getElementsByTagName("input");
   if(a[0].checked==true){
   for (var i=0; i<a.length; i++)
      if (a[i].type == "checkbox") a[i].checked = false;
   }
   else
   {
   for (var i=0; i<a.length; i++)
      if (a[i].type == "checkbox") a[i].checked = true;
   }
}
</script>