<!--#include file="Inc/syscode.asp"-->
<%
'请勿改动下面这三行代码
const ChannelID=2
Const ShowRunTime="Yes"
MaxPerPage=20
strFileName="ShowClass.asp?ClassID=" & ClassID & "&SpecialID=" & SpecialID
Set rsArticle= Server.CreateObject("ADODB.Recordset")
Set rsPic= Server.CreateObject("ADODB.Recordset")
%>
<html>
<head>
<title><%=strPageTitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/Skin_CSS.asp"-->
<%call MenuJS()%>
<link rel="stylesheet" href="1.css" type="text/css">
</head>
<body <%=Body_Label%> onmousemove='HideMenu()'>
<!--#include file="Top.asp"--> <%
dim sqlRoot,rsRoot,trs,arrClassID,TitleStr
sqlRoot="select C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,L.LayoutID,C.Child,C.ParentPath From ArticleClass C inner join Layout L on C.LayoutID=L.LayoutID where C.ParentID=" & ClassID & " and C.IsElite=True and C.LinkUrl='' and C.BrowsePurview>=" & UserLevel & " order by C.OrderID"
Set rsRoot= Server.CreateObject("ADODB.Recordset")
rsRoot.open sqlRoot,conn,1,1
%> <table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="border2"> 
<tr> <td width="180" align="left" valign="top" class="tdbg_leftall" bgcolor="#FFFFFF"> <TABLE cellSpacing=0 cellPadding=0 width="100%" border="0"> 
<TR class="title_left"> <TD align="center"><table width="100%" border="0" cellspacing="0" cellpadding="0"> 
<tr> <td class="title_lefttxt"><IMG SRC="images/4.gif"></td></tr> </table></TD></TR> 
<TR> <TD height="80" valign="top" class="tdbg_left"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5"> 
<tr> <td valign="top" bgcolor="#FFFFFF"> <% call ShowUserLogin() %> </td></tr> </table></TD></TR> 
<tr class="title_left" align='center'> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> 
<tr> <td class="title_lefttxt"><div align="center"><IMG SRC="images/10.gif" WIDTH="191" HEIGHT="38"></div></td></tr> 
</table></td><tr class='tdbg_left'> <td height="100" valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5"> 
<tr> <td valign="top" bgcolor="#FFFFFF"> <% call ShowSpecial(10) %> </td></tr> </table></td></tr> 
<tr class="title_left" align='center'> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> 
<tr> <td class="title_lefttxt"><div align="center"><IMG SRC="images/9.gif" WIDTH="191" HEIGHT="38"></div></td></tr> 
</table></td><tr class='tdbg_left'> <td height="120" valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5"> 
<tr> <td valign="top" bgcolor="#FFFFFF"> <% call ShowHot(10,16) %> </td></tr> </table></td></tr> 
<tr class="title_left" align='center'> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> 
<tr> <td class="title_lefttxt"><div align="center"><IMG SRC="images/8.gif" WIDTH="191" HEIGHT="38"></div></td></tr> 
</table></td><tr class='tdbg_left'> <td height="135" valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5"> 
<tr> <td valign="top" bgcolor="#FFFFFF"> <% call ShowElite(10,16) %> </td></tr> </table></td></tr> 
<tr class="title_left" align='center'> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> 
<tr> <td class="title_lefttxt"><div align="center"><IMG SRC="images/11.gif" WIDTH="191" HEIGHT="38"></div></td></tr> 
</table></td><tr class='tdbg_left'> <td height="135" valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5"> 
<tr> <td valign="top" bgcolor="#FFFFFF"> <% call ShowPicArticle(ClassID,2,20,1,1,130,90,200,true,false) %> 
</td></tr> </table></td></tr> </table></td><td width="5" bgcolor="#FFFFFF"></td><td width="575" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0"><tr><td> 
<%
	if rsRoot.bof and rsRoot.eof then
	%> <table width="100%" border="0" cellpadding="0" cellspacing="0" class="title_main"> 
<tr> <td width="40">&nbsp;</td><td class="title_maintxt"><%=ClassName%> 文章列表</td></tr> 
</table><table width="100%" border="0" cellpadding="0" cellspacing="5" class="border"> 
<tr> <td height="200" valign="top"> <%call ShowArticle(30)%> </td></tr> </table><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> <td  height="15" align="center" valign="top"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> <td height="13" Class="tdbg_left2"></td></tr> </table></td></tr> </table><%
		  if totalput>0 then
		  	call showpage(strFileName,totalput,MaxPerPage,false,true,"篇文章")
		  end if
		  %> <%
	else
		do while not rsRoot.eof
%> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><table width="100%" border="0" cellpadding="0" cellspacing="0" class="title_main"> 
<tr> <td width="40">&nbsp;</td><td class="title_maintxt"><%
				arrClassID=rsRoot(0)
				response.write "<a href='" & rsRoot(3) & "?ClassID=" & rsRoot(0) & "'>" & rsRoot(1) & "</a>"
				if rsRoot(5)>0 then
					response.write "："
					set trs=conn.execute("select top 4 C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,L.LayoutID From ArticleClass C inner join Layout L on C.LayoutID=L.LayoutID where C.ParentID=" & rsRoot(0) & " and C.IsElite=True and C.LinkUrl=''  and C.BrowsePurview>=" & UserLevel & " order by C.OrderID")
					do while not trs.eof
						response.write "&nbsp;&nbsp;<a href='" & trs(3) & "?ClassID=" & trs(0) & "'>" & trs(1) & "</a>"
						trs.movenext
					loop
					set trs=conn.execute("select ClassID from ArticleClass where ParentID=" & rsRoot(0) & " or ParentPath like '%" & rsRoot(6) & "," & rsRoot(0) & ",%' and Child=0 and LinkUrl='' and BrowsePurview>=" & UserLevel)
					do while not trs.eof
						arrClassID=arrClassID & "," & trs(0)
						trs.movenext
					loop
				end if
				%> </td></tr> </table></td></tr> <tr> <td><table width="100%" border="0" cellpadding="3" cellspacing="0" class="border"> 
<tr> <td width="135" height="100" rowspan="2" align="center" valign="top"> <%
sql="select top 1 A.ArticleID,A.ClassID,L.LayoutID,L.LayoutFileName,A.Title,A.Key,A.Author,A.CopyFrom,A.UpdateTime,A.Editor,A.TitleFontColor,A.TitleFontType,"
sql=sql & "A.Hits,A.OnTop,A.Hot,A.Elite,A.Passed,A.IncludePic,A.Stars,A.PaginationType,A.ReadLevel,A.ReadPoint,A.DefaultPicUrl from Article A"
sql=sql & " inner join Layout L on A.LayoutID=L.LayoutID where A.Deleted=False and A.Passed=True and A.ClassID in (" & arrClassID & ") and DefaultPicUrl<>'' order by A.ArticleID desc"
rsPic.open sql,conn,1,1
if rsPic.bof and  rsPic.eof then
	response.write "<img src='images/nopic.jpg' width=135 height=100 border=0><br>没有任何图片文章"
else
	strPic=""
	call GetPicArticleTitle(20,135,100)
	response.write strPic
end if
rsPic.close
				%> </td><td width="5" rowspan="2">&nbsp;</td><td height="50" colspan="2" valign="top"> 
<%
sql="select top 5 A.ArticleID,A.ClassID,L.LayoutID,L.LayoutFileName,A.Title,A.Key,A.Author,A.CopyFrom,A.UpdateTime,A.Editor,A.TitleFontColor,A.TitleFontType,"
sql=sql & "A.Hits,A.OnTop,A.Hot,A.Elite,A.Passed,A.IncludePic,A.Stars,A.PaginationType,A.ReadLevel,A.ReadPoint,A.DefaultPicUrl from Article A"
sql=sql & " inner join Layout L on A.LayoutID=L.LayoutID where A.Deleted=False and A.Passed=True and A.ClassID in (" & arrClassID & ")  order by A.ArticleID desc"
rsArticle.open sql,conn,1,1
if rsArticle.bof and  rsArticle.eof then
	response.write "<li>没有任何文章</li>"
else
	call ArticleContent(36,True,True,True,1,True,True)
end if
rsArticle.close
				%> </td></tr> <tr> <td width="393" height="20" valign="top"><div align="right"> 
<%response.write "<a href='" & rsRoot(3) & "?ClassID=" & rsRoot(0) & "'>更多&gt;&gt;&gt;</a>"%> 
</div></td><td width="18" valign="top">&nbsp;</td></tr> </table></td></tr> </table><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> <td  height="15" align="center" valign="top"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> <td height="13" Class="tdbg_left2"></td></tr> </table></td></tr> </table><%
			rsRoot.movenext
		loop
	end if
	rsRoot.close
	set rsRoot=nothing
%> <table width='100%' border='0'cellpadding='0' cellspacing='0'  > <tr class="title_main" align='center'> 
<td><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><table width="100%" border="0" cellpadding="0" cellspacing="0" class="title_main"> 
<tr> <td width="40">&nbsp;</td><td class="title_maintxt">最新热门图片</td></tr> </table></td></tr> 
</table></td><tr> <td height="80" valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5" class="border"> 
<tr> <td valign="top"> <% call ShowPicArticle(0,4,20,1,4,130,90,200,true,false) %> 
</td></tr> </table></td></tr> </table><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> <td  height="15" align="center" valign="top"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> <td height="13" Class="tdbg_left2"></td></tr> </table></td></tr> </table><table width='100%' border='0'cellpadding='2' cellspacing='0'> 
<tr class='tdbg_leftall'> <td width="18%" class="title_maintxt"> <div align="center">文章搜索：</div></td><td width="82%"> 
<% call ShowSearchForm("Search.asp",2) %> </td></tr> </table></td></tr></table></td></tr> 
</table><table width="760" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> <td  height="13" align="center" valign="top"><table width="755" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> <td height="13" Class="tdbg_left2"></td></tr> </table></td></tr> </table><% call Bottom() %> 
<% call PopAnnouceWindow(400,300) %> 
</body>
</html>
<%
set rsArticle=nothing
set rsPic=nothing
call CloseConn()
%>