中国·凤县

<% '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 %> 中国·凤县