<!-- #include file="conn.asp" -->
<!-- #include file="admin.asp" -->
<%Call Head()
Call saycardd("栏目分类管理")


%>

<%=now%><br/>
<% id= int(request.QueryString("id"))
   idd= int(request.QueryString("idd"))
   lxl= request.QueryString("lx")
   lx= request.QueryString("lxl")
if lxl=0 then %>
<a href="classadd.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;id=<%=id%>&amp;lxl=<%=lxl%>">[添加栏目]</a><br/>
<%end if%>
<% set rs1=server.createobject("adodb.recordset")
sql1 = "select * from class where classid="&id
rs1.open sql1,conn,1,1
if rs1("lx")=0 then lxx="页面菜单"
if rs1("lx")=1 then lxx="文章栏目"
if rs1("lx")=2 then lxx="文字段落"
if rs1("lx")=3 then lxx="直接显图"
if rs1("lx")=4 then lxx="超级链接"
if rs1("lx")=5 then lxx="图片类别"
if rs1("lx")=7 then lxx="文件栏目"
if rs1("lx")=8 then lxx="随机广告"
if rs1("lx")=9 then lxx="WML标签"
if rs1("lx")=10 then lxx="最新文章"
if rs1("lx")=11 then lxx="最热文章"
if rs1("lx")=12 then lxx="随机文章"
if rs1("lx")=16 then lxx="最新图片"
if rs1("lx")=17 then lxx="最热图片"
if rs1("lx")=18 then lxx="随机图片"
if rs1("lx")=19 then lxx="站内搜框"
if rs1("lx")=20 then lxx="WML页面"
if rs1("lx")=21 then lxx="最新贴子"
if rs1("lx")=22 then lxx="动态帖子"
if rs1("lx")=23 then lxx="精华帖子"
if rs1("lx")=24 then lxx="最新相片"
response.write ("项目名称:"&ubb1(left(rs1("class"),30))&"<br/>")
response.write ("项目类型:"&lxx&"<br/>")
response.write ("项目编号:"&rs1("lx")&"<br/>")
response.write ("项目排序:"&rs1("pid")&"<br/>")
if rs1("br")=1 then
response.write ("项目换行:换行<br/>")
else
response.write ("项目排序:不换行<br/>")
end if
if rs1("vipin")>0 then
response.write ("VIP会员限:VIP"&rs1("vipin")&"级<br/>")
else
response.write ("VIP会员限:不限制<br/>")
end if

if rs1("cent")>0 then
response.write ("进入收费:"&rs1("cent")&getcent&"<br/>")
else
response.write ("进入收费:免费<br/>")
end if
if rs1("prentmm")<>"0" then
response.write ("页面密码:"&rs1("prentmm")&"<br/>")
else
response.write ("页面密码:无密码<br/>")
end if

if rs1("active")=0 then
response.write ("项目状态:正常显示<br/>")
else
response.write ("项目状态:隐藏显示<br/>")
end If


response.write ("-----------<br/>")
rs1.close
set rs1=nothing
%>
<% set rs=server.createobject("adodb.recordset")
sql = "select * from class where parent="&id&" order by pid asc"
rs.open sql,conn,1,1
If Not rs.eof	Then
	Dim PageSize,i
	If saytk=1 then
	PageSize=10	
	Else
	PageSize=50
	End if
	Dim Count,page,pagecount,gopage,parent			
	gopage="clist.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;id="&id&"&amp;"
	Count=rs.recordcount
	page=int(request.QueryString ("page"))
	if page<=0 or page="" then page=1		
	pagecount=(count+pagesize-1)\pagesize	
        if page>pagecount then page=pagecount	
	rs.move(pagesize*(page-1))				
	For i=1 To PageSize       						
	If rs.eof Then Exit For				
%><a href="clist.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;id=<%=rs("classid")%>&amp;idd=<%=id%>&amp;lx=<%=rs("lx")%>&amp;lxl=<%=lxl%>">[管理]></a><%=rs("pid")%>.<%=ubb1(left(rs("class"),20))%><br/>

<%     
	rs.moveNext
  								
	Next
	if page-pagecount<0 then response.write "<a href="""&gopage&"page="&page+1&""">下页</a>"
	if page>1 then response.write "<a href="""&gopage&"page="&page-1&""">上页</a>"
	if pagecount>1 then response.write "<br/><b>"&page&"</b>/"&pagecount&"页<input name=""page"" format=""*N"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""3""/><a href="""&gopage&"page=$(page)"">>></a>"
Else
%>
	(没有下级栏目)

<%end if%>

<br/><a href="editclass.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;idd=<%=idd%>&amp;id=<%=id%>&amp;lx=<%=lxl%>&amp;lxl=<%=lx%>">[编辑栏目]</a><br/>
<a href='move.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;idd=<%=idd%>&amp;id=<%=id%>&amp;lx=<%=lxl%>'>[移动栏目]</a><br/>
<a href='delcl.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;idd=<%=idd%>&amp;id=<%=id%>&amp;idd=<%=idd%>&amp;lx=<%=lxl%>'>[删除栏目]</a><br/>
<%if idd<>0 then %>
<a href="Clist.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;id=<%=idd%>&amp;lx=0">[栏目分类]</a><br/>
<%end if%>
<a href="class.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">[主站排版]</a><br/>
<a href="index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">[后台管理]</a>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%><br/>
报时: <%=String(2-Len(hour(now)),"0") & hour(now) %>:<%=String(2-len(minute(now)),"0") & minute(now) %>

<%
call headsay()
%>
