<%@ Language=VBScript %>
<% If Session(strCookieURL & "www.3rom.com") = "1369852475213" and Session("count")<10 Then %> 
<!--#INCLUDE FILE="inc_Conn.asp" -->
<%
Dim strSql

set rs=server.CreateObject("ADODB.RecordSet")
strSql="select * from Class"
rs.Open strSql,MyCon,1,1

%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="VI60_defaultClientScript" content="JavaScript">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>类别排序</title>
</head>

<body bgcolor="#D6D3CE">

<div align="center">
  <center>
  <% If Request.QueryString("active")<>"DoIt" Then %>
  <form method="POST" action="AlignClass.asp?active=DoIt">
  <table border="1" cellpadding="0" cellspacing="0" width="75%">
    <tr>
      <td width="10%">　</td>
      <td width="39%">现有类别:</td>
      <td width="44%">序号:</td>
      <td width="7%">　</td>
    </tr>
    <% i=0 %>
    <% Do While not rs.eof %>    
    <% If strColor="#CCCCCC" Then 
    strColor="#D6D3CE"
    strColor1="white"
    Else
    strColor="#CCCCCC"
    strColor1="black"
    End If
    %>
    <%
    i=i+1
    change="align" & i
    strClass="Class" & i
    %>
    <tr>
      <td width="10%">　</td>
      <td width="39%" bgcolor="<%=strColor%>"><font color="<%=strColor1%>"><%=rs("Class_Name")%></font></td>
      <td width="44%" bgcolor="<%=strColor%>">
      <input type="text" name="<%=change%>" size="6" value="<%=rs("Class_Desc")%>">
      <input type="hidden" name="<%=strClass%>" size="6" value="<%=rs("ClassID")%>">
      </td>
      <td width="7%">　</td>
    </tr>
    <% rs.movenext %>
    <% Loop %>
    <tr>
      <td width="10%">　</td>
      <td width="83%" colspan="2" align="center"><input type="submit" value=" 提交 " name="B1">&nbsp;   
        <input type="reset" value="全部重写" name="B2"></td>
      <td width="7%">　</td>
    </tr>
    <tr>
      <td width="10%">　</td>
      <td width="83%" colspan="2" align="center"><a href="Index.asp">返回管理</a></td>
      <td width="7%">　</td>
    </tr>
  </table>
  <input type="hidden" name="Num" size="6" value="<%=rs.RecordCount%>">
  </form>
  <% Else %>
  <%
  '这里放表单处理代码
  strNum=Request.form("Num")
  for i=1 to strNum
  strAlign=Request.form("align"&i)
  strClass=Request.form("Class"&i)
  strSql="Update Class set Class_Desc=" & "'" & strAlign & "'" 
  strSql=strSql & "where ClassID=" & strClass
  MyCon.execute(strSql)

  Next
  %>
  <div align="center">
    <center>
  <table border="1" width="75%" cellspacing="0" cellpadding="0">
  　<tr>
      <td width="39%">现有类别：</td>
      <td width="44%">序号：</td>
    </tr>
  　<% Do While not rs.eof %>    
    <% If strColor="#00FF00" Then 
    strColor="3399FF"
    strColor1="white"
    Else
    strColor="#00FF00"
    strColor1="black"
    End If
    %>
    <tr>
      <td width="50%" bgcolor="<%=strColor%>"><font color="<%=strColor1%>"><%=rs("Class_Name")%></font></td>
      <td width="50%" bgcolor="<%=strColor%>"><font color="<%=strColor1%>"><%=rs("Class_Desc")%></font></td>
    </tr>
    <% rs.movenext %>
    <% Loop %>
    <tr>
      <td width="100%" colspan="2" align="center"><a href="Index.asp">返回管理</a></td>
    </tr>
  </table>
    </center>
  </div>
  <% End If %>
  </center>
</div>

</body>

</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
<%
rs.close
set rs=nothing
MyCon.close
set MyCon=nothing
%>
<% 
Else
Response.redirect "Login.asp"
End If
%>