<!--#include file="main_inc.asp"-->
<% 
cid=sr("cid")
cid=1
Set Page = new Cls_Page				
Set Page.Conn = conn				
With Page
	.PageSize = 15					
	.PageParm = "p"					
	'.PageIndex = 10				
	.Database = "ac"				
	.Pkey="id"						
	.Field="id,title,img,content,time,dj,yl_class"	
	.Table="v_wz"	
	if cid<>"" then	
	call class_ids("class_table","",cid)		
	ser_str=ser_str&" and lb in ("&class_ids_str&cid&") " 
	end if		
	.Condition= " sh=1 "&ser_str	
	.OrderBy=" time desc,id desc"					
	.RecordCount = 0				

	.NumericJump = 5 
	'.Template = "总记录数：{$RecordCount} 总页数：{$PageCount} 每页记录数：{$PageSize} 当前页数：{$PageIndex} {$FirstPage} {$PreviousPage} {$NumericPage} {$NextPage} {$LastPage} {$InputPage} {$SelectPage}" '整体模板，可选参数，有默认值
	.Template = "页次：{$PageIndex}/{$PageCount} {$FirstPage} {$PreviousPage} {$NumericPage} {$NextPage} {$LastPage} {$InputPage} "
	.FirstPage = "首页" 
	.PreviousPage = "上一页" 
	.NextPage = "下一页" 
	.LastPage = "尾页" 
	.NumericPage = " {$PageNum} " 
End With

rs = Page.ResultSet() 
'rc = Page.RowCount() 
nav = Page.Nav() 
%>
<!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>
<meta name="description" content="北京外卖网，专业提供外卖服务的第三方电子商务平台，让您足不出户即可享受全市中式快餐，中式简餐，小吃面点，日韩料理，奶茶饮料，蛋糕甜品各类美食的外卖服务,外卖热线：0579-82235223。" />
<meta name="keywords" content="外卖|北京快餐订餐|订餐小秘书|北京外卖|北京外卖网|北京外卖电话|北京外送电话|北京网上订餐|北京肯德基外卖|北京肯德基宅急送|北京必胜客宅急送" />
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
<LINK href="img/2011css.css" type=text/css rel=stylesheet>
<link href="img/css.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="/inc/script.js"></script>
<script type="text/javascript" src="/inc/list.js"></script>
</head>

<BODY>
<!--#include file="head.asp"-->
<TABLE class=dh height=46 cellSpacing=0 cellPadding=0 width=950 align=center border=0>
  <TBODY>
  <TR>
    <TD align=middle width=92 height=46>
      <TABLE height=46 cellSpacing=0 cellPadding=3 width=69 border=0>
        <TBODY>
        <TR>
          <TD class=on_left width=4>&nbsp;</TD>
          <TD class=on_middle align=middle>
		  <A class=t14b    href="index.asp">首页</A></TD>
          <TD class=on_right width=4>&nbsp;</TD></TR></TBODY></TABLE></TD>
    <TD width=858>
	<A class=dh_t  href="shop_list.asp">叫外卖</A>
	<IMG height=13   src="img/dh_fline.gif" width=2 align=absMiddle>
	<A class=dh_t  href="dangao.asp">订蛋糕</A>
	<IMG height=13 src="img/dh_fline.gif" width=2 align=absMiddle>
	<A class=dh_t   href="xianhua.asp">订鲜花</A>
	<IMG height=13 src="img/dh_fline.gif" width=2 align=absMiddle>
	<A class=dh_t  href="chaoshi.asp">逛超市</A>
	<IMG height=13 src="img/dh_fline.gif" width=2 align=absMiddle>
	<A class=dh_t  href="games.asp">等餐游戏</A>
	<IMG height=13 src="img/dh_fline.gif" width=2 align=absMiddle>
	<A class=dh_t  href="jfsc.asp">积分商城</A>
	</TD></TR></TBODY></TABLE>
<table width="966" border="0" align="center" cellpadding="5" cellspacing="0" class="t12">
  <tr>
    <td><img src="images/icon_arrow.gif" width="13" height="9" /> 当前位置： <a href="index.asp" class="t12yello">首页</a> &gt;&gt;  最新消息 </td>
  </tr>
</table>
<table width="966" border="0" align="center" cellpadding="0" cellspacing="0" class="top3">
  <tr>
    <td width="703" valign="top" class="newdir_leftkuang"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0" class="topdown10">
        <% 
If IsNull(rs) Then
	Response.Write "<div >暂无信息！</div>"
Else
	For i=0 To Ubound(rs,2)
%>
        <tr>
          <td width="85%" height="26" class="newline">·<a href="new_dir.asp?id=<%= rs(0,i) %>" class="newt14" ><%= rs(1,i) %></a></td>
          <td width="15%" class="newline"><span class="time"><%= Format_Time(rs(4,i),2) %> </span></td>
        </tr>
        <% 
	Next
End If
%>
        <tr>
          <td height="35" colspan="3" align="center" class="t12">
          <%Response.Write nav%></td>
        </tr>
    </table></td>
    <td width="263" align="center" valign="top"><table width="250" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td height="27" background="images/home_left1_1.jpg" ><span class="member_t14b">相关新闻</span></td>
      </tr>
      <tr>
        <td height="150" background="images/home_left1_2.jpg" valign="top">
<%  
					Set rs2=Server.CreateObject("Adodb.RecordSet")
					sql2="SELECT top 6 id,title,img,time FROM wz where sh=1 and lb=1  order by time desc,id desc"
					rs2.Open sql2,conn,3,1
					do while not rs2.eof
                    %>
    <a href="/new_dir.asp?id=<%= rs2("id") %>" target="_blank" class="newt">·<% = left(rs2("title"),25)%></a><br />
				   <%			  
				   rs2.MoveNext
				   loop
				   set rs2=nothing
				   %>		
		
		</td>
      </tr>
      <tr>
        <td><img src="images/home_left1_4.gif" width="250" height="1" /></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<!--#include file="foot.asp"-->
</body>
</html>
<%
Page = Null
Set Page = Nothing
%>