<%=now%>
<% id= int(request.QueryString("id")) idd= int(request.QueryString("idd")) lxl= request.QueryString("lx") if lxl=0 then %> [添加栏目]
<%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))&"
") response.write ("项目类型:"&lxx&"
") response.write ("项目编号:"&rs1("lx")&"
") response.write ("项目排序:"&rs1("pid")&"
") if rs1("br")=1 then response.write ("项目换行:换行
") else response.write ("项目排序:不换行
") end if if rs1("vipin")>0 then response.write ("VIP会员限:VIP"&rs1("vipin")&"级
") else response.write ("VIP会员限:不限制
") end if if rs1("cent")>0 then response.write ("进入收费:"&rs1("cent")&getcent&"
") else response.write ("进入收费:免费
") end if if rs1("prentmm")<>"0" then response.write ("页面密码:"&rs1("prentmm")&"
") else response.write ("页面密码:无密码
") end if if rs1("active")=0 then response.write ("项目状态:正常显示
") else response.write ("项目状态:隐藏显示
") end if response.write ("-----------
") 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 PageSize=10 Dim Count,page,pagecount,gopage,parent gopage="clist.asp?sid="&sid&"&id="&id&"&" 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 %>&idd=<%=id%>&lx=<%=rs("lx")%>&lxl=<%=lxl%>">[管理]><%=rs("pid")%>.<%=ubb1(left(rs("class"),20))%>
<% rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页>>" Else %> (没有下级栏目) <%end if%>
[编辑栏目]
[移动栏目]
[删除栏目]
<%if idd<>0 then %> [栏目分类]
<%end if%> [设计中心]
[后台管理] <% rs.close set rs=nothing conn.close set conn=nothing %>
报时: <%=String(2-Len(hour(now)),"0") & hour(now) %>:<%=String(2-len(minute(now)),"0") & minute(now) %>