<!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"  lang="en">
<!--#include file="pcfinal.asp"--><head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
<title><%=pf_site_name%> - News center</title>
<meta name="author" content="<%=pf_site_url%>">
<meta name="keywords" content="<%=pf_site_keywords%>">
<meta name="description" content="<%=pf_site_description%>">
<link href="web_css.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="/menu.js"></script>
<style type="text/css">
</style>
</head>
<body>
<!--#include file="web_top.asp"-->
<!--#include file="web_left.asp"-->
<div class="web_right">
<div class="web_wz">
現在地：<a href="/index.asp">ホーム</a>>ニュース 
</div>
<div class="web_content">
<span class="web_Ctitle">ニュース </span><br />
		<div class="web_newslist">				<%
	Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from pf_news order by pf_news_order desc"
    rs.Open sql, conn, 1, 1
	if not rs.eof then
	 dim idCount
	 idCount=rs.recordcount
  dim pages
      pages=15
 rs.pagesize = pages
  pagec=int(idcount/pages)+1
 dim page
  page=request("Page")
  if request("page")<>"" then
  epage=cint(request("page"))
   if epage<1 then epage=1
   if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage
dim a
a=1
    Do While Not rs.EOF and a<rs.pagesize+1
        Set rsc = server.CreateObject("adodb.recordset")
        sql = "select * from pf_news_category where id = "&rs("pf_news_category")&""
        rsc.Open sql, conn, 1, 1
		%>
					<li><span class="web_FR"><%=formatdatetime(rs("pf_news_date"),2)%></span>[<a href="zlkjnewscate.asp?id=<%=rsc("ID")%>"><%=rsc("pf_news_category_name")%></a>] <a href="zlkjview.asp?id=<%=rs("ID")%>" title="<%=rs("pf_news_name")%>"><%=str_left(rs("pf_news_name"),80,"...")%></a></li>
					<%
    rsc.Close
    Set rsc = Nothing
	a=a+1
		rs.movenext
    Loop
	end if
    rs.Close
    Set rs = Nothing
				%>
			</div>
			
			<div class="web_page">
      <%=idCount%>件のレコードの合計、<%=pagec%>のページ
      <% if epage-1>0 then%>
     
      <a href="news.asp?page=1">ホーム</a>&nbsp;      <a href="news.asp?page=<%=epage-1%>"><%=epage-1%></a>&nbsp;
      <span style="color: #F00"><%=epage%></span>&nbsp;
<a href="news.asp?page=<%=epage+1%>"><%=epage+1%></a>&nbsp;
<a href="news.asp?page=<%=epage+2%>"><%=epage+2%></a>&nbsp;
<a href="news.asp?page=<%=epage+3%>"><%=epage+3%></a>&nbsp;
<a href="news.asp?page=<%=epage+4%>"><%=epage+4%></a>&nbsp;
<a href="news.asp?page=<%=epage+5%>"><%=epage+5%></a>&nbsp;
<a href="news.asp?page=<%=epage+6%>">のページ</a>&nbsp;<a href="news.asp?page=<%=pagec%>">最後に</a>&nbsp;<% else%>
 <span style="color: #F00"><%=epage%></span>
<a href="news.asp?page=<%=epage+1%>"><%=epage+1%></a>&nbsp;
<a href="news.asp?page=<%=epage+2%>"><%=epage+2%></a>&nbsp;
<a href="news.asp?page=<%=epage+3%>"><%=epage+3%></a>&nbsp;
<a href="news.asp?page=<%=epage+4%>"><%=epage+4%></a>&nbsp;
<a href="news.asp?page=<%=epage+5%>"><%=epage+5%></a>&nbsp;
<a href="news.asp?page=<%=epage+6%>"><%=epage+6%></a>&nbsp;
<a href="news.asp?page=<%=epage+7%>">のページ</a>&nbsp;
<a href="news.asp?page=<%=pagec%>">最後に</a>&nbsp;<% end if%></div>
		</div>
	</div>
<!--#include file="web_bottom.asp"-->
</body>
</html>
