admin_smallclassmana.asp

庐江二中

<%PageName="admin_SmallClassMana"%>
<!--#include file="session.asp"-->
<%checkAdmin2%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<%
if request.form("SmallClassType")<>"" then
sql="Select * from SmallClass where SmallClassType=1"
rs.open sql,conn,1,3
if not rs.eof then
do while not rs.eof
rs("SmallClassType")=0
rs.movenext
loop
end if
rs.close

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

if request.form("Master")<>"" then
SmallClassMasterid=replace(request.form("Master")," ","")
SmallClassMasterNum=Split(SmallClassMasterid,",")
sql="Select * from SmallClass order by SmallClassID"
rs.open sql,conn,1,3
if not rs.EOF then
n=0
do while not rs.EOF
rs("SmallClassMaster")=SmallClassMasterNum(n)
rs.update
rs.MoveNext
n=n+1
loop
end if
rs.close
end if

if request.form("ReaderLevel")<>"" then
ReaderLevelid=replace(request.form("ReaderLevel")," ","")
ReaderLevelNum=Split(ReaderLevelid,",")
sql="Select * from SmallClass order by SmallClassID"
rs.open sql,conn,1,3
if not rs.EOF then
n=0
do while not rs.EOF
if NOT IsNumeric(ReaderLevelNum(n)) then
%>
<script language=javascript>
history.back()
alert("浏览等级输入有误！请确认等级ID是否正确，且不为空。")
</script>
<%
Response.End
else
rs("ReaderLevel")=ReaderLevelNum(n)
end if
rs.update
rs.MoveNext
n=n+1
loop
end if
rs.close
end if
%>
<!--#include file="top.asp"--><br>
<table border="1" width="98%" 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="8" bgcolor="<%=MainTColor%>" height="22" align=center background="images/admin/b3.gif"><b>小 类 管 理</b></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td align="center" colspan="8" height="60"> 
            <p><font color="#FF0000">已有该大类权限的管理员，可不必再在其下小类添加管理员名字。<br>
              浏览等级是指注册会员的等级ID(数字1-9)，详见&quot;用户等级管理&quot;。<br>
              等级为0时，非会员也可浏览； <br>
              等级大于0时，该类文章只有该等级以上注册会员方可浏览（&quot;允许非会员浏览文章&quot;为否时方有效）</font></p>
            </td>
        </tr>
        <%
sql ="SELECT  * From SmallClass order by SmallClassID"
rs.open sql,Conn,3,3
%>
        <form method="post" action="admin_SmallClassMana.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>
            <td>浏览等级</td>
          </tr>
          <%
i=0
do while not rs.eof
i=i+1
%>
          <tr align="center" bgcolor="#FFFFFF"> 
            <td><%=rs("ID")%></td>
            <td><%=rs("SmallClassID")%></td>
            <td><%=rs("BigClassName")%></td>
            <td><%=rs("SmallClassName")%></td>
            <td> 
              <input type="checkbox" value='<%=rs("ID")%>'<%if rs("SmallClassType")=1 then%> checked<%end if%> name="SmallClassType">
            </td>
            <td> <a href="admin_SmallClassedit.asp?ID=<%=rs("ID")%>&SmallClassname=<%=rs("SmallClassname")%>" >编辑</a> 
              <a href="admin_SmallClasskill.asp?BigClassName=<%=rs("BigClassName")%>&SmallClassName=<%=rs("SmallClassName")%>" >删除</a> 
              <%if i=1 then%>
              拉上 
              <%else%>
              <a href="admin_ClassSort.asp?WhatClass=SmallClass&sort=up&ID=<%=rs("ID")%>&ClassID=<%=rs("SmallClassID")%>" >拉上</a> 
              <%end if%>
              <%if i=rs.recordcount then%>
              拉下 
              <%else%>
              <a href="admin_ClassSort.asp?WhatClass=SmallClass&sort=down&ID=<%=rs("ID")%>&ClassID=<%=rs("SmallClassID")%>" >拉下</a></td>
            <%end if%>
            <td bgcolor="#FFFFFF" align="center"> 
              <input type="text" name="Master" value="<%=rs("SmallClassMaster")%>">
            </td>
            <td bgcolor="#FFFFFF" align="center">
              <input type="text" name="ReaderLevel" value="<%=rs("ReaderLevel")%>" size="1" maxlength="1">
            </td>
          </tr>
          <%
rs.MoveNext
Loop

rs.close
%>
          <tr bgcolor="#FFFFFF"> 
            <td colspan="8" height="30" align="center"><font color="#FF0000">遇到排序不正常请使用：</font><a href="admin_ClassStart.asp?WhatClass=SmallCass">初始化类型排序</a> 
            </td>
          </tr>
          <tr> 
            <td colspan="8" height="30" align="center" bgcolor="#FFFFFF"> 
              <input type="submit" value="保存以上设定" name="submit">
            </td>
          </tr>
        </form>
        <tr> 
          <form method="post" action="admin_SmallClassadd.asp" name="type">
            <td align="center" colspan="8" height="22"> 
              <%
sql="select * from BigClass order by BigClassID"
rs.Open sql,conn,1,1				
%>
              在 
              <select size="1" name="BigClassname" style="font-size: 9pt">
                <%if rs.EOF then %>
                <option>暂无任何大类</option>
                <%else
while not rs.EOF
%>
                <option value="<%=rs("BigClassName")%>"><%=trim(rs("BigClassName"))%></option>
                <%
rs.MoveNext
wend

end if
rs.Close
set rs=nothing
%>
              </select>
              中添加小类： 
              <input Class=text type="text" name="type" size="15">
              <select name="SmallClassType">
                <option value="1">默认式</option>
                <option value="0">单页式</option>
              </select>
              <input type="hidden" name="howmany" size="15" value=<%=i%>>
              <input type="submit" name="Submit" value="添加">
              <input type="reset" value="重写" name="B1">
            </td>
          </form>
        </tr>
      </table>
</td>
</tr>
</table>