<%
'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
%>
中国·凤县
当前位置：
坪坎镇位于秦岭南麓，地处凤县东南部，镇政府所在地距县城69.5公里。全镇东邻太白县王家楞乡，南邻留坝县玉皇庙乡，西邻本县河口镇，总面积128平方公里，辖4个行政村17个村民小组，现有农户577户，农业人口2365人，耕地5148亩。
