news_list.asp

主要销售电脑和it 具有 购物车 和 留言版 和服务器销售 等具体功能

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
if session("AdminName")="" then
    response.redirect "index.asp"
end if
%>
<!--#include file="inc/conn.inc"-->
<link href="admin_style.css" rel="stylesheet" type="text/css">
<table width="100%" border="1" align="center" cellpadding="3" cellspacing="0"  bordercolorlight="#326598" bordercolordark="#ffffff">
  <tr>
    <td width="7%" height="28" align="center" background="image/tile_sub.gif">序列号</td>
    <td width="48%" align="center" background="image/tile_sub.gif">标题</td>
    <td width="19%" align="center" background="image/tile_sub.gif">分类</td>
    <td width="13%" align="center" background="image/tile_sub.gif">加入日期</td>
    <td colspan="2" align="center" background="image/tile_sub.gif">操作</td>
  </tr>
  <%
page=clng(request("page"))
Set rs=server.CreateObject("ADODB.RecordSet") 
sql="select * from news order by news_id desc"
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
response.Write("没有记录")
else
rs.PageSize=18
if page=0 then page=1 
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page  
    
for j=1 to rs.PageSize 
%>
<tr>
    <td align="center"><%=rs("news_id")%></td>
    <td>&nbsp;<a href="../newslist.asp?news_id=<%=rs("news_id")%>" target="_blank"><%=rs("news_title")%></a></td>
    <td align="center"><% 
if rs("news_class_id")<>"" then
set res=server.createobject("adodb.recordset") 
   sql="select news_class_z from news_class where news_class_id="&rs("news_class_id")&""
   res.open sql,conn,1,1
  if not res.eof then
  response.write res("news_class_z")
  else
  response.write "没有分类"
  end if
   res.close
   set res=nothing
   end if
%></td>
    <td align="center"><%=rs("time")%></td>
    <td width="7%" align="center"><a href="news_modify.asp?news_id=<%=rs("news_id")%>&page=<%=request("page")%>">修改</a></td>
    <td width="6%" align="center"><a href="news_del.asp?news_id=<%=rs("news_id")%>">删除</a></td>
  </tr>
  <%
rs.movenext
if rs.eof then exit for
next                                                       
%>
</table>
<table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center">&nbsp;</td>
  </tr>
  <tr>
  <form method=Post action="news_list.asp">  
    <td align="center"><%if Page<2 then      
    response.write "首页 上一页&nbsp;"
  else
    response.write "<a href=?page=1>首页</a>&nbsp;"
    response.write "<a href=?page=" & Page-1 & ">上一页</a>&nbsp;"
  end if
  if rs.pagecount-page<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=?page=" & (page+1) & ">"
    response.write "下一页</a> <a href=?page="&rs.pagecount&">尾页</a>"
  end if
   response.write "&nbsp;页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
    response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
   response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
   response.write " <input class=input type='submit'  value=' Goto '  name='cndok'></span></p>"     
%></td></form>
  </tr>
</table>
<% 
end if
rs.close
set rs=nothing
%>