<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Include/checklogin.asp"-->
<!--#include file="Include/connect.asp"-->
<!--#include file="Inc/char.asp"-->
<!--#include file="top.asp"-->
<link href="CSS/right.css" rel="stylesheet" type="text/css">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tablecolor">
  <tr> 
    <td height="25" align="left" class="banner" style="PADDING-LEFT:15px">当前位置 &gt; <%
												  if request.querystring("type")="album" then 
												    response.write("相册分类管理")
												  elseif request.querystring("type")="article" then
												    response.write("文章分类管理")
												  elseif request.querystring("type")="tt" then
												    response.write("拍贴分类管理")
												  elseif request.querystring("type")="video" then
												    response.write("视频分类管理")
												  end if
												  %></td>
  </tr>
</table>
<%
etype=request.querystring("type")
if etype="article" then
%>
<FORM name=cgifrm onSubmit="return cgifrm(this);" action=m_group_save.asp?type=article method=post>
<table border="0" align="center" cellpadding="0" cellspacing="1" class="tablecolor">
  <tr> 
    <td width="50" height="25" align="center" class="tablebody">删除？</td>
    <td width="300" align="center" class="tablebody">分类名称</td>
    <td width="50" align="center" class="tablebody">文章数</td>
  </tr>
<%
strFileName="m_group.asp?type=article"
pageno=20
set rs=server.createobject("adodb.recordset")
sql="select * from Show5_ArticleSysgroup Order By GroupID"
rs.CursorLocation=3
rs.open sql,cn,1,1
rscount=rs.recordcount
if rs.eof or rs.bof then
   response.write("暂无分类")
else
call showsql(pageno)
rs.move(rsno)
i=0
for p_i=1 to loopno
%>
   <tr> 
    <td width="50" height="25" align="center" class="tablebody"><INPUT type=hidden value=<%=rs("GroupID")%> name=groupid><%if i=0 then%><INPUT type=checkbox value=<%=rs("GroupID")%> name=no disabled><%else%><INPUT type=checkbox value=<%=rs("GroupID")%> name=no><%end if%></td>
    <td width="300" align="center" class="tablebody"><INPUT class=input style="WIDTH: 200px" maxLength=8 value=<%=rs("Groupname")%> name=groupname></td>
    <td width="50" align="center" class="tablebody"><%=rs("ArticleNum")%></td>
  </tr>
<%
rs.movenext
i=i+1
next
end if
%>
   <tr> 
     <td width="50" height="25" align="center" class="tablebody">添加分类</td>
     <td width="300" align="center" class="tablebody"><INPUT class=input style="WIDTH: 200px" maxLength=8 name=new_groupname></td>
    <td width="50" align="center" class="tablebody">&nbsp;</td>
  </tr>
   <tr> 
     <td height="25" colspan="3" align="left" class="tablebody" style="PADDING-LEFT:300px"><input type=Submit value='提 交' name=Submit>
     &nbsp;<input type=reset name=Submit2 value='清 除'></td>
  </tr>
  <tr><td colspan="5" align="right"  class="tablebody"><%call showpage(strFileName,rscount,pageno,false,true,"个分类")%></td>
  </tr>
</table>
</FORM>
<%
elseif etype="album" then
%>
<FORM name=cgifrm onSubmit="return cgifrm(this);" action=m_group_save.asp?type=album method=post>
<table border="0" align="center" cellpadding="0" cellspacing="1" class="tablecolor">
  <tr> 
    <td width="50" height="25" align="center" class="tablebody">删除？</td>
    <td width="300" align="center" class="tablebody">分类名称</td>
    <td width="50" align="center" class="tablebody">照片数</td>
  </tr>
<%
strFileName="m_group.asp?type=album"
pageno=20
set rs=server.createobject("adodb.recordset")
sql="select * from Show5_PhotoSysgroup Order By GroupID"
rs.CursorLocation=3
rs.open sql,cn,1,1
rscount=rs.recordcount
if rs.eof or rs.bof then
   response.write("暂无分类")
else
call showsql(pageno)
rs.move(rsno)
i=0
for p_i=1 to loopno
%>
   <tr> 
    <td width="50" height="25" align="center" class="tablebody"><INPUT type=hidden value=<%=rs("GroupID")%> name=groupid><%if i=0 then%><INPUT type=checkbox value=<%=rs("GroupID")%> name=no disabled><%else%><INPUT type=checkbox value=<%=rs("GroupID")%> name=no><%end if%></td>
    <td width="300" align="center" class="tablebody"><INPUT class=input style="WIDTH: 200px" maxLength=8 value=<%=rs("Groupname")%> name=groupname></td>
    <td width="50" align="center" class="tablebody"><%=rs("PhotoNum")%></td>
  </tr>
<%
rs.movenext
i=i+1
next
end if
%>
   <tr> 
     <td width="50" height="25" align="center" class="tablebody">添加分类</td>
     <td width="300" align="center" class="tablebody"><INPUT class=input style="WIDTH: 200px" maxLength=8 name=new_groupname></td>
    <td width="50" align="center" class="tablebody">&nbsp;</td>
  </tr>
   <tr> 
     <td height="25" colspan="3" align="left" class="tablebody" style="PADDING-LEFT:300px"><input type=Submit value='提 交' name=Submit>
     &nbsp;<input type=reset name=Submit2 value='清 除'></td>
  </tr>
  <tr><td colspan="5" align="right"  class="tablebody"><%call showpage(strFileName,rscount,pageno,false,true,"个分类")%></td>
  </tr>
</table>
</FORM>
<%
elseif etype="tt" then
%>
<FORM name=cgifrm onSubmit="return cgifrm(this);" action=m_group_save.asp?type=tt method=post>
<table border="0" align="center" cellpadding="0" cellspacing="1" class="tablecolor">
  <tr> 
    <td width="50" height="25" align="center" class="tablebody">删除？</td>
    <td width="300" align="center" class="tablebody">分类名称</td>
    <td width="50" align="center" class="tablebody">拍贴数</td>
  </tr>
<%
strFileName="m_group.asp?type=tt"
pageno=20
set rs=server.createobject("adodb.recordset")
sql="select * from Show5_TTSysgroup Order By GroupID"
rs.CursorLocation=3
rs.open sql,cn,1,1
rscount=rs.recordcount
if rs.eof or rs.bof then
   response.write("暂无分类")
else
call showsql(pageno)
rs.move(rsno)
i=0
for p_i=1 to loopno
%>
   <tr> 
    <td width="50" height="25" align="center" class="tablebody"><INPUT type=hidden value=<%=rs("GroupID")%> name=groupid><%if i=0 then%><INPUT type=checkbox value=<%=rs("GroupID")%> name=no disabled><%else%><INPUT type=checkbox value=<%=rs("GroupID")%> name=no><%end if%></td>
    <td width="300" align="center" class="tablebody"><INPUT class=input style="WIDTH: 200px" maxLength=8 value=<%=rs("Groupname")%> name=groupname></td>
    <td width="50" align="center" class="tablebody"><%=rs("TTNum")%></td>
  </tr>
<%
rs.movenext
i=i+1
next
end if
%>
   <tr> 
     <td width="50" height="25" align="center" class="tablebody">添加分类</td>
     <td width="300" align="center" class="tablebody"><INPUT class=input style="WIDTH: 200px" maxLength=8 name=new_groupname></td>
    <td width="50" align="center" class="tablebody">&nbsp;</td>
  </tr>
   <tr> 
     <td height="25" colspan="3" align="left" class="tablebody" style="PADDING-LEFT:300px"><input type=Submit value='提 交' name=Submit>
     &nbsp;<input type=reset name=Submit2 value='清 除'></td>
  </tr>
  <tr><td colspan="5" align="right"  class="tablebody"><%call showpage(strFileName,rscount,pageno,false,true,"个分类")%></td>
  </tr>
</table>
</FORM>
<%
elseif etype="video" then
%>
<FORM name=cgifrm onSubmit="return cgifrm(this);" action=m_group_save.asp?type=video method=post>
<table border="0" align="center" cellpadding="0" cellspacing="1" class="tablecolor">
  <tr> 
    <td width="50" height="25" align="center" class="tablebody">删除？</td>
    <td width="300" align="center" class="tablebody">分类名称</td>
    <td width="50" align="center" class="tablebody">视频数</td>
  </tr>
<%
strFileName="m_group.asp?type=video"
pageno=20
set rs=server.createobject("adodb.recordset")
sql="select * from Show5_VideoSysgroup Order By GroupID"
rs.CursorLocation=3
rs.open sql,cn,1,1
rscount=rs.recordcount
if rs.eof or rs.bof then
   response.write("暂无分类")
else
call showsql(pageno)
rs.move(rsno)
i=0
for p_i=1 to loopno
%>
   <tr> 
    <td width="50" height="25" align="center" class="tablebody"><INPUT type=hidden value=<%=rs("GroupID")%> name=groupid><%if i=0 then%><INPUT type=checkbox value=<%=rs("GroupID")%> name=no disabled><%else%><INPUT type=checkbox value=<%=rs("GroupID")%> name=no><%end if%></td>
    <td width="300" align="center" class="tablebody"><INPUT class=input style="WIDTH: 200px" maxLength=8 value=<%=rs("Groupname")%> name=groupname></td>
    <td width="50" align="center" class="tablebody"><%=rs("VideoNum")%></td>
  </tr>
<%
rs.movenext
i=i+1
next
end if
%>
   <tr> 
     <td width="50" height="25" align="center" class="tablebody">添加分类</td>
     <td width="300" align="center" class="tablebody"><INPUT class=input style="WIDTH: 200px" maxLength=8 name=new_groupname></td>
    <td width="50" align="center" class="tablebody">&nbsp;</td>
  </tr>
   <tr> 
     <td height="25" colspan="3" align="left" class="tablebody" style="PADDING-LEFT:300px"><input type=Submit value='提 交' name=Submit>
     &nbsp;<input type=reset name=Submit2 value='清 除'></td>
  </tr>
  <tr><td colspan="5" align="right"  class="tablebody"><%call showpage(strFileName,rscount,pageno,false,true,"个分类")%></td>
  </tr>
</table>
</FORM>
<%
end if
%>
<!--#include file="end.asp"-->