<!--#include file="Inc/conn.asp"-->
<!--#include file="Inc/Function_Page.asp"-->
<!--#include file="Inc.asp"-->
<%
Dim ID
ID=LaoYRequest(request("id"))
If ID="" then
Call Alert("不正确的ID","Index.asp")
end if
set rsclass=server.createobject("adodb.recordset")
sql="select * from Yao_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
%>

<!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")%>" />
<meta name="description" content="<%=rsclass("ReadMe")%>" />
<link href="<%=SitePath%>images/bjsyjsw<%=Css%>.css" ID="skin" type=text/css rel=stylesheet>
<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>

<!-- //包含头部文件-->
<%=Head%>


<div class="mw">

	<!-- //导航-->
	<div class="dh">
		<%=search%>您现在的位置：<a href="<%=SitePath%>">首页</a> >> <%If rsclass("TopID")>0 then%><a href="<%=IIF(Html=3,""&SitePath&"news/news_"&rsclass("TopID")&".html",""&SitePath&"news.asp?ID="&rsclass("TopID")&"")%>"><%=Classlist(rsclass("TopID"))%></a> >> <%End if%><a href="<%=IIF(Html=3,""&SitePath&"news/news_"&ID&".html",""&SitePath&"news.asp?ID="&ID&"")%>"><%=rsclass("ClassName")%></a> >> 列表
    </div>
	
	<!-- //left-->
	<div id="nw_left">
	
		<%If Mydb("Select Count([ID]) From ["&tbname&"_Class] Where TopID="&ID&"",1)(0)>0 then%>
		<div id="web2l" style="border:0px;">
			<%
		    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
			Do while not Rspp.Eof
			%>
			<div id="sclass">
				<h6><span><a href="<%=IIF(Html=3,""&SitePath&"news/news_"&rspp("ID")&".html",""&SitePath&"news.asp?ID="&rspp("ID")&"")%>">more...</a></span><a href="<%=IIF(Html=3,""&SitePath&"news/news_"&rspp("ID")&".html",""&SitePath&"news.asp?ID="&rspp("ID")&"")%>"><%=rspp("ClassName")%></a></h6>
				<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 id="web2l">
        	<h6><%=rsclass("ClassName")%></h6>
			<div id="content">
            	<ul id="listul">
				<%
				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 style="border-bottom:1px dashed #CCCCCC;">
				<!-- //img-->
				<% if artlist=0 then%>
				
				<%if rs("Images")<>"" then%>
				<div style="float:left;margin:5px 5px 0 5px;"><img src="<%=SitePath%><%=SiteUp%>/<%if IsAspJpeg=1 then Response.Write("s90/") End if%><%=rs("Images")%>" style="width:90px;height:90px;"/></div>
				<%else%>
				<div style="float:left;margin:5px 5px 0 5px;"><img src="<%=SitePath%>Images/bjsyjswcms.jpg" style="width:90px;height:90px;"/></div>
				<%end if%>
				
				<%end if%>
				
				<!-- //ding-->
				<%If rs("IsTop")=1 then Response.Write("<font color=red>[顶]</font>") end if%>
				
				<a href="<%If html=1 then Response.Write(""&SitePath&"article.asp?ID="&rs("ID")&"") else:if html=2 then Response.Write(""&SitePath&"article/?"&rs("ID")&".html") else:if html=3 then Response.Write(""&SitePath&"article/"&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>
				
				</li>
				
				<%If artlist=0 then%>
                <div class="box" style="height:65px;"><%=left(LoseHtml(rs("Artdescription")),90)%>...</div>
				<%End if%>
				
<%
        rs.movenext
    else
         exit for
    end if
next
%>
				</ul>
			</div>
			<div id="clear"></div>
			<div id="page">
				<ul>
				<%=mypage.showpage()%>
				</ul>
			</div>
        </div>
<%
rs.close
set rs=nothing
end if
%>
	</div>
	
	<!-- //right-->
	<div id="nw_right">
		<%Call ShowAD(3)%>
        <div id="web2r">
			<h5>热门信息</h5>
			<ul id="list10">
            	<%Call ShowArticle(ID,10,5,"·",100,"no","Hits desc,ID desc",0,0)%>
            </ul>
  		</div>
		<%Call ShowAD(4)%>
        <div id="web2r">
			<h5>图片推荐</h5>
			<ul class="topimg">
                <%Call ShowImgArticle(ID,4,10,"no","DateAndTime desc,ID desc")%>
            </ul>
  		</div>
	</div>
</div>
<%=Copy%>
<%
rsclass.close
set rsclass=nothing
end if%></div>
</body>
</html>