📄 alignclass.asp

📁 为了开发出适用于中小型企业的通用人才管理软件。对于已备电脑等硬件设备而无人才管理软件的企业更能带来更高的收益。此人才管理软件主要应用了DELPHI 7和SQL。解决企业管理中的员工管理

💻 ASP

字号:

<%@ 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="#00FF00" Then 
    strColor="3399FF"
    strColor1="white"
    Else
    strColor="#00FF00"
    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>
<%
rs.close
set rs=nothing
MyCon.close
set MyCon=nothing
%>
<% 
Else
Response.redirect "Login.asp"
End If
%>

💿 文件大小 83 K

👤 上传用户 mengcong18

📂 所属分类企业管理

🏷️ 相关标签

#DELPHI #管理软件 #SQL #电脑

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -