<% '请勿改动下面这三行代码 const ChannelID=2 Const ShowRunTime="Yes" MaxPerPage=20 SkinID=0 PageTitle="首页" Set rsArticle= Server.CreateObject("ADODB.Recordset") Set rsPic= Server.CreateObject("ADODB.Recordset") %> <%=strPageTitle & " >> " & PageTitle%> <%call MenuJS()%> onmousemove='HideMenu()'>
用 户 登 录
<% call ShowUserLogin() %>
最 新 热 门
<% call ShowHot(10,14) %>
专 题 栏 目
<% call ShowSpecial(10) %>
本 站 统 计
<% call ShowSiteCount() %>
用 户 排 行
<% call ShowTopUser(5) %>
最 新 调 查
<% call ShowVote() %>
友 情 链 接
<% call ShowFriendSite(1,10,1,1) %>
<% call ShowFriendSite(2,10,1,3) %>
申请  更多>>>
本站公告:
<% call ShowAnnounce(2,5) %>
 
最新推荐
 
最新热门
 
 
<% call ShowPicArticle(0,1,10,1,1,80,90,200,false,true) %> <% call ShowElite(7,20) %>
 
<% call ShowHot(10,14) %>
 
 
<% call Showad(1) %>
<% dim sqlRoot,rsRoot,trs,arrClassID,TitleStr,ClassCount,iClassID sqlRoot="select C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,L.LayoutID,C.Child,C.Readme From ArticleClass C inner join Layout L on C.LayoutID=L.LayoutID where C.ParentID=0 and IsElite=True and LinkUrl='' order by C.RootID" Set rsRoot= Server.CreateObject("ADODB.Recordset") rsRoot.open sqlRoot,conn,1,1 dim sqlClassAD,rsClassAD,ClassAD sqlClassAD="select * from Advertisement where IsSelected=True" sqlClassAD=sqlClassAD & " and (ChannelID=0 or ChannelID=" & ChannelID & ")" sqlClassAD=sqlClassAD & " and ADType=2 order by ID Desc" set rsClassAD=server.createobject("adodb.recordset") rsClassAD.open sqlClassAD,conn,1,1 if rsRoot.bof and rsRoot.eof then response.Write("还没有任何栏目,请首先添加栏目。") else ClassCount=rsRoot.recordcount iClassID=0 do while not rsRoot.eof %> <% iClassID=iClassID+1 if iClassID mod 2=0 then response.write "" else response.write "" end if rsRoot.movenext loop end if rsRoot.close set rsRoot=nothing %>
  <% arrClassID=rsRoot(0) response.write "" & rsRoot(1) & "" if rsRoot(5)>0 then set trs=conn.execute("select ClassID from ArticleClass where RootID=" & rsRoot(2) & " and Child=0 and LinkUrl=''") do while not trs.eof arrClassID=arrClassID & "," & trs(0) trs.movenext loop end if %> <%response.write "more... "%>
<% sql="select top 8 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.OnTop,A.ArticleID desc" rsArticle.open sql,conn,1,1 if rsArticle.bof and rsArticle.eof then response.write "
  • 没有任何文章
  • " else call ArticleContent(20,True,True,False,1,False,True) end if rsArticle.close %>
    " if not rsClassAD.bof and not rsClassAD.eof then if rsClassAD("isflash")=true then ClassAD= "0 then ClassAD = ClassAD & " width='" & rsClassAD("ImgWidth") & "'" if rsClassAD("ImgHeight")>0 then ClassAD = ClassAD & " height='" & rsClassAD("ImgHeight") & "'" ClassAD = ClassAD & ">0 then ClassAD = ClassAD & " width='" & rsClassAD("ImgWidth") & "'" if rsClassAD("ImgHeight")>0 then ClassAD = ClassAD & " height='" & rsClassAD("ImgHeight") & "'" ClassAD = ClassAD & ">" else ClassAD ="0 then ClassAD = ClassAD & " width='" & rsClassAD("ImgWidth") & "'" if rsClassAD("ImgHeight")>0 then ClassAD = ClassAD & " height='" & rsClassAD("ImgHeight") & "'" ClassAD = ClassAD & " border='0'>" end if response.write ClassAD rsClassAD.movenext end if response.write "
      最新图片文章 www.asp163.net
    <% call ShowPicArticle(0,4,20,1,4,130,90,200,false,false) %>
      栏目导航 www.asp163.net
    <% call ShowClassNavigation() %>
      站内文章搜索:
    <% call ShowSearchForm("Article_Search.asp",2) %>
    <% call Bottom() %> <% call PopAnnouceWindow(400,300) %> <% call ShowAD(0) %> <% call ShowAD(4) %> <% call ShowAD(5) %> <% set rsArticle=nothing set rsPic=nothing call CloseConn() %>