%
'dim myNewdir
'MyNewdir="news"'BENN--add in the conn_index.asp
'图片新闻--单独的一篇文章显示在首页面,它的ID号在news/inc/syscode_Article_index.asp页面中tuijie_classID=11'BENN--推介的类别//可以只加有图片有推介。where DefaultpicURL<>""位置
'请勿改动下面这三行代码
const ChannelID=1
Const ShowRunTime="Yes"
MaxPerPage=20
SkinID=0
PageTitle="首页"
Set rsArticle= Server.CreateObject("ADODB.Recordset")
'Set rsPic= Server.CreateObject("ADODB.Recordset")
%>
<%'====================================================================================s
dim sqlRoot,rsRoot,trs,arrClassID,TitleStr,ClassCount,iClassID
sqlRoot="select top 5 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 IsElite=True and LinkUrl='' order by C.RootID"
'BENN--from ArticleClass C to join Layout L //表没用AS(是属于-->分组聚集),字段要用
'BENN-top 2=显示二个栏目 old=6
Set rsRoot= Server.CreateObject("ADODB.Recordset")
rsRoot.open sqlRoot,conn,1,1
'BENN--rsRoot(0)=C.ClassID,rsRoot(1)=C.ClassName
'dim sqlClassAD,rsClassAD,ClassAD
'sqlClassAD="select * from Advertisement where IsSelected=True"
'sqlClassAD=sqlClassAD & " and (ChannelID=0 or ChannelID=" & ChannelID & ")"'-BENN 页首ChannelID=1
'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
arrClassID=rsRoot(0)'BENN--是一个值。不是数组
end if
%>