|
|
|
<% call ShowUserLogin() %>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<%
dim sqlRoot,rsRoot,trs,arrClassID,TitleStr
sqlRoot="select C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,L.LayoutID,C.Child From ArticleClass C inner join Layout L on C.LayoutID=L.LayoutID where C.ParentID=0 and C.IsElite=True and C.LinkUrl='' and C.BrowsePurview>=" & UserLevel & " order by C.RootID"
Set rsRoot= Server.CreateObject("ADODB.Recordset")
rsRoot.open sqlRoot,conn,1,1
if rsRoot.bof and rsRoot.eof then
response.Write("还没有任何栏目，请首先添加栏目。")
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,C.LinkUrl 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
if trs(4)<>"" then
response.write " " & trs(1) & ""
else
response.write " " & trs(1) & ""
end if
trs.movenext
loop
set trs=conn.execute("select ClassID from ArticleClass where RootID=" & rsRoot(2) & " and Child=0 and LinkUrl='' and BrowsePurview>=" & UserLevel)
do while not trs.eof
arrClassID=arrClassID & "," & trs(0)
trs.movenext
loop
end if
%>
|
|
<%
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.OnTop,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.OnTop,A.ArticleID desc"
rsArticle.open sql,conn,1,1
if rsArticle.bof and rsArticle.eof then
response.write "没有任何文章"
else
call ArticleContent(26,True,True,False,0,False,True)
end if
rsArticle.close
%> |
| <%response.write "更多>>>"%> |
|
|
|
<%
rsRoot.movenext
loop
end if
rsRoot.close
set rsRoot=nothing
%>
|
|
|
|
|
|
|
|
<% call ShowSearchForm("Search.asp",1) %>
|
|
|
|
|
|
<% call ShowElite(5,14) %>
|
|
|
| <% call ShowPicArticle(0,2,20,1,1,150,100,200,true,false) %> |
|
<% call ShowFriendSite(1,10,1,1) %>
<% call ShowFriendSite(2,10,1,3) %>
申请 更多>>>
|
|
|