<!--#include file="conn.asp" -->
<%
strCurrMenu="⑨menuid⑨"
strQuery=""
strTitle="最新发布"
if GetVariable("class")<>"" then
	SourCode=conn.execute("Select c_code From web_news_class Where mn_id=" & strCurrMenu & " and id="&GetVariable("class"))(0)
	strQuery=strQuery & " And c_code Like '" & SourCode &"%'"
	strTitle=GetVariable("classname")
end if

if GetVariable("key")<>"" then
	strQuery=strQuery & " And (nTitle Like '%" & GetVariable("key") & "%' or nHtmlText like '%" & GetVariable("key") & "%' or nKey like '%" & GetVariable("key") & "%') "
	strTitle="搜索：" & GetVariable("key")
end if

'从这开始读数据
strSQL="Select * From v_web_news Where nAudit<>0 " & strQuery & " And mn_id=" & strCurrMenu & " Order by ID Desc"
rs.open strSQL,conn,1,1
'分页显示初始化
page=GetVariable("page")
if page="" then
	page=1
else
	page=Cint(page)
end if

Section=GetVariable("section")
if Section="" then
	Section=1
else
	Section=Cint(Section)
end if
'变量赋值
intPageSize=15		'每页显示记录数
intSectionSize=5		'多少页为一段，像GOOGLE一样
PrevSectionText="<FONT face=webdings>7</FONT>"		'上一段的链接文字
NextSectionText="<FONT face=webdings>8</FONT>"		'下一段的链接文字
PrevPageText="<FONT face=webdings>3</FONT>"			'上页的链接文字	
NextPageText="<FONT face=webdings>4</FONT>"			'下页的链接文字

strPageUrl="?class=" & GetVariable("class") & "&classname=" & GetVariable("classname") & "&key=" & GetVariable("key") & "&mnid=" & strCurrMenu

rs.pagesize=intPageSize
intCount=rs.RecordCount 
intPageCount=rs.pagecount
intSectionCount=(intPageCount - 1) \ intSectionSize + 1
if intCount>0 then
	rs.AbsolutePage=page 
end if 
%>


<html>
<head>
<title>⑨title⑨</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="common/style.css" type="text/css">
<style>
A:link{ color: #FFFFFF; text-decoration: none;}
A:visited{ color: #FFFFFF; TEXT-DECORATION: none;}
A:active{color: #FFFFFF; TEXT-DECORATION: none;}
A:hover{ color: #FFFFFF; TEXT-DECORATION: underline;}

A.subitem:link{ color: #000000; text-decoration: none;}
A.subitem:visited{ color: #000000; TEXT-DECORATION: none;}
A.subitem:active{color: #000000; TEXT-DECORATION: none;}
A.subitem:hover{ color: #000000; TEXT-DECORATION: underline;}
</style>
</head>

<body bgcolor="#999999" text="#000000" leftmargin="0" topmargin="0" BodyBegin>
<table width="750" border="0" align="center" cellspacing="0" cellpadding="0">
  <tr> 
    <td height="100"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
        <tr> 
          <td height="2"><img src="images/11.gif" width="750" height="18"></td>
        </tr>
        <tr> 
          <td height="300" bgcolor="#FFFFFF" valign="top"> 
            <!--#include file="top.asp"-->
            <table width="720" border="0" cellspacing="0" cellpadding="0" align="center" height="6" bgcolor="#FFFFFF">
              <tr> 
                <td></td>
              </tr>
            </table>
            <table width="720" border="0" cellspacing="0" cellpadding="0" align="center" height="150">
              <tr> 
                <td height="300" bgcolor="#FBF9EC" valign="top"> 
                  <div align="center">
                    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="300">
                      <tr> 
                        <td height="3" bgcolor="#B59B42"></td>
                      </tr>
                      <tr>
                        <td height="300" valign="top"> 
                          <table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#B7A977">
                            <tr> 
                              <td bgcolor="#C4B98E" height="26" width="1%"></td>
                              <td bgcolor="#CFC6A7" height="26" width="1%"></td>
                              <td bgcolor="#EEEBDF" height="26" width="93%" class="unnamed3"> 
                                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                  <tr> 
                                    <td width="4%"><b><font color="#CC0000"><img src="images/chevronDown.gif" width="30" height="28"></font></b></td>
                                    <td width="96%"><b><font color="#CC0000" class="unnamed3">⑨thispage⑨</font></b></td>
                                  </tr>
                                </table></td>
                              <td bgcolor="#DCD6BE" height="26" width="1%%"></td>
                              <td bgcolor="#D0C7A6" height="26" width="1%"></td>
                              <td bgcolor="#C4B991" height="26" width="1%"></td>
                            </tr>
                          </table>
                          <table width="97%" border="0" align="center">
                            <tr> 
                              <td  height="8"></td>
                            </tr>
                            <tr> 
                              <td  height="23">您的位置 : <a class=title01 
            href="."><font color="#000000">首页</font></a> <img src="images/image_24.gif" width="8" height="5"> 
                                <a href="?" class="aBlack">⑨thispage⑨</a> 
                                <%
									strcode=""
									for i=1 to Len(SourCode) \ 4-1
									strcode=strcode&" or c_code ='"&left(SourCode,i*4)&"'"
									next
									strcode="(1<>1"&strcode&")"
									strSQL="Select * From web_news_class Where mn_id=" & strCurrMenu&" and " & strcode & "  Order by c_code"
									'response.Write(strsql)
									Set rsclass=Server.CreateObject("ADODB.RecordSet")
									rsclass.open strSQL,conn,1,1
									for i=1 to rsclass.recordcount
									response.Write(" <img src=""images/image_24.gif"" width=""8"" height=""5""> "&"<a href=""?class="&rsclass("id")&"&classname="&trim(rsclass("c_name"))&""" class=aBlack>"&rsclass("c_name")&"</a>")
									rsclass.movenext
									next
									rsclass.close
									%>
                                <img src="images/image_24.gif" width="8" height="5"><%=strTitle%></td>
                            </tr>
                            <tr> 
                              <td height="1" background="images/linebg.gif"></td>
                            </tr>
                          </table>
                          <table width="100%" border="0" cellspacing="0" cellpadding="8" align="center">
                            <tr> 
                              <td valign="top" height="36"><form name="form1" method="post" action="?mnid=<%=strCurrMenu%>">
                                  <table width="100%" border="0" cellpadding="7" cellspacing="0">
                                    <tr> 
                                      <td height="37" align="center">
								              <%
									'开始输出分类
									strcode=" c_code like '"&SourCode&"____'"
									strSQL="Select * From web_news_class Where mn_id=" & strCurrMenu&" and " & strcode & "  Order by c_code"
									'response.Write(strsql)
									Set rsClass=Server.CreateObject("ADODB.RecordSet")
									rsClass.open strSQL,conn,1,1
									if rsClass.recordcount>0 then
									%>
									  | 
                                          <%
								  for i=1 to rsClass.recordcount
								  %>
                                        <a href="?class=<%=rsClass("id")%>&classname=<%=trim(rsClass("c_name"))%>&mnid=<%=strCurrMenu%>" class="aBlack"><%=trim(rsClass("c_name"))%></a> 
                                        | 
                                        <%
									rsClass.movenext
								next
								%>
                                    <%end if%>
                                      </td>
                                    </tr>
                                    <tr> 
                                      <td height="37" align="center"> 关键字: 
                                        <input name="key" type="text" id="key"> 
                                        <input name="imageField2" type="image" src="images/search.gif" width="53" height="19" border="0"> 
                                      </td>
                                    </tr>
                                  </table>
                                </form></td>
                            </tr>
                            <tr> 
                              <td valign="top"> <table width="83%" border="0" align="center"  cellspacing="0" cellpadding="0">
                                  <%
										  '开始输出最新新闻
										   for i=1 to intPageSize
												if rs.eof then exit For
												if i mod 2 =0 then
													strColor="#FFFFFF"
												else
													strColor="#F9F9F9"
												end if
										  %>
                                  <tr> 
                                    <td height="27">· <a href="newshow.asp?id=<%=trim(rs("ID"))%>&mnid=<%=strCurrMenu%>&classname=⑨thispage⑨" target="_blank" class="aBlack"><%=trim(rs("nTitle"))%></a> 
                                      (<%=Year(rs("nTime")) & "-" & Month(rs("nTime")) & "-" & Day(rs("nTime"))%>) 
                                    </td>
                                  </tr>
                                  <tr> 
                                    <td background="images/line1.gif" height="1"></td>
                                  </tr>
                                  <%
											rs.movenext
										next
										%>
                                </table>
                                <table width="92%" border="0" align="center">
                                  <tr> 
                                    <td height="1" background="images/linebg.gif"></td>
                                  </tr>
                                  <tr> 
                                    <td height="28" align="right" ><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                        <tr> 
                                          <td align="right"> 共有<%=intCount%>记录，分<%=intPageCount%>页，当前页<%=Page%>，每页显示<%=intPageSize%>条记录 
                                            <%
			'计算每一段的开始页
			intStarPage=(Section-2) * intSectionSize + 1
			'前一段
			if Section<=1 then
				response.Write(PrevSectionText & " ")
			else
				response.Write("<a href='" & strPageUrl & "&page=" & intStarPage & "&section=" & Section-1 & "'>" & PrevSectionText & "</a> ")
			end if 
			
			'显示页码列表
			response.Write("第")
			intStarPage=(Section-1) * intSectionSize + 1
		    for p=intStarPage to intStarPage + intSectionSize - 1
				if p > intPageCount then exit for
				if p=page then
		    		response.Write("<strong>[" & p & "]</strong> ")
				else
		    		response.Write("<a href='" & strPageUrl & "&page=" & p & "&section=" & Section & "'>[" & p & "]</a> ")
				end if	
		    next
			response.Write("页")
			'后一段
			intStarPage=(Section) * intSectionSize + 1
			if Section>=intSectionCount then
				response.Write(" " & NextSectionText)
			else
				response.Write(" <a href='" & strPageUrl & "&page=" & intStarPage & "&section=" & Section+1 & "'>" & NextSectionText & "</a> ")
			end if 
		  %>
                                            　 </td>
                                        </tr>
                                      </table></td>
                                  </tr>
                                  <tr> 
                                    <td height="23" align="right" >&nbsp;</td>
                                  </tr>
                                </table></td>
                            </tr>
                          </table>
                          <br></td>
                      </tr>
                    </table>
                  </div>
                </td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td height="13"><img src="images/12.gif" width="750" height="19"></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<div align="center"><font color="#F2F2F2"><br>
  ⑨footnote⑨<br>⑨ICP⑨<br>
  您是本站第<script language="JavaScript" src="admin/count/counter.asp"></script>位访问者</font></div>
  
<script language="JavaScript" src="common/init.js"></script><br><script language=Javascript src="common/tranbig5.Js"></script>
</body>
</html>
