⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 addclass1.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
strSql="select * from Class"
set rs=MyCon.execute(strSql)

%>
<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>AddClass1</title>
</head>

<body bgcolor="#D6D3CE">

<div align="center">
  <center>
  <table border="0" width="100%" cellspacing="0" cellpadding="0">
    <tr>
      <td width="100%" align="center"></td>
    </tr>
    <tr>
      <td width="100%" align="center">
        <form method="POST" action="AddClass2.asp?active=DoIt">
          <div align="center">
            <table border="1" width="75%" cellspacing="0" cellpadding="0">
              <tr>
                <td width="100%"><select size="1" name="Class">
                    <option value="0">增加类别</option>
                    <% Do While not rs.eof %>
                    <option value="<%=rs("ClassID")%>"><%=rs("Class_Name")%></option>
                    <% rs.movenext %>
                    <% Loop %>  
                  </select></td>  
              </tr>
              <tr>
                <td width="100%" align="center">类别编辑:<input type="text" name="AddClass" size="20"> 
                  <input type="submit" value=" 提交 " name="ok"></td>   
              </tr>
              <tr>
                <td width="100%">说明：当选项一为&quot;增加类别&quot;而选项二非空时向数据库插入一个新的类别；当选项一为其它类别，而选项二非空时，修改选项一中的类别名称为选项二的名称，而选项二为空时，即删除选项一中的类别。</td>
              </tr>
            </table>
          </div>
        </form>
      </td>
    </tr>
    <tr>
      <td width="100%" align="center"><a href="Index.asp">返回管理</a></td>
    </tr>
    <tr>
      <td width="100%" align="center"></td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>
<%
rs.close
set rs=nothing
MyCon.close
set MyCon=nothing
%>
<% 
Else
Response.redirect "Login.asp"
End If
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -