<%
dim sqlRoot,rsRoot,trs,arrClassID,TitleStr,ClassCount,iClassID
sqlRoot="select top 6 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"
Set rsRoot= Server.CreateObject("ADODB.Recordset")
rsRoot.open sqlRoot,conn,1,1
dim sqlClassAD,rsClassAD,ClassAD
sqlClassAD="select * from Advertisement where IsSelected=True"
sqlClassAD=sqlClassAD & " and (ChannelID=0 or ChannelID=" & ChannelID & ")"
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
do while not rsRoot.eof
%>
没有任何调查
[图文]![](" & rsClassAD("ImgUrl") & ")
0 then ClassAD = ClassAD & " width='" & rsClassAD("ImgWidth") & "'"
if rsClassAD("ImgHeight")>0 then ClassAD = ClassAD & " height='" & rsClassAD("ImgHeight") & "'"
ClassAD = ClassAD & " border='0'>
站内文章搜索：
