% '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 %>
|
|
|||||||||||||||||||||||||||||||||||||||||||||||
版权所有: 陕西省凤县人民政府办公室 [本站申明] 维护管理:凤县人民政府办公室 凤县信息化工作办公室 电话:0917-4762654 传真:0917-4762721 E-mail:sxfxpb@163.com 通讯地址:陕西省凤县双石铺镇 邮编:721700 ICP备案:陕ICP备05015211号 技术支持: 宝鸡市世纪网络技术有限公司 |