<!--#include file="../Inc.asp"-->
<!--#include file="../ydzq.asp"-->
<!--#include file="../../inc/char.asp"-->

<%call head()
Call saycardd("排版中心")



IF KEYs<>1 then
  Call Error("你的权限不足！")
  end if
saypbms=int(request.QueryString ("saypbms"))
pag=request("pag")
if pag="" then 
If saytk>1 then
pag=50
Else
pag=20
End If
End if
%>


<%If saytk>1 Then
%><hr><%
Else
Response.write "<br/>-------------<br/>"
End if
If saytk>1 then
Response.write "<form name=""form"" method=""post"" action=""class.asp?saytk="&saytk&"&amp;sid="&sid&""">"


%>

显示:<input name="pag" format="*N" size="3" value="<%=pag%>"/>

<%
response.write "<input type=""submit"" name=""Submit"" value=""更改条数""></form><br/>"
else
%>
显示:<input name="pid<%=minute(now)%><%=second(now)%>" format="*N" size="3" value="<%=pag%>"/>
<anchor title="显示数量">更改条数
<go href="class.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;" method="post" accept-charset='utf-8'>
<postfield name="pag" value="$(pid<%=minute(now)%><%=second(now)%>)"/>
</go>
</anchor>
<%End if%><br/>
<%If saytk>1 Then
%><hr><%
Else
Response.write "-------------<br/>"
End if%>
<a href="classadd.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;">[网站添加下级栏目]</a>
<%If saytk>1 Then
%><hr><%
Else
Response.write "<br/>-------------<br/>"
End If
dim conngamepb,conngamepbstr
conngamepbstr="DBQ="+server.mappath("/shujuku/chajianshujuku/saytk_pb/saytk_pb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conngamepb=server.createobject("ADODB.connECTION")
conngamepb.open conngamepbstr

set rs=server.createobject("adodb.recordset")
sql = "select * from gameclass where parent=0 order by pid asc"
rs.open sql,conngamepb,1,1
If Not rs.eof	Then
	Dim PageSize,i
	PageSize=pag
	Dim Count,page,pagecount,gopage			
	gopage="class.asp?saytk="&saytk&"&amp;sid="&sid&"&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;lx=<%=rs("lx")%>">[管理]</a><%=ubb1(left(rs("class"),10))%><%if len(rs("class"))>10 then Response.write "..."%>(排序:<%=rs("pid")%>)
<%if rs("lx")=0 then 
Response.write "新页面"%>
<%elseif rs("lx")=1 then 
Response.write "文章菜单"%>
<%elseif rs("lx")=2 then 
Response.write "UBB标签"%>
<%elseif rs("lx")=3 then 
Response.write "直接显图"%>
<%elseif rs("lx")=4 then 
Response.write "超级链接"%>
<%elseif rs("lx")=5 then 
Response.write "图片类别"%>
<%elseif rs("lx")=7 then 
Response.write "调用栏目"%>
<%elseif rs("lx")=8 then 
Response.write "随机广告"%>
<%elseif rs("lx")=9 then 
Response.write "WML标签"%>
<%elseif rs("lx")=10 then 
Response.write "WML页面"%>
<%elseif rs("lx")=19 then 
Response.write "搜索"%>
<%elseif rs("lx")=600 then 
Response.write "系统项目"%>
<%elseif rs("lx")>60 And rs("lx")<150 then Response.write "新增调用"%>
<%Else
Response.write "未知类型"
End if%>













<br/>
<%     
	rs.moveNext
  								
	Next
	if page-pagecount<0 then response.write "<a href="""&gopage&"pag="&pag&"&amp;page="&page+1&""">下页</a>"
	if page>1 then response.write "<a href="""&gopage&"pag="&pag&"&amp;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&"pag="&pag&"&amp;page=$(page)"">>></a><br/>"
Else
%>
	您的网站暂时没有添加栏目！<br/>
<%end if
rs.close
set rs=nothing
conngamepb.close
set conngamepb=Nothing
conn.close
set conn=nothing
%>-----------<br/>
<a href="classadd.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;">添加下级栏目</a><br/>
<a href="/bbs/show.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">返回我的地盘</a><br/>
报时: <%=String(2-Len(hour(now)),"0") & hour(now) %>:<%=String(2-len(minute(now)),"0") & minute(now) %>

<%
call headsay()
%>
