<!--#include file="Inc/newsconn.asp"-->
<!--#include file="newsInc.asp"-->
<!--#include file="inc/jle_sub.asp"-->
<!--#include file="inc/function.asp"-->
<!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">
<title><%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="gb2312">
<meta name="keywords" content="<%=metakey%>"/>
<meta name="description" content="<%=metades%>" />
<link rel="stylesheet" type="text/css" href="css/style.css" />
</head>
<body>
<% call top()%>



<div class="mwall">

<%=Menu%><div class="mw">
<div class="dh">
		您现在的位置：<a href=""><%=SiteTitle%></a> >> 首页
</div>
	<div id="ileft1">
				<script type="text/javascript">
				var swf_width=250;
				var swf_height=202;
				var config='5|0xffffff|0x009900|80|0xffffff|0xff0000|0x009900';
				//-- config 参数设置 -- 自动播放时间(秒)|文字颜色|文字背景色|文字背景透明度|按键数字颜色|当前按键颜色|普通按键色彩 --
				var files='',links='', texts='';<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top "&IsHomeimg&" ID,Title,Images from jle_Article where yn = 0 and IsFlash=1 and Images<>'' order by ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then 
do while not (rs1.eof or err) 
%>
				files+='|<%=SiteUp%>/<%if IsAspJpeg=1 then Response.Write("s250/") End if%>/<%=rs1("Images")%>';links+='|<%=IIF(html=1,"NewsList.asp?ID="&rs1("ID")&"","Html/?"&rs1("ID")&".html")%>';texts+='|<%=LoseHtml(rs1("Title"))%>'; <%
  rs1.movenext
  loop
  end if
  rs1.close
  set rs1=nothing
  %>
				files=files.substring(1);links=links.substring(1);texts=texts.substring(1);
				document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ swf_width +'" height="'+ swf_height +'">');
				document.write('<param name="movie" value="images/swfnews.swf" />');
				document.write('<param name="quality" value="high" />');
				document.write('<param name="menu" value="false" />');
				document.write('<param name=wmode value="opaque" />');
				document.write('<param name="FlashVars" value="config='+config+'&bcastr_flie='+files+'&bcastr_link='+links+'&bcastr_title='+texts+'" />');
				document.write('<embed src="images/swfnews.swf" wmode="opaque" FlashVars="config='+config+'&bcastr_flie='+files+'&bcastr_link='+links+'&bcastr_title='+texts+'& menu="false" quality="high" width="'+ swf_width +'" height="'+ swf_height +'" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');
				document.write('</object>');
				</script>
                <div id="ilist250" style="margin-top:4px;">
				<h6>本网推荐</h6>
				<ul>
					<%
					Call ShowArticle(0,10,5,"·",100,"IsHot=1","ID Desc",0,1)
					%>
				</ul>
				</div>
	</div>
	<div id="icenter1">
    	<div class="notice">
        	<div style="padding-top:2px;"><b>站内公告：</b></div>
            <div style="padding-top:5px;"><script type="text/javascript" src="inc/marquee.js"></script> 
                <ul id="laonotic">
            		<%Call ShowArticle(Noticid,NoticNum,5,"·",100,"no","ID desc",0,1)%>
                </ul>
                <script type="text/javascript">
				<!--
				new Marquee("laonotic",0,5,400,20,50,3000,3000)
				//-->
				</script>
            </div>
		</div>
    	<div class="topnews">
			<%
            set rs1=server.createobject("ADODB.Recordset")
            sql1="select Top 1 ID,Title,Images,ArtDescription,TitleFontColor from jle_Article where yn = 0 and IsTop = 1 and IsHot = 1 order by DateAndTime desc"
            rs1.open sql1,conn,1,3
            If Not rs1.Eof Then 
            do while not (rs1.eof or err) 
            %><h4><a href="<%If html=1 then Response.Write("NewsList.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>"><%If rs1("TitleFontColor")<>"" then Response.Write("<font style=""color:"&rs1("TitleFontColor")&""">") End if%><%=rs1("Title")%><%If rs1("TitleFontColor")<>"" then Response.Write("</font>") End if%></a></h4>
              <div class="topjx">　　<%=left(LoseHtml(rs1("ArtDescription")),100)%>……[<a href="<%If html=1 then Response.Write("NewsList.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>">详细</a>]</div>
            <%
              rs1.movenext
              loop
              end if
              rs1.close
              set rs1=nothing
            %>
		</div>
		<div id="clear"></div>

        <div id="toplist">
			<ul>
            <%Call ShowArticle(0,10,5,"·",100,"classid<>"&noticid&"","DateAndTime desc,ID desc",1,1)%>
            </ul>
        </div>
	</div>
	<div id="iright">
 
	    <div class="nTableft">
      	<div class="TabTitleleft">
      		<ul id="myTab1">
					<li class="active" onMouseOver="nTabs(this,0);">一周排行</li>
        			<li class="normal" onMouseOver="nTabs(this,1);">今日排行</li>
      		</ul>
    	</div>
		<div id="myTab1_Content0" style="clear:both;">
			<ul id="Artlist10num">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 10 ID,Title,Content,DateAndTime,Hits from jle_Article where yn = 0 and datediff('d',DateAndTime,Now()) <= 7 order by Hits desc,ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then 
NoI=0
do while not (rs1.eof or err)
NoI=NoI+1
%>
        			<li style="background:url(images/num/<%=NoI%>.gif) 2px 4px no-repeat;"><span><%=FormatDate(rs1("DateAndTime"),5)%></span><a href="<%If html=1 then Response.Write("NewsList.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" title="<%=rs1("Title")%>"><%=rs1("Title")%></a></li>
<%
  rs1.movenext
  loop
  else
  Response.Write("没有")
  end if
  rs1.close
  set rs1=nothing
%>
            </ul>
   		</div>
  		<div id="myTab1_Content1" class="none" style="clear:both;">
			<ul id="Artlist10num">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 10 ID,Title,Content,DateAndTime,Hits from jle_Article where yn = 0 order by DateAndTime desc,Hits desc,ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then 
NoI=0
do while not (rs1.eof or err)
NoI=NoI+1
%>
        			<li style="background:url(images/num/<%=NoI%>.gif) 2px 4px no-repeat;"><span><%=FormatDate(rs1("DateAndTime"),5)%></span><a href="<%If html=1 then Response.Write("NewsList.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" title="<%=rs1("Title")%>"><%=rs1("Title")%></a></li>
<%
  rs1.movenext
  loop
  else
  Response.Write("没有")
  end if
  rs1.close
  set rs1=nothing
%>
            </ul>
		</div>
  		</div>
	</div>
</div>

<div class="mw">
   <table width="980" border="0" cellspacing="0" cellpadding="0" align="center">
<tr><td class="news_tbg"></td></tr>
  <tr>
    <td width="980" valign="top" style="border:#ecc493 1px solid">
<%
Dim rs888,rs8881
NoI=0
set rs888=conn.execute("select ID,ClassName,IndexNum,Indeximg from jle_Class Where IsIndex = 1 And link=0 order by num asc")
do while not rs888.eof
NoI=NoI+1%>
<table width="312" border="0" cellspacing="0" cellpadding="0" class="tablestnews1">
<tr><td class="tablest4"><a href="<%
If Html=3 then
	Response.Write("Class_"&rs888(0)&".html")
Else
	Response.Write("Class.asp?ID="&rs888(0)&"")
End if%>
">more...</a></span><a href="<%
If Html=3 then
	Response.Write("Class_"&rs888(0)&".html")
Else
	Response.Write("Class.asp?ID="&rs888(0)&"")
End if%>
"><%=rs888(1)%></a></td></tr>
<tr><td >
<%
	If rs888(3)=1 then%>
    
    <ul id="indeximg2">
	
	<%
	Call ShowImgArticle(rs888(0),3,60,"no","DateAndTime desc,ID desc")
	%></ul><%
	End if%>
    
    
    
    
    
    <ul class="newsleftlist">
	
	
	<%
Call ShowArticle(rs888(0),rs888(2),5,"·",19,"no","DateAndTime desc,ID desc",0,1)%>
</ul></tr></table><%
	
rs888.movenext
loop
rs888.close:set rs888=nothing
%>	
</td>
  </tr>
</table>

	<%If indexnum>0 then%>
  	<div id="ilist212" style="margin-bottom:4px;">
    	<h6>热门文章</h6>
		<ul>
			<%Call ShowArticle(0,indexnum,0,"·",100,"no","Hits desc,ID desc",0,1)%>
		</ul>
    </div><%End if%>
         
    </div>
</div>


<div id="fade" class="black_overlay"></div> 

</div>
</div>
</div>
</body>
</html>