<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/xycms.asp"-->
<!--#include file="page.asp"-->
<%
id=request.QueryString("id")
if not isnumeric(id) then
Response.Write "<script>alert('警告！参数错误！');history.go(-1);</script>" 
Response.End()
end if
set rs=server.createobject("adodb.recordset") 
if id="" then
exec="select * from [news] order by id desc"
else
exec="select * from [news] where ssfl="&id&" order by id desc"
end if
rs.open exec,conn,1,1
%>
<!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="X-UA-Compatible" content="IE=7" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="keywords" content="" />
<meta name="description" content="" />
<link href="style/index.css" type="text/css" rel="stylesheet" />
<script type="text/javascript" src="js/jquery.min.js"></script>
<script type="text/javascript" src="js/slideplay.js"></script>
<title>新闻动态_<%=wzname%></title>
<!--[if lte IE 6]>
<script src="js/DD_belatedPNG_0.0.8a.js" type="text/javascript"></script>
    <script type="text/javascript">
        DD_belatedPNG.fix('div, ul, img, li, input , a');
    </script>
<![endif]-->
</head>
<body>
<!--#include file="head.asp"-->
<div id="cont">
  <div class="c_l">
    <div class="c_l_t"><h3 class="title">信息类别</h3></div>
    <div class="c_l_c">
      <div class="c_l_c_c">
        <ul>
          <%=xycms_newslist()%>
        </ul>
      </div>
    </div>
    <div class="c_l_t"><h3 class="title">联系我们</h3></div>
    <div class="c_l_c">
      <div class="c_l_c_c">
        <ul>
          <%=xycms_contact()%>
        </ul>
      </div>
    </div>
  </div>
  <div class="c_r">
    <div class="c_r_t"><h3 class="title">新闻动态 > 信息列表</h3></div>
    <div class="c_r_c">
      <div class="dc_list">
        <ul>
          <% if rs.eof then
		     response.Write("<li>暂无该类信息记录！</li>")
			 else
			 rs.PageSize =14
             iCount=rs.RecordCount 
             iPageSize=rs.PageSize
             maxpage=rs.PageCount 
             page=request.querystring("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
             end if
             For i=1 To x %>
            <li><span><%=formatdatetime(rs("data"),2)%></span><a href="news_detail.asp?id=<%=rs("id")%>" target="_self" title="<%=rs("title")%>"><%=rs("title")%></a></li>
            <% rs.movenext
                next %>
        </ul>
        <div class="clear"></div>
        <div class="dc_pages"><% call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
                rs.close
                set rs=nothing %></div>
      </div>
    </div>
  </div>
  <div class="clear"></div>
</div>
<!--#include file="foot.asp"-->
</body>
</html>