<!--#include file="Inc/conn.asp"-->
<!--#include file="Inc/Function_Page.asp"-->
<!--#include file="Inc.asp"-->
<%
Dim ID
ID=Angel_aspRequest(request("id"))
If ID="" then
Call Alert("不正确的ID","Index.asp")
end if
set rsclass=server.createobject("adodb.recordset")
sql="select * from "&tbname&"_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 ""&Angel_asp(rsclass("Url"))&""
End if
%><!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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="keywords" content="<%=rsclass("keyword")%>-powered by angelasp.com" />
<meta name="description" content="<%=rsclass("ReadMe")%>-powered by angelasp.com" />
<link href="<% =SitePath %>css/indexstyle.css" rel="stylesheet" type="text/css">
<link rel="stylesheet" type="text/css" href="<% =SitePath %>css/common.2014.css" />
<link rel="stylesheet" type="text/css" href="<% =SitePath %>css/article.css" />
<link rel="shortcut icon" href="<%=SitePath%>images/myfav.ico" type="image/x-icon" />
<script type="text/javascript" src="<%=SitePath%>inc/main.asp"></script>
<title><%=rsclass("ClassName")%><%=IIF(rsclass("ClassName2")<>"","-"&rsclass("ClassName2")&"-","-")%><%=SiteTitle%></title>
</head>
<body>
<div class="mwall">
<%=Head%>
<%=Menu%>
<div class="content">
        <div class="conlist">
            <!--位置导航-->
            <div class="add_link">




                <p class="fr"><a href="<%=SitePath%>" target="_blank"><% =SiteTitle %></a></p>
				<p class="fl">
				<%=search%><strong>您现在的位置：</strong><a href="Index.asp">首页</a> >> <%If rsclass("TopID")>0 then%><a href="<%=IIF(Html=3,"Class_"&rsclass("TopID")&".html","Article_Class.asp?ID="&rsclass("TopID")&"")%>"><%=Classlist(rsclass("TopID"))%></a> >> <%End if%><a href="<%=IIF(Html=3,"Class_"&ID&".html","Article_Class.asp?ID="&ID&"")%>"><%=rsclass("ClassName")%></a> >> 列表 </p>


            </div>
            
 <!--横幅通栏广告-->
<div style="position:relative; overflow: hidden; text-align:center; padding-top:5px;">
    <div id="baidu_ad_671078"></div>
</div>
 

<%If Mydb("Select Count([ID]) From ["&tbname&"_Class] Where TopID="&ID&"",1)(0)>0 then%>
<div class="txt_list">
	
		<%
		    Sqlpp ="select [ID],[ClassName] from "&tbname&"_Class Where TopID="&ID&" order by num"
   			Set Rspp=server.CreateObject("adodb.recordset")
   			rspp.open sqlpp,conn,1,1
			NoI=0
			Do while not Rspp.Eof
			NoI=NoI+1
%>
			<div id="sclass" class="borderall"<%'If isEven(NoI)=0 then Response.Write(" style=""margin-left:8px;""") End if%>>
				<h1 style="padding-top:10px;padding-left:10px;clear:both;height:30px;"><span style="width:200px;float:left;display:block;height:30px;padding-top:3px;"><a href="<%=SitePath%><%=IIF(Html=3,"Class_"&rspp("ID")&".html","Article_Class.asp?ID="&rspp("ID")&"")%>"><%=rspp("ClassName")%></a></span><span style="width:100px;float:right;display:block;height:30px;padding-top:3px;"><%If rss=1 then%><a href="http://<%=SiteUrl%><%=SitePath%>Rss/Rss<%=rspp("ID")%>.xml" target="_blank"><img src="images/rss.gif" title="订阅<%=rspp("ClassName")%>(RSS 2.0)" style="margin:0 0 0 30px;"/></a><%End if%></span></h1>
				<ul>
					<%Call ShowArticle(rspp("id"),10,5,"·",100,"no","DateAndTime desc,ID desc",0,0)%>
				</ul>
			</div><%
			Rspp.Movenext
      		Loop
   			rspp.close
   			set rspp=nothing
%>
</div>

<%else%>

<div class="tit_pg clearfix">
    <h2><%=rsclass("ClassName")%></h2>
</div>

<div class="txt_list">
    <ul id="ulNewsList">
<%
Set mypage=new xdownpage
mypage.getconn=conn
mypage.getsql="Select ID,Title,DateAndTime,Hits,IsTop,Images,TitleFontColor,Artdescription from "&tbname&"_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>
<dl>
<dt>                    
<%If rs("IsTop")=1 then Response.Write("<font color=red>[置顶]</font>") end if%><a href="<%If html=1 then Response.Write("Article_List.asp?ID="&rs("ID")&"") else:if html=2 then Response.Write("News/?"&rs("ID")&".html") else:if html=3 then Response.Write("News/"&rs("ID")&".html") End if%>" target="_blank"><%if rs("TitleFontColor")<>"" then Response.Write("<font style=""color:"&rs("TitleFontColor")&""">"&rs("Title")&"</font>") else Response.Write(""&rs("Title")&"") end if%></a>
<span style="color:#AAA;font-size:12px;"><%=FormatDate(rs("DateAndTime"),11)%> 点击：<%=rs("Hits")%> 评论:<%=Mydb("Select Count([ID]) From ["&tbname&"_Pl] Where yn=0 And ArticleID="&ID&"",1)(0)%></span>
</dt>
<%If artlist=0 then%>
<dd <%if rs("Images")<>"" then Response.Write(" style=""height:65px;""") end if%>><%=left(LoseHtml(rs("Artdescription")),86)%>...<span><a href="<%If html=1 then Response.Write("Article_List.asp?ID="&rs("ID")&"") else:if html=2 then Response.Write("News/?"&rs("ID")&".html") else:if html=3 then Response.Write("News/"&rs("ID")&".html") End if%>" target="_blank">[全文]</a></span>                       
</dd>
<%End if%>
</dl>
</li>


<%
        rs.movenext
    else
         exit for
    end if
next
%>
    </ul>
</div>

 <div id="page" class="page">
	<ul>
    <%=mypage.showpage()%>
    </ul>
</div>

<%
rs.close
set rs=nothing
end if
%>

<script type="text/javascript">  
    function doSearch(val) {
        if (val == '') {
            sDialog.activeMsg("keyword", "请输入查询关键词！", "L", 120, 2000, "slide-R");
            return;
        }
        QZFMSubmit('/index.php?m=search&c=index&a=init&typeid=1&siteid=1&q=' + val);
    }
    $(function () {
        $('#ulNewsList').children("li").bind("mouseenter", function () {
            $(this).css("background", "#F6FCFF");
        }).bind("mouseleave", function () {
            $(this).css("background", "");
        });
        $('#ulNewsList').find("img[original]").lazyload({
            placeholder: defImg,
            effect: 'fadeIn',
            threshold: 80
        });
    });
</script>
        </div>
        <div class="sider">
<!--总排行-->
<div class="mod_side">
    <div class="tit">新闻总排行</div>
    <div class="tab_cont">
<ol class="txt_list">
     	<%Call ShowArticle(ID,10,5,"·",100,"no","Hits desc,ID desc",0,0)%>
</ol>
    </div>
</div>
 
<div  class="side_ad" style="margin-bottom:15px;height:250px;">
<%Call ShowAD(3)%>
</div>
 
<!--本月排行-->
<div class="mod_side">
    <div class="tit">本月排行</div>
    <div class="tab_cont">
<ol class="txt_list">

     	<%Call ShowArticle(ID,10,5,"·",100,"no","Hits desc,ID desc",0,0)%>


</ol>
    </div>
</div>
 
<!--图片-->
<div class="mod_side">
    <div class="tit">最新图片</div>
    <ul class="pics_list">
 <%Call ShowImgArticle(ID,6,10,"no","DateAndTime desc,ID desc")%>
</ul>
</div>
 
<script type="text/javascript"> 
    $(document).ready(function () {
        //图片延迟加载
        $('div.mod_side').find("img[original]").lazyload({
            placeholder: defImg,
            effect: 'fadeIn',
            threshold: 100
        });
    });
</script>
 
 
        </div>
    </div>    

<%=Copy%>
<%
rsclass.close
set rsclass=nothing
end if%></div>
</body>
</html>