<!--#include file="conn.asp"-->
<!--#include file="config/config.asp"-->
<!--#include file="page.asp"-->
<%
id=request.QueryString("id")
if id="" or not isnumeric(id) then
Response.Write "<script>alert('参数错误！');history.go(-1);</script>" 
Response.End()
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where id="&id
rs.open sql,conn,1,1

set rs1=server.CreateObject("adodb.recordset")
sql1="select * from fl where id="&id
rs1.open sql1,conn,1,1
title1=rs1("title")
%>
<!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" />
<meta name="keywords" content="<%=w78_keywords%>" />
<meta name="description" content="<%=w78_description%>" />
<title><%=w78_home%></title>
<link href="css/style.css" rel="stylesheet" type="text/css" />
<script src="js/flash.js" type="text/javascript"></script>

</head>

<body>
<div align="center">
<!--#include file="top.asp"-->
<table width="1004" border="0" cellspacing="0" cellpadding="0" bgcolor="#ffffff">
  <tr>
    <td width="10"></td>
    <td width="250" valign="top">
	 <!--#include file="left.asp"--> 
	</td>
    <td width="9"></td>
    <td width="725" valign="top">
      <table width="725" border="0" cellspacing="0" cellpadding="0" class="table_spacing1">
        <tr>
          <td class="part_bg1">
		    <div class="part1"><%=title1%></div>
			<div class="nav">您的当前位置：<a href="index.asp">首页</a> >> <a href="news.asp?id=<%=rs1(0)%>"><%=title1%></a> >></div>
		  </td>
        </tr>
        <tr>
          <td class="content_bk2">
		    <ul class="new_list">
            <%
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from news where fl="&id
			rs.open sql,conn,1,1
			if rs.eof then
                response.Write "<span style='color:red;text-align:center;'>暂未添加数据</span>"
            else
            rs.PageSize =15
            iCount=rs.RecordCount 
            iPageSize=rs.PageSize
            maxpage=rs.PageCount 
            page=request("page")
            if Not IsNumeric(page) or page="" then
            page=1
            else
            page=cint(page)
            end if
            if page<1 then
            page=1
            elseif  page>maxpage then
            page=maxpage
            end if
            rs.AbsolutePage=Page
            if page=maxpage then
            x=iCount-(maxpage-1)*iPageSize
            else
            x=iPageSize
            end if
            For i=1 To x 
			%>
			  <li><span>[<%=rs("data")%>]</span><a href="news_cont.asp?id=<%=rs(0)%>"><%=rs("title")%></a></li>
			 <%
			 rs.movenext
			 next 
			 end if
			 %> 
			</ul>
			<div class="page"><%'以下显示分页
 call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
rs.close
set rs=nothing
%></div>
		  </td>
        </tr>
      </table>
	  </td>
    <td width="10"></td>
  </tr>
</table>
<!--#include file="foot.asp"-->
</div>
</body>
</html>
