<% '请勿改动下面这三行代码 const ChannelID=2 Const ShowRunTime="Yes" MaxPerPage=20 strFileName="Article_Class.asp?ClassID=" & ClassID & "&SpecialID=" & SpecialID Set rsArticle= Server.CreateObject("ADODB.Recordset") Set rsPic= Server.CreateObject("ADODB.Recordset") %> <%=strPageTitle%> <%call MenuJS()%> onmousemove='HideMenu()'> <% 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 %>
<%if Child>0 then%> <%end if%>
用 户 登 录
<% call ShowUserLogin() %>
子栏目导航
<% call ShowChildClass(1) %>
专 题 栏 目
<% call ShowSpecial(10) %>
最 新 热 门
<% call ShowHot(10,16) %>
最 新 推 荐
<% call ShowElite(10,16) %>
本 栏 热 图
<% call ShowPicArticle(ClassID,2,10,1,2,70,60,200,true,false) %>
<% if rsRoot.bof and rsRoot.eof then %>
  <%=ClassName%> 文章列表
<%call ShowArticle(30)%>
<% if totalput>0 then call showpage(strFileName,totalput,MaxPerPage,false,true,"篇文章") end if %> <% else do while not rsRoot.eof %>
  <% arrClassID=rsRoot(0) response.write "" & rsRoot(1) & "" 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 "  " & trs(1) & "" 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 %> <%response.write "more..."%>
<% 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 "
没有任何图片文章" else strPic="" call GetPicArticleTitle(20,135,100) response.write strPic end if rsPic.close %>
  <% 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 "
  • 没有任何文章
  • " else call ArticleContent(30,True,True,True,1,True,True) end if rsArticle.close %>
    <% rsRoot.movenext loop end if rsRoot.close set rsRoot=nothing %>
      最新热门图片
    <% call ShowPicArticle(0,4,20,1,4,130,90,200,true,false) %>
      站内文章搜索:
    <% call ShowSearchForm("Article_Search.asp",2) %>
    <% call Bottom() %> <% call PopAnnouceWindow(400,300) %> <% set rsArticle=nothing set rsPic=nothing call CloseConn() %>