<%
set rs=server.createobject("adodb.recordset")
rs.open "select id,parentid,clmname,istitlepic,titlepic,typeid,index_stype,linkURL,Atarget from "&tbname&"_Channel where id<>9 and indexshow=true and indexwz=2 and isflag=true order by index_sort asc",conn,1,1
do while not rs.eof
'首页单页栏目
if rs("typeid")=1 then
if rs("id")=13 then
%>
|
 |
 |
<%if rs("istitlepic")=true then %>
 " />
<%
else
response.Write(rs("clmname"))
end if%>
|
 |
|
|
 |
|
|
| <%call Show_index_dy(rs("id"))%> |
|
|
|
|
<%
else
%>
|
|
|
<%if rs("istitlepic")=true then %>
" />
<%
else
response.Write(rs("clmname"))
end if%>
|
|
|
|
|
|
|
| <%call Show_index_dy(rs("id"))%> |
|
|
|
|
<%
end if
end if
'首页新闻栏目
if rs("typeid")=2 then
'新闻显示样式 普通
if rs("index_stype")=1 then
%>
|
|
|
<%if rs("istitlepic")=true then %>
" />
<%
else
response.Write(rs("clmname"))
end if%>
|
|
|
|
|
|
|
| <%call Show_index_xw(rs("id"))%> |
|
|
|
|
<%
end if
'新闻显示样式 特殊
if rs("index_stype")=2 then
set rsxw=server.createobject("adodb.recordset")
rsxw.open "select id,parentid,typeid,clmname,istitlepic,titlepic,linkURL,Atarget from "&tbname&"_Channel where parentid="&rs("id")&" and index_stype=2 and isflag=true order by index_sort asc",conn,1,1
if not rsxw.eof then
snum=rsxw.recordcount
%>
<%
if snum>1 then
if snum mod 2 = 0 then
temis=false
temnum=snum
else
temis=true
temnum=snum-1
end if
for xi=1 to temnum
%>
|
|
|
<%if rsxw("istitlepic")=true then %>
 " />
<%
else
response.Write(rsxw("clmname"))
end if%>
|
|
|
|
|
| <%call Show_index_xw(rsxw("id"))%> |
|
|
|
|
<%if xi mod 2 = 0 then %>
<%else%>
 |
<%end if
rsxw.movenext
next
%>
<%
if temis=true then
%>
|
|
|
<%if rsxw("istitlepic")=true then %>
" />
<%
else
response.Write(rsxw("clmname"))
end if%>
|
|
|
|
|
|
|
| <%call Show_index_xw(rsxw("id"))%> |
|
|
|
|
<%end if%>
|
<% end if
end if
rsxw.close:set rsxw=nothing
end if
end if
'首页图片栏目
if rs("typeid")=3 then
%>
|
|
|
<%if rs("istitlepic")=true then %>
" />
<%
else
response.Write(rs("clmname"))
end if%>
|
|
|
|
|
|
|
| <%call Show_index_tp(rs("id"))%> |
|
|
|
|
<%
end if
'首页产品栏目
if rs("typeid")=4 then
%>
|
|
|
<%if rs("istitlepic")=true then %>
" />
<%
else
response.Write(rs("clmname"))
end if%>
|
|
|
|
|
|
|
| <%call Show_index_cp(rs("id"))%> |
|
|
|
|
<%
end if
'友情链接
if rs("typeid")=6 then
%>
|
|
|
<%if rs("istitlepic")=true then %>
" />
<%
else
response.Write(rs("clmname"))
end if%>
|
|
|
|
|
|
|
|
|
|
<%
end if
'幻灯栏目
if rs("typeid")=9 then
%>
|
|
|
<%if rs("istitlepic")=true then %>
" />
<%
else
response.Write(rs("clmname"))
end if%>
|
|
|
|
|
|
|
|
|
|
<%
end if
rs.movenext
loop
rs.close:set rs=nothing
%>
