<%
Function Head
%>
<div class="head">
     <div class="lSide">
          <div class="logo">
                <h1><a href="http://<%=SiteUrl%>/" style="background-image:url('<%=sitelogo%>')" class="jyw" target="_self"><span>东方财经观察河北频道</span></a></h1>
                <div class="info">
                    <div class="ycwb"></div>
                    <div class="weather">
	                 <script type="text/javascript" src="<%=SitePath%>js/rl.js"></script>
				    </div>
                </div>
          </div>
     </div>
     <div class="rSide">
          <div class="topNav">
               <A onclick="var strHref=window.location.href;this.style.behavior='url(#default#homepage)';this.setHomePage('http://<%=SiteUrl%><%=SitePath%>');" href="#" rel="nofollow">设为首页</a>
               <A href="javascript:window.external.addFavorite(window.location.href,'http://<%=SiteUrl%>/')"rel="nofollow">加入收藏</A>
               <a href="<%=SitePath%><%=IIF(Html=3,"About_1.html","About.asp?ID=6")%>" target="_blank">关于我们</a>
               <a href="<%=SitePath%><%=IIF(Html=3,"About_16.html","About.asp?ID=16")%>" rel="nofollow">联系我们</a>
               <a id="StranLink">繁体中文浏览</a>
          </div>
          <div class="slBox">
               <div class="search">
		  <form method="post" action="<%=SitePath%>index.asp?action=search" target="_blank">
                    <input type="text" name="KeyWord" id="KeyWord" class="sText"  value="<%=keyword%>" size="55">
                    <input class="sBtn" name="submit" type="submit"  value="">
                 </form> 
               </div>
               <div class="login">
               <script type="text/javascript" src="<%=SitePath%>inc/login.asp"></script>
               </div>
          </div>
        </div>
	</div> 
<!--头部 end-->
<!--导航条 start-->
<div class="nav">
     <div class="navBox">
          <div class="navLink">
<%Call Nvationlist(2,3,6,1) %>

         </div>
          <div class="border"></div>
          <div class="navLink">
<%Call Nvationlist(2,3,6,0) %>
          </div>
          <div class="border"></div>
          <div class="navLink">
<%Call Nvationlist(2,3,12,0) %>     
          </div>
          <div class="border"></div>
          <div class="navLink">
<%Call Nvationlist(2,3,18,0) %>    
          </div>

          <div class="szb">
               <a href="<%=SitePath%>Article_Class.asp?ID=70" target="_blank">读<br>图<br>片</a>
          </div>
          <div class="navLink" style="padding-right:3px;">
<%Call Nvationlist(2,2,22,0) %>    
          </div>
		        




     </div>
</div>



	<div class="nav2">		   
			   <div class="navBox">
<div class="nffzxw1">
          <div class="navLink">
<%Call Nvationlist(2,30,30,0) %> 
          </div>
</div>
<div><%Call ShowAD(16)%></div>
</div>
</div>






<%
End Function




Function Nvationlist(trs,tds,numbers,typen)
dim rsn,sqln,tr,td
set rsn = server.createobject("adodb.recordset")
If typen=1 Then 
sqln="select top "&trs*tds&" * from "&tbname&"_Class order by num,ID"
Else 
sqln="select top "&trs*tds&" * from "&tbname&"_Class where id not in(select top "&numbers&" id from "&tbname&"_Class order by num,ID) order by num,ID"
End If 
  rsn.open sqln,conn,1,1
  if rsn.eof then
response.write "暂无导航"
  Else

for tr=1 to trs
%>
 <div class="links">
<%
for td=1 to tds
%>
<% If td=1 Then %>
<a href="<%=SitePath%>Article_Class.asp?ID=<%=rsn("ID")%>" target="_blank"><strong><font color="#FF0000"><%=Left(rsn("ClassName"),4)%></font></strong></a>
<%Else %>
<a href="<%=SitePath%>Article_Class.asp?ID=<%=rsn("ID")%>" target="_blank"><%=Left(rsn("ClassName"),4)%></a>
<%End If %>
<%
          rsn.movenext
          if rsn.eof then exit for
        Next 
		%>
		</div>
		<%
  if rsn.eof then exit for
    Next 
  end if
rsn.close
set rsn=Nothing 
End Function 



%>


<%
Function Copy
%>
<div style="clear:both;"></div>
<div class="foot">
<div class="bottomLink">
<a href="<%=SitePath%><%=IIF(Html=3,"About_1.html","About.asp?ID=6")%>" target="blank">关于我们</a> |
<a href="<%=SitePath%><%=IIF(Html=3,"About_2.html","About.asp?ID=7")%>" target="blank">服务条款</a> |
<a href="<%=SitePath%><%=IIF(Html=3,"About_3.html","About.asp?ID=8")%>" target="blank">法律声明</a> |
<a href="<%=SitePath%><%=IIF(Html=3,"About_4.html","About.asp?ID=9")%>" target="blank">刊登广告</a> |
<a href="<%=SitePath%><%=IIF(Html=3,"About_5.html","guestbook.asp?ac=add")%>" target="blank">在线留言</a> |
<a href="<%=SitePath%><%=IIF(Html=3,"About_6.html","About.asp?ID=11")%>" target="blank">招贤纳士</a> |
<a href="<%=SitePath%><%=IIF(Html=3,"About_7.html","About.asp?ID=12")%>" target="blank">人员认证</a> |
<a href="<%=SitePath%><%=IIF(Html=3,"About_8.html","About.asp?ID=13")%>" target="blank">投诉建议</a> |
<a href="<%=SitePath%><%=IIF(Html=3,"About_9.html","About.asp?ID=10")%>" target="blank">合作加盟</a> |
<a href="<%=SitePath%><%=IIF(Html=3,"About_10.html","About.asp?ID=14")%>" target="blank">版权所有</a> |
<a href="<%=SitePath%>Wap/" target="blank">本站wap手机访问</a>
</div>
<p class="info">
<%
Response.Write(Sitelx) & VbCrLf
Response.Write("<!--<br/>"&SiteTitle&"(<a href=""http://"&SiteUrl&""">"&SiteUrl&"</a>) &copy; "&year(Now)&" 版权所有 All Rights Reserved.") & VbCrLf
Response.Write("<br/>"&Sitelx&" <a href=""http://www.miibeian.gov.cn"" target=""_blank"">"&SiteTcp&"</a>") & VbCrLf
Call Label(2) '统计代码
Response.Write("") & VbCrLf
Response.Write("-->") & VbCrLf
%>
<script type="text/javascript">
var _bdhmProtocol = (("https:" == document.location.protocol) ? " https://" : " http://");
document.write(unescape("%3Cscript src='" + _bdhmProtocol + "hm.baidu.com/h.js%3F2cd0f2d239d750a25d45b9127b29c53f' type='text/javascript'%3E%3C/script%3E"));
</script>
</p>
</div>
<script language="javascript" src="<%=SitePath%>js/Std_StranJF.Js"></script>
<%
Conn.Close : Set Conn = Nothing	
End function
%>
<!--#include file="noangelql.asp"-->