<!--#include file="Inc/newsconn.asp"-->
<!--#include file="Inc/Function_Page.asp"-->
<!--#include file="newsInc.asp"-->
<%
Dim ID
ID=jleRequest(request("id"))
If ID="" then
Call Alert("不正确的ID","Index.asp")
end if
set rsclass=server.createobject("adodb.recordset")
sql="select * from jle_Class where id="&id
rsclass.open sql,conn,1,1
if rsclass.eof and rsclass.bof then
Call Alert("不正确的ID","Index.asp")
else
if rsclass("Link")=1 then
Response.Redirect ""&laoy(rsclass("Url"))&""
End if
%>
<!--#include file="jle_common.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="config.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" />

<SCRIPT src="inc/sinaflash.js" type="text/javascript"></SCRIPT>
<SCRIPT src="inc/jquery.min.js" type="text/javascript"></SCRIPT>
<script type="text/javascript" src="js/jquery.js"></script>
<link href="css/css.css" type="text/css" rel="stylesheet">
<style type="text/css">
<!--
#apDiv1 {
	position:absolute;
	width:149px;
	height:31px;
	z-index:6;
	left: 798px;
	top: 32px; font-family:"微软雅黑";
}
-->
</style>
</head>
<body>
<%call top()%>
<br />
<table width="1300" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td  valign="top"  class="tablest"><%If Mydb("Select Count([ID]) From [jle_Class] Where TopID="&ID&"",1)(0)>0 then%>
		
<%else%>
		
     <table width="100%" border="0" cellspacing="0" cellpadding="0" class="tablest2">
  <tr>
    <td style="padding-left:20px;"><a href=""><font color="#FF0000"><%=rsclass("ClassName")%></font></a></td>
  </tr>
</table>
     
       <div class="newslistb" style="padding:10px;"><ul> 
        
	

<%
Set mypage=new xdownpage
mypage.getconn=conn
mypage.getsql="Select ID,Title,DateAndTime,Hits,IsTop,Images,TitleFontColor,Artdescription from jle_Article Where ClassID="&rsclass("ID")&" and yn=0 order by IsTop desc,DateAndTime desc"
mypage.pagesize=artlistnum
set rs=mypage.getrs()
for i=1 to mypage.pagesize
    if not rs.eof then 
%>
				<li style="border-bottom:1px dashed #ccc; margin-bottom:6px; padding:9px;"><%If rs("IsTop")=1 then Response.Write("<font color=red>[顶]</font>") end if%><a href="<%If html=1 then Response.Write("NewsList.asp?ID="&rs("ID")&"") else:if html=2 then Response.Write("Html/?"&rs("ID")&".html") else:if html=3 then Response.Write("Html/"&rs("ID")&".html") End if%>" target="_blank" class="bar2"><%if rs("TitleFontColor")<>"" then Response.Write("<font style=""color:"&rs("TitleFontColor")&""">"&rs("Title")&"</font>") else Response.Write(""&rs("Title")&"") end if%></a>
				</li>
				<%If artlist=0 then%>
  <div  style="text-indent:2em; color:#7B7B7B;"><%=left(LoseHtml(rs("Artdescription")),90)%>...</div><%End if%>
<%
        rs.movenext
    else
         exit for
    end if
next
%></ul></div>
<Br />
<div id="page">
	<ul>
    <%=mypage.showpage()%>
    </ul>
</div>
<Br />
    <%
rs.close
set rs=nothing
end if
%></td>
    <td width="8"></td>
    <td width="270" valign="top" bgcolor="#F6FBFD" style="border-left:1px #C5D8E6 dotted;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="40" bgcolor="#229DD7" class="fontgg" style="padding-left:15px;">本类热门</td>
        </tr>
        <tr>
          <td bgcolor="#F6FBFD" style="padding:5px;"><div class="newsleftlis">
            <ul style="padding:0; margin:0; list-style:none;">
              <%Call ShowArticle(ID,10,5,"·",20,"no","Hits desc,ID desc",0,0)%>
            </ul>
          </div></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="40" bgcolor="#229DD7" class="fontgg" style="padding-left:15px;">本类推荐</td>
        </tr>
        <tr>
          <td bgcolor="#F6FBFD" style="padding:5px;"><div class="newsleftlist" style="width:273px;">
            <ul style="padding:0; margin:0; list-style:none;">
              <%Call ShowImgArticle(ID,4,7,"no","DateAndTime desc,ID desc")%>
            </ul>
          </div></td>
        </tr>
      </table></td>
  </tr>
</table>


</div>

<%
rsclass.close
set rsclass=nothing
end if%></div>
<%
call bottom()
%>
</body>
</html>