📄 classmanage.asp

📁 工资管理系统功能齐全包括工人工资信息查询.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
<%
Dim Repeat5__numRows
Dim Repeat5__index
Repeat5__numRows = -1
Repeat5__index = 0
rsGrade5_numRows = rsGrade5_numRows + Repeat5__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>信息查询</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2600.0" Name=GENERATOR>
<link href="home.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
function check()
{
  if(document.AddClass.ClassName.value=="")
  {
    alert("你还没有填科室名称！");
    document.AddClass.ClassName.focus();
    return false;
  }
  if(document.AddClass.ClassID.value=="")
  {
    alert("你还没有填科室编号！");
    document.AddClass.ClassID.focus();
    return false;
  }
  if(isNaN(document.AddClass.ClassID.value))
  {
    alert("科室编号必须是数字！");
	document.AddClass.ClassID.select();
    document.AddClass.ClassID.focus();
    return false;
  }
  if(document.AddClass.ClassID.value.length<2)
  {
    alert("科室编号位数不足2位，与人员编号规则不符合！");
    document.AddClass.ClassID.focus();
    return false;
  }
}
</script>
</HEAD>
<BODY text=#000000 bgColor=#f7f7ff leftMargin=0 topMargin=0>
<%
if Request("Err")<>"" then response.write "<script language='JavaScript'>alert('科室名称或科室编号与数据库中已有记录重复');</script>"
%>
<!--#include file="InfoManage_top.asp" -->
<TABLE width="760" border=0 align="center" cellPadding=0 cellSpacing=0>
  <TR> 
    <TD align="center" bgcolor="#F7f7ff"> 
      <form name="AddClass" onSubmit="return check()" action="<%=MM_editAction%>" method="POST"  id="AddClass">
        <span class="title"><strong>添加新科室：</strong></span><br>
        <table width="300"  border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="#CCCCFF" style="border-collapse:collapse">
          <tr> 
            <td width="118" align="right">科室名称：</td>
            <td width="159"> <input name="ClassName" type="text" id="ClassName" size="10" maxlength="10"> 
              <script language='JavaScript'>document.AddClass.ClassName.focus();</script></td>
          </tr>
          <tr> 
            <td width="118" align="right">科室编号：</td>
            <td> <input name="ClassID" type="text" id="ClassID" size="10" maxlength="10"></td>
          </tr>
          <tr> 
            <td width="118" align="right">所在类别：</td>
            <td> <select name="Grade">
                <option value="01" selected>医疗</option>
                <option value="02">药品</option>
                <option value="03">行政</option>
                <option value="04">合同</option>
                <option value="05">自负</option>
              </select></td>
          </tr>
          <tr> 
            <td colspan="2" align="center"><input type="hidden" name="MM_insert" value="AddClass"> 
              <input type="submit" name="Submit" value="添  加"></td>
          </tr>
        </table>
	  </form>
      <span class="title">已有的科室：<br>
      <br>
      </span> 
      <table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCFF" style="border-collapse:collapse">
        <tr align="center" valign="middle" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#CCCCCC"> 
          <td class="littletitle">医疗</td>
          <td class="littletitle">药品</td>
          <td height="20" class="littletitle">行政</td>
          <td class="littletitle">合同</td>
          <td bgcolor="#CCCCCC" class="littletitle">自负</td>
        </tr>
        <tr align="center" valign="top"> 
          <td><table width="100%" border="1" style="border-collapse:collapse"cellpadding="0" cellspacing="1" bgcolor="#FF3366">
              <tr align="center" valign="middle" bgcolor="#E1DEFE"> 
                <td><strong>科室名称</strong></td>
                <td><strong>科室编号</strong></td>
                <td><strong>操作</strong></td>
              </tr>
              <% 
While ((Repeat1__numRows <> 0) AND (NOT rsGrade1.EOF)) 
%>
              <form name="form1" method="post" action="ClassManage.asp">
                <tr align="center" valign="middle" bgcolor="#FFFFFF"> 
                  <td><%=(rsGrade1.Fields.Item("ClassName").Value)%></td>
                  <td><%=(rsGrade1.Fields.Item("ClassID").Value)%></td>
                  <td> 
                    <input name="MM_Delete" type="hidden" value="True"> <input name="ID" type="hidden" value="<%=(rsGrade1.Fields.Item("ID").Value)%>"> 
                    <input type="submit" name="Submit2" value="删除"></td>
                </tr>
              </form>
              <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsGrade1.MoveNext()
Wend
%>
            </table></td>
          <td><table width="100%" border="1" style="border-collapse:collapse"cellpadding="0" cellspacing="1" bgcolor="#FF3366">
              <tr align="center" valign="middle" bgcolor="#E1DEFE"> 
                <td><strong>科室名称</strong></td>
                <td><strong>科室编号</strong></td>
                <td><strong>操作</strong></td>
              </tr>
              <% 
While ((Repeat2__numRows <> 0) AND (NOT rsGrade2.EOF)) 
%>
              <form name="form1" method="post" action="ClassManage.asp">
                <tr align="center" valign="middle" bgcolor="#FFFFFF"> 
                  <td><%=(rsGrade2.Fields.Item("ClassName").Value)%></td>
                  <td><%=(rsGrade2.Fields.Item("ClassID").Value)%></td>
                  <td> 
                    <input name="MM_Delete" type="hidden" value="True"> <input name="ID" type="hidden" value="<%=(rsGrade2.Fields.Item("ID").Value)%>"> 
                    <input type="submit" name="Submit22" value="删除"></td>
                </tr>
              </form>
              <% 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  rsGrade2.MoveNext()
Wend
%>
            </table></td>
          <td><table width="100%" border="1" style="border-collapse:collapse"cellpadding="0" cellspacing="1" bgcolor="#FF3366">
              <tr align="center" valign="middle" bgcolor="#E1DEFE"> 
                <td><strong>科室名称</strong></td>
                <td><strong>科室编号</strong></td>
                <td><strong>操作</strong></td>
              </tr>
              <% 
While ((Repeat3__numRows <> 0) AND (NOT rsGrade3.EOF)) 
%>
              <form name="form1" method="post" action="ClassManage.asp">
                <tr align="center" valign="middle" bgcolor="#FFFFFF"> 
                  <td><%=(rsGrade3.Fields.Item("ClassName").Value)%></td>
                  <td><%=(rsGrade3.Fields.Item("ClassID").Value)%></td>
                  <td> 
                    <input name="MM_Delete" type="hidden" value="True"> <input name="ID" type="hidden" value="<%=(rsGrade3.Fields.Item("ID").Value)%>"> 
                    <input type="submit" name="Submit222" value="删除"></td>
                </tr>
              </form>
              <% 
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  rsGrade3.MoveNext()
Wend
%>
            </table></td>
          <td><table width="100%" border="1" style="border-collapse:collapse"cellpadding="0" cellspacing="1" bgcolor="#FF3366">
              <tr align="center" valign="middle" bgcolor="#E1DEFE"> 
                <td><strong>科室名称</strong></td>
                <td><strong>科室编号</strong></td>
                <td><strong>操作</strong></td>
              </tr>
              <% 
While ((Repeat4__numRows <> 0) AND (NOT rsGrade4.EOF)) 
%>
              <form name="form1" method="post" action="ClassManage.asp">
                <tr align="center" valign="middle" bgcolor="#FFFFFF"> 
                  <td><%=(rsGrade4.Fields.Item("ClassName").Value)%></td>
                  <td><%=(rsGrade4.Fields.Item("ClassID").Value)%></td>
                  <td> 
                    <input name="MM_Delete" type="hidden" value="True"> <input name="ID" type="hidden" value="<%=(rsGrade4.Fields.Item("ID").Value)%>"> 
                    <input type="submit" name="Submit2222" value="删除"></td>
                </tr>
              </form>
              <% 
  Repeat4__index=Repeat4__index+1
  Repeat4__numRows=Repeat4__numRows-1
  rsGrade4.MoveNext()
Wend
%>
            </table></td>
          <td><table width="100%" border="1" style="border-collapse:collapse"cellpadding="0" cellspacing="1" bgcolor="#FF3366">
              <tr align="center" valign="middle" bgcolor="#E1DEFE"> 
                <td><strong>科室名称</strong></td>
                <td><strong>科室编号</strong></td>
                <td><strong>操作</strong></td>
              </tr>
              <% 
While ((Repeat5__numRows <> 0) AND (NOT rsGrade5.EOF)) 
%>
              <form name="form1" method="post" action="ClassManage.asp">
                <tr align="center" valign="middle" bgcolor="#FFFFFF"> 
                  <td><%=(rsGrade5.Fields.Item("ClassName").Value)%></td>
                  <td><%=(rsGrade5.Fields.Item("ClassID").Value)%></td>
                  <td> 
                    <input name="MM_Delete" type="hidden" value="True"> <input name="ID" type="hidden" value="<%=(rsGrade5.Fields.Item("ID").Value)%>"> 
                    <input type="submit" name="Submit22222" value="删除"></td>
                </tr>
              </form>
              <% 
  Repeat5__index=Repeat5__index+1
  Repeat5__numRows=Repeat5__numRows-1
  rsGrade5.MoveNext()
Wend
%>
            </table></td>
        </tr>
      </table>
        <br>
    </td>
    </TR>
</TABLE>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
		<Iframe src="CopyRight.asp" width="760" height="100" marginheight="0" marginwidth="0" scrolling="NO" frameborder="0" name="CopyRight"></iframe>
	</td>
  </tr>
</table></BODY>
</HTML>
<%
rsGrade1.Close()
Set rsGrade1 = Nothing
%>
<%
rsGrade2.Close()
Set rsGrade2 = Nothing
%>
<%
rsGrade3.Close()
Set rsGrade3 = Nothing
%>
<%
rsGrade4.Close()
Set rsGrade4 = Nothing
%>
<%
rsGrade5.Close()
Set rsGrade5 = Nothing
%>
上一页 12
⌨️ 快捷键说明

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