<!--#include file="conn.asp" -->
<%
strCurrMenu="60"
ThisPage=request.ServerVariables("URL")
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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="common/style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
@import url("css.css");
-->
</style>

</head>


<body bgcolor="#CCCCCC" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" BodyBegin>
<!--#include file="top.asp" -->

<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="239" valign="top" background="images/fen left bei .JPG">
<table width="239" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><table width="239" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td><table width="239" height="47" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td align="center" background="images/fen left 1.JPG">
<table width="163" height="46" border="0" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td height="46" align="center" valign="bottom" class="t">新闻动态分类</td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table></td>
              </tr>
              <tr>
                <td><table width="239" height="25" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td height="20" align="center" background="images/fen left bei 1 .JPG"><table width="89%" height="10" border="0" cellpadding="0" cellspacing="0">
                        <%
									'开始输出分类
									strcode=""
									for i=1 to Len(SourCode) \ 4
									strcode=strcode&" or c_code like '"&left(SourCode,i*4)&"____'"
									next
									if strcode<>"" then
									strcode="(1<>1"&strcode&" or Len(c_code)=4)"
									else
									strcode=" Len(c_code)=4"
									end if
									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
									Level=(Len(rsClass("c_code"))/4-1)*3
									%>
                        <tr>
                          <td height="26" ><%
			If Len(rsClass("c_code"))>4 Then Response.Write "├"
			Response.Write String(Level,"-")
			%>
                            <a href="?class=<%=rsClass("id")%>&classname=<%=trim(rsClass("c_name"))%>"><%=trim(rsClass("c_name"))%></a></td>
                        </tr>
                        <%
						rsClass.movenext
					next
					%>
                      </table></td>
                    </tr>
                  </table></td>
              </tr>
              <tr>
                <td><table width="239" height="35" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td background="images/fen left 2.JPG"><table width="220" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td width="220" height="18" align="right" class="t">详细</td>
                          </tr>
                        </table></td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
		      <%
							isVote=GetKey("Enable",WebUserID,"vote")
							if isVote="Yes" then
							%>
        <tr>
          <td><table width="239" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td><table width="239" height="47" border="0" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td align="center" background="images/fen left 1.JPG"> <table width="163" height="46" border="0" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td height="46" align="center" valign="bottom" class="t">网上调查</td>
                          </tr>
                        </table></td>
                    </tr>
                  </table></td>
              </tr>
			        <%
							isVote=GetKey("Enable",WebUserID,"vote")
							if isVote="Yes" then
							%>
              <tr> 
                <td><table width="239" height="25" border="0" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td height="20" align="center" background="images/fen left bei 1 .JPG"><script language="JavaScript" src="admin/vote/viewvote.asp"></script></td>
                    </tr>
                  </table></td>
              </tr>
              <tr> 
                <td><table width="239" height="35" border="0" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td background="images/fen left 2.JPG">&nbsp;</td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
		      <%
							  end if
							  %>
        <tr>
          <td><table width="239" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td><table width="239" height="48" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td align="center" background="images/fen left 4.JPG">
<table width="163" height="46" border="0" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td height="46" align="center" valign="bottom" class="t">友情联接</td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table></td>
              </tr>
              <tr>
                <td><table width="239" height="25" border="0" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td height="20" align="center" background="images/fen left bei 1 .JPG"><table width="183" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td width="33" height="20" align="center"><img src="images/fen%20left%20anniu%201.JPG" width="12" height="11"></td>
                            <td width="144" class="t">九天进出口公司</td>
                          </tr>
                          <tr> 
                            <td height="20" align="center"><img src="images/fen%20left%20anniu%201.JPG" width="12" height="11"></td>
                            <td class="t">九天进出口公司</td>
                          </tr>
                          <tr> 
                            <td height="20" align="center"><img src="images/fen%20left%20anniu%201.JPG" width="12" height="11"></td>
                            <td class="t">九天进出口公司</td>
                          </tr>
                          <tr> 
                            <td height="20" align="center"><img src="images/fen%20left%20anniu%201.JPG" width="12" height="11"></td>
                            <td class="t">九天进出口公司</td>
                          </tr>
                        </table></td>
                    </tr>
                  </table></td>
              </tr>
              <tr>
                <td><table width="239" height="35" border="0" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td background="images/fen left 2.JPG">&nbsp;</td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
      </table>
    </td>
    <td width="533" valign="top" background="images/fen right bei .JPG"><table width="539" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><table width="539" height="47" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td background="images/fen right 1.JPG"><table width="153" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width="153" height="35" align="center" valign="bottom" class="t">新闻动态</td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
        <tr>
          <td align="center"><table width="93%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td height="30"><strong> &nbsp;&nbsp;<%=strTitle%>: 共<%=intCount%>个结果</strong></td>
                  </tr>
                </table>
                  <table width="100%" border="0" cellpadding="0" cellspacing="0" class="t">
                    <%
										  '开始输出最新新闻
										   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 width="5%" height="30" align="center"><img src="images/fen 3 anniu .JPG" width="13" height="13"></td>
                      <td width="1%">&nbsp;</td>
                      <td><a href="newshow.asp?id=<%=trim(rs("ID"))%>&mnid=<%=strCurrMenu%>&classname=新闻动态&uppage=<%=ThisPage%>" target="_blank"><%=trim(rs("nTitle"))%></a></td>
                    </tr>
                    <%
											rs.movenext
										next
										%>
                  </table>
                <table width="100%" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td height="30" 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>
          </table></td>
        </tr>
      </table> </td>
  </tr>
</table>
<table width="778" height="38" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="16" background="images/fen up .JPG">&nbsp;</td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF"><table width="471" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="471" height="26" align="right" valign="top" class="t">公司地址：未知<br>电话： E-Mail:sdafdsa@163.com<br>Copyright&copy;2006-2007 test1 All Rights Reserved.<br />

  <%
							iscounter=GetKey("Enable",WebUserID,"counter")
							if iscounter="Yes" then
							%>
您是本站第
<script language="JavaScript" src="admin/count/counter.asp" type="text/javascript"></script>
位访问者
<%end if%></td>
        </tr>
      </table></td>
  </tr>
</table>
</body>
<script language="JavaScript" src="common/init.js"></script>
<script language=Javascript src="common/tranbig5.Js"></script>
</html>



