📄 deplist.asp
字号:
<!--#include file="../../Conndb.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>部门管理</title>
<link rel="stylesheet" href="../../style.css">
<script language="javascript">
function form_onsubmit(obj)
{
ValidationPassed = true;
if(obj.depid.selectedIndex <0) {
alert("请选择一级部门");
ValidationPassed = false;
return ValidationPassed;
}
if(obj.txttitle.value == "") {
alert("请输入部门名称");
ValidationPassed = false;
return ValidationPassed;
}
}
function form_onsubmit1(obj)
{
ValidationPassed = true;
if(obj.txttitle.value == "") {
alert("请输入部门名称");
ValidationPassed = false;
return ValidationPassed;
}
}
</script>
</head>
<body link="#000080" vlink="#080080">
<form id="form1" name="form1" method="POST">
<%
'处理添加、修改和删除操作
dim Soperate
Soperate = Request.QueryString("oper")
Operid = Request.QueryString("did")
'删除
If Soperate="delete" Then
'判断部门表中是否存在此部门
sql = "SELECT * FROM Departments WHERE DepId=" & Operid
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
'判断此部门是否存在下级部门
sql = "SELECT * FROM Departments WHERE UpperId=" & Operid
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
Response.Write "此部门存在下级部门，不能删除！"
Response.End()
End If
'判断此部门下是否存在员工
sql = "SELECT * FROM Employees WHERE DepId=" & Operid
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
Response.Write "此部门包含员工信息，不能删除！"
Response.End()
End If
'判断此部门是否被调转表使用
sql = "SELECT * FROM DepTrans WHERE OrgDepId=" & Operid & " Or NewDepId=" & Operid
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
Response.Write "部门调转中使用了此表，不能删除"
Response.End()
End If
sqldelt = "DELETE FROM Departments WHERE DepId=" & Operid
Conn.Execute(sqldelt)
Response.Write "部门已经成功删除！"
End If
'添加
ElseIf Soperate = "add" then
DepName = Request("txttitle")
UpId = Request("sUpperId")
If UpId="0" Then
UId = 0
Else
UId = Request("depid")
End If
'判断是否已经存在此部门名称
sql = "SELECT * FROM Departments WHERE DepName='" & DepName & "'"
Set rs = Conn.Execute(sql)
'如果没有此部门名称，则创建新记录
If Rs.EOF Then
sql = "INSERT INTO Departments VALUES('" & DepName & "'," & UId & ")"
Conn.Execute(sql)
Response.Write"部门已经成功添加！"
Else
Response.Write "已经存在此部门名称！"
End If
Set rs = Nothing
ElseIf Soperate = "edit" Then
DepName = Request("txttitle")
'如果新部门名称与旧名称不同，则判断是否存在此部门名称
sql = "SELECT * FROM Departments WHERE DepName = '" & DepName & "' And DepId=" & Operid
Set rs = conn.Execute(sql)
If Rs.EOF Then '如果原部门编号和新部门名称不存在，则表示部门名称发生变化
Set rs = Nothing
'此时判断是否存在此部门名称
sql = "SELECT * FROM Departments WHERE DepName='" & DepName & "'"
Set rs = Conn.Execute(sql)
If Rs.EOF Then '新部门不存在
conn.Execute("UPDATE Departments SET DepName='" & DepName & "' WHERE DepId=" & Operid)
Response.Write "部门已经成功修改！"
Else
Response.Write "已经存在此部门名称"
End if
End If
End If
%>
<p align='center'><font style="FONT-SIZE: 12pt"><b>部 门 管 理</b></font></p>
<center>
<table border="1" cellspacing="0" width="90%" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF">
<tr>
<td width="30%" align="center" bgcolor="#FEEC85"><strong>部门名称</strong></td>
<td width="30%" align="center" bgcolor="#FEEC85"><strong>子部门名称</strong></td>
<td width="20%" align="center" bgcolor="#FEEC85"><strong>修 改</strong></td>
<td width="20%" align="center" bgcolor="#FEEC85"><strong>删 除</strong></td>
</tr>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
'读取一级部门数据到记录集rs中
sql = "SELECT * FROM Departments WHERE UpperId=0 ORDER BY DepId"
rs.Open sql, conn, 1, 1
If rs.EOF Then
'如果记录集为空，则显示“目前还没有记录”
Response.Write "<tr><td colspan=4 align=center><font style='COLOR:Red'>目前还没有记录。</font></td></tr></table>"
Else
'在表格中显示部门名称
Do While Not rs.EOF
%>
<tr>
<td><%=rs("DepName")%></td>
<td> </td>
<td align="center"><a href="DepList.asp?Oper=update&did=<%=rs("DepId")%>&name=<%=rs("DepName")%>">修 改</a></td>
<td align="center"><a href="DepList.asp?Oper=delete&did=<%=rs("DepId")%>&name=<%=rs("DepName")%>">删 除</a></td>
</tr>
<%
Set Rsdep = Server.CreateObject("ADODB.RecordSet")
'读取此部门下所有部门信息
sql1 = "SELECT * FROM Departments WHERE UpperId=" & rs("DepId") &" ORDER BY DepId"
Rsdep.Open sql1, conn,1,4
Do While Not Rsdep.EOF
%>
<tr>
<td> </td>
<td><%=Rsdep("DepName")%></td>
<td align="center"><a href="DepList.asp?Oper=update&did=<%=Rsdep("DepId")%>&name=<%=Rsdep("DepName")%>">修 改</a></td>
<td align="center"><a href="DepList.asp?Oper=delete&did=<%=Rsdep("DepId")%>&name=<%=Rsdep("DepName")%>">删 除</a></td>
</tr>
<%
Rsdep.MoveNext()
Loop
Set Rsdep = Nothing
rs.MoveNext()
Loop
%>
</table>
<p align="center">
<%
End If
%>
</form>
<%
'如果当前状态为修改，则显示修改的表单，否则显示添加的表单
If Soperate = "update" Then
sTitle = Request.QueryString("name")
%>
<form name="UFrom" method="post" action="DepList.asp?did=<%=Operid%>&Oper=edit">
<div align="center">
<input type="hidden" name="sOrgTitle" value="<%=sTitle%>">
<font color="#FFFFFF"><b><font color="#000000">部门名称</font></b></font>
<input type="text" name="txttitle" size="20" value="<%=sTitle%>">
<input type="submit" name="Submit" value=" 修 改 ">
</div>
</form>
<%Else%>
<form name="AForm" method="post" action="DepList.asp?Oper=add">
<p align="center">
<font color="#FFFFFF"><b><font color="#000000">添加一级部门：</font></b></font>
部门名称： <input type="text" name="txttitle" size="20">
<input type="hidden" name="sUpperId" value="0">
<input type="submit" name="Submit" value=" 添 加 " onclick="return form_onsubmit1(this.form)">
</p>
</form>
<form name="BForm" method="post" action="DepList.asp?Oper=add">
<p align="center">
<select name="depid">
<% Set rs = Server.CreateObject("ADODB.RecordSet")
'将部门装入下拉菜单中
sql = "SELECT * FROM Departments WHERE UpperId=0 ORDER BY DepId"
Set rsDep = Conn.Execute(sql)
Do While Not rsDep.EOF
sname = rsDep("DepName")
did = rsDep("DepId")%>
<option value="<%=did%>"><%=sname%></option>
<% rsDep.movenext
Loop%>
</select>
<font color="#FFFFFF"><b><font color="#000000">添加二级部门：</font></b></font>
部门名称： <input type="text" name="txttitle" size="20">
<input type="hidden" name="sUpperId" value="1">
<input type="submit" name="Submit" value=" 添 加 " onclick="return form_onsubmit(this.form)">
</p>
</form>
<%End If%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -