admin_bigclassmana.asp

庐江二中

<%PageName="admin_BigClassMana"%>
<!--#include file="session.asp"-->
<%checkAdmin2%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="top.asp"--><br>
<table border="1" width="80%" cellspacing="0" cellpadding="1" bgcolor="<%=MainBgColor%>">
<tr>
<td align=center valign=top>
        <table border="1" cellspacing="0" cellpadding="0" Class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>" width="100%">
          <tr> 
            <td colspan="7" bgcolor="<%=MainTColor%>" height="22" align=center background="images/admin/b3.gif"><b>大 
              类 管 理</b></td>
          </tr>
<%
if request.form("BigClassView")<>"" then
sql="Select * from BigClass where BigClassView=1"
rs.open sql,conn,1,3
if not rs.eof then
	do while not rs.eof
	rs("BigClassView")=0
	rs.movenext
	loop
end if
rs.close

BigClassViewid=replace(request.form("BigClassView")," ","")
BigClassViewNum=Split(BigClassViewid,",")
HowLong=UBound(BigClassViewNum)
for i=0 to HowLong
sql="Select * from BigClass where ID="&BigClassViewNum(i)
rs.open sql,conn,1,3
if not rs.EOF then
do while not rs.EOF
rs("BigClassView")=1
rs.update
rs.MoveNext
loop
end if
rs.close
next
end if

if request.form("BigClassType")<>"" then
sql="Select * from BigClass where BigClassType=1"
rs.open sql,conn,1,3
if not rs.eof then
do while not rs.eof
rs("BigClassType")=0
rs.movenext
loop
end if
rs.close

BigClassTypeid=replace(request.form("BigClassType")," ","")
BigClassTypeNum=Split(BigClassTypeid,",")
HowLong=UBound(BigClassTypeNum)
for i=0 to HowLong
sql="Select * from BigClass where ID="&BigClassTypeNum(i)
rs.open sql,conn,1,3
if not rs.EOF then
do while not rs.EOF
rs("BigClassType")=1
rs.update
rs.MoveNext
loop
end if
rs.close
next
end if

if request.form("Master")<>"" then
BigClassMasterid=replace(request.form("Master")," ","")
BigClassMasterNum=Split(BigClassMasterid,",")
sql="Select * from BigClass order by BigClassID"
rs.open sql,conn,1,3
if not rs.EOF then
n=0
do while not rs.EOF
rs("BigClassMaster")=BigClassMasterNum(n)
rs.update
rs.MoveNext
n=n+1
loop
end if
rs.close
end if

sql ="SELECT  * From BigClass order by BigClassID"
rs.open sql,Conn,3,3
%>   
       <form method="post" action="admin_BigClassMana.asp">
            <tr align="center" height="22" bgcolor="<%=MainTColor%>"> 
              <td>原序</td>
              <td>新序</td>
              <td>大类名称</td>
              <td> 首页显示 </td>
              <td> 列表式</td>
              <td>操&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;作</td>
              <td>管理员(须用|分隔)</td>
            </tr>
            <%			
i=0
do while not rs.eof
i=i+1%>
            <tr> 
              <td align="center" bgcolor="#FFFFFF"><%=rs("ID")%></td>
              <td align="center" bgcolor="#FFFFFF"><%=rs("BigClassID")%></td>
              <td align="center" bgcolor="#FFFFFF"><%=rs("BigClassName")%></td>
              <td align="center" bgcolor="#FFFFFF">
                <input type="checkbox" value='<%=rs("ID")%>'<%if rs("BigClassView")=1 then%> checked<%end if%> name="BigClassView">
              </td>
              <td align="center" bgcolor="#FFFFFF"> 
                <input type="checkbox" value='<%=rs("ID")%>'<%if rs("BigClassType")=1 then%> checked<%end if%> name="BigClassType">
              </td>
              <td bgcolor="#FFFFFF" align="center"><a href="admin_BigClassedit.asp?ID=<%=rs("ID")%>&BigClassName=<%=rs("BigClassName")%>" >编辑</a> 
                <a href="admin_BigClasskill.asp?BigClassName=<%=rs("BigClassName")%>" >删除</a> 
                <%if i=1 then%>
                拉上 
                <%else%>
                <a href="admin_ClassSort.asp?WhatClass=BigClass&sort=up&ID=<%=rs("ID")%>&ClassID=<%=rs("BigClassID")%>">拉上</a> 
                <%end if%>
                <%if i=rs.recordcount then%>
                拉下 
                <%else%>
                <a href="admin_ClassSort.asp?WhatClass=BigClass&sort=down&ID=<%=rs("ID")%>&ClassID=<%=rs("BigClassID")%>">拉下</a></td>
              <%end if%>
              <td bgcolor="#FFFFFF" align="center"> 
                <input type="text" name="Master" value="<%=rs("BigClassMaster")%>">
              </td>
            </tr>
            <%
rs.MoveNext
Loop
rs.close
%>
            <tr> 
              <td colspan="7" height="30" align="center" bgcolor="#FFFFFF"><font color="#FF0000">遇到排序不正常请使用：</font><a href="admin_ClassStart.asp?WhatClass=BigClass">初始化分类排序</a></td>
            </tr>
            <tr> 
              <td colspan="7" height="30" align="center" bgcolor="#FFFFFF"> 
                <input type="submit" value="保存以上设定" name="submit">
              </td>
            </tr>
          </form>
          <tr> 
            <form method="post" action="admin_BigClassadd.asp" name="type">
              <td align="center" colspan="7" height="25"> 增加分类： 
                <input Class=text type="text" name="type" size="15">
                <select name="BigClassType">
                  <option value="1">列表式</option>
                  <option value="0">单页式</option>
                </select>
                <input type="hidden" name="howmany" size="15" value=<%=i%>>
                <input type="submit" name="Submit2" value="添加">
                <input type="reset" value="重写" name="B1">
              </td>
            </form>
          </tr>
        </table>
        
      <p>列表式：指点击该大类页面时，列出多个小类和其相应的多条文章标题，为默认式；<br>
        单页式：指点击该大类页面时，只列出该大类最新的一条新闻内容，相当于&quot;简介&quot;。</p>
      </td>
</tr>
</table>
<%set rs=nothing%>