📄 employeeinformation.asp
字号:
<%@ Language=VBScript %>
<%
'判断用户是否登录
if isempty(Session("ID")) then
Response.Redirect "../login.asp"
end if
'连接系统数据库
set conn = server.createobject ("adodb.connection")
conn.open "ASPData", "sa", "yourpassword"
'判断用户是否提交了表单
if not IsEmpty(Request.Form("Send")) then
'如果用户希望查询全部员工信息
if Request.Form("SendTo") = "AllEmployeeInformation" then
Set RSEnquiryResult = conn.Execute("select * from PSLogins order by " & Request.Form("AllOrder"))
TheMessage = "全体员工信息按" & Request.Form("AllOrder") & "排序如下"
label=true
'如果用户希望查询某个部门员工信息
elseif Request.Form("SendTo") = "DepartmentEmployeeInformation" then
Set RSEnquiryResult = conn.Execute("select * from PSLogins where Department = '" _
& Request.Form("DepartmentName") &"' order by Position" )
TheMessage = Request.Form("DepartmentName") & "全部员工信息如下"
label=true
'如果用户希望进入修改个人信息页面
elseif Request.Form("SendTo") = "ModifyPersonalInformation" then
Response.Redirect "ModifyPersonalInformation.asp"
'如果用户希望进入系统管理员页面
elseif Request.Form("SendTo") = "SystemManager" then
if Session("IsSystemManager")=true then
Session("SystemOrder")=Request.Form("SystemOrder")
Response.Redirect "SystemManager.asp"
else
TheMessage=" 对不起，您不是系统管理员，没有此项权限"
Label=false
end if
'如果用户希望查询某个员工信息
elseif Request.Form("SendTo") = "OneEmployeeInformation" then
Label=true
if Request.Form("CheckName")="FromList" then
Set RSEnquiryResult = conn.Execute("select * from PSLogins where Name = '" _
& Request.Form("RoleName") &"' " )
TheMessage ="查询员工 '"&Request.Form("RoleName") & "' 信息结果如下"
else
Set RSEnquiryResult = conn.Execute("select * from PSLogins where Name = '" _
& Request.Form("TypeName") &"' " )
TheMessage ="查询员工 '"&Request.Form("TypeName") & "' 信息结果如下"
end if
'如果用户希望查询部门主管信息
else
Set RSEnquiryResult = conn.Execute("select * from PSLogins where Position='主管'" )
TheMessage = "各部门主管信息如下"
label=true
end if
'如果用户是第一次进入页面
else
TheMessage = "请在下面选择员工信息管理选项"
end if
set RSDepartments = conn.Execute("select DepartmentName from Departments order by DepartmentName")
set RSRoles = conn.Execute("select Name from PSLogins order by Name")
%>
<html>
<head>
<title>员工信息管理系统</title>
</head>
<body>
<table width=800 border=0 align=center cellpadding=2 cellspacing=1 bordercolor="#996633" bgcolor=#164DA8>
<tr bgcolor=white>
<td valign=center bgcolor="#0066CC" >
<div align="center"><font color="#CCCCCC" size="+7" face="华文隶书"><strong>公司内部办公信息管理系统</strong></font></div></td>
</tr>
</table>
<table width="800" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="13"> </td>
</tr></table>
<br>
<table width=800 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<tr><td colspan=3>
<font color=white>
<P ALIGN="CENTER"><font size="2">公司内部办公信息管理系统->员工信息管理系统 [当前用户-
<% response.write Session("Name") %>
]</font> </font></td></tr>
<tr bgcolor=white >
<td><a href=".././html/home.asp"><font color="#104DAD" size="2">返回内网主页</font></a></td>
<td align=center> <font color="#104DAD" size="2"><% response.write TheMessage %></FONT></td>
<td align=right><a href=".././html/home.asp"><font color="#104DAD" size="2">返回上一级网页</font></a></td>
</tr></table>
<table width="800" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="13"> </td>
</tr></table>
<table width="800" border="0" bordercolor="#164DA8" align="center" cellpadding="3" cellspacing="0">
<tr><td><br>
<form action="./EmployeeInformation.asp" method=post>
<table cellpadding=1 cellspacing=2 border=1 bordercolor="#164DA8" width=800 align=center>
<tr valign="center" align="center">
<td width=35% bgcolor=#B5C7EF></td>
<td>
<table cellpadding=1 cellspacing=1 border=1 align=center width=100%>
<tr>
<td width=35％><input type="radio" checked name="SendTo" value="AllEmployeeInformation" >
<font color="#164DA8"><size="2">查询所有员工信息</font></font></td>
<td>
<input type="radio" checked name="AllOrder" value="Name" >按姓名排序 
<input type="radio" name="AllOrder" value="Department" >按部门排序 
<input type="radio" name="AllOrder" value="Birthday" >按生日排序
</td></tr>
<tr><td width=30％>
<input type="radio" name="SendTo" value="DepartmentEmployeeInformation" >
<font color="#164DA8">查询某个部门员工信息</font></td>
<td>
<select name="DepartmentName" >
<%
Do Until RSDepartments.EOF
%>
<option value="<% Response.Write RSDepartments("DepartmentName") %>">
<% Response.Write RSDepartments("DepartmentName") %></option>
<%
RSDepartments.Movenext
loop
%>
</select></td></tr>
<tr><td>
<input type="radio" name="SendTo" value="OneEmployeeInformation" ><font color="#164DA8">查询某个员工信息</font>
</td><td>
<table width=100% border=1>
<tr><td>
<input type="radio" Checked name="CheckName" value="FromList" ><font color="#164DA8">从列表中选择</font>
</td><td>
<select name="RoleName" >
<%
Do Until RSRoles.EOF
%>
<option value="<% Response.Write RSRoles("Name") %>"><% Response.Write RSRoles("Name") %></option>
<%
RSRoles.Movenext
loop
%>
</select>
</td></tr>
<tr><td>
<input type="radio" name="CheckName" value="Type" ><font color="#164DA8">从输入的名字查询</font>
</td>
<td>
<input type="text" Checked name="TypeName" value="" >
</td></tr></table>
</td></tr>
<tr><td width=30%><input type="radio" name="SendTo" value="DepartmentManager" >
<font color="#164DA8">查询部门主管信息</font></td><td> </td></tr>
<tr><td width=30%><input type="radio" name="SendTo" value="ModifyPersonalInformation" >
<font color="#164DA8">修改关于我的信息</font></td><td> </td></tr>
<tr><td width=30%><input type="radio" name="SendTo" value="SystemManager" >
<font color="#164DA8">系统管理员选项</font></td>
<td><input type="radio" name=SystemOrder value="Name" checked >以姓名排序进入 
<input type="radio" name=SystemOrder value="Department">以部门排序进入 <br>
<input type="radio" name=SystemOrder value="Birthday">以生日排序进入 
<input type="radio" name=SystemOrder value="Position">以职位排序进入 
</td>
</tr>
</table>
</td>
</tr>
</table>
<table cellpadding=0 cellspacing=0 BORDER=1 width=800 align=center>
<tr VALIGN="top" ALIGN="center"><td width=100% align=center >
<input type="submit" name="Send" value="进入选项" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB">
</td></tr></table>
<br>
<%
if not IsEmpty(Request.Form("Send")) then
Response.Write "<table width=100% border=0 bgcolor=#164DA8 "_
& "cellspacing=1 cellpadding=2 align=center>"
Response.Write "<tr><td><font color=white><P ALIGN=CENTER>" & TheMessage
Response.Write "</font></td></tr>"
'如果不输出查询结果
if Label=false then
Response.Write "</table>"
else
'如果要输出查询结果
Response.write "<tr bgcolor=white ><td align=center>"
Response.write "<table width=100% bgcolor=#164DA8 " _
& "border=0 cellspacing=1 cellpadding=2 align=center>"
Response.write "<tr><td><font color=white>登录名</font></td>"
Response.write "<td><font color=white>姓名</font></td>"
Response.write "<td><font color=white>电子邮件地址</font></td>"
Response.write "<td><font color=white>部门</font></td>"
Response.write "<td><font color=white>内部分机</font></td>"
Response.write "<td><font color=white>移动电话</font></td>"
Response.write "<td><font color=white>家庭电话</font></td>"
Response.write "<td><font color=white>QQ号</font></td>"
Response.write "<td><font color=white>生日</font></td></tr> "
if not IsEmpty(RSenquiryResult) then
do Until RSEnquiryResult.eof
Response.write "<tr bgcolor=white>"
Response.write "<td>"& RSEnquiryResult("LoginID") &"</td>"
Response.write "<td>" & RSEnquiryResult("Name") & "</td>"
Response.write "<td><a href=mailto:" & RSEnquiryResult("EmailAddress") & ">"
Response.write "<font face=arial>" & RSEnquiryResult("EmailAddress") _
& "</font></a></td>"
Response.write "<td>" & RSEnquiryResult("Department") & "</td>"
Response.write "<td>" & RSEnquiryResult("InternalPhone") & "</td>"
Response.write "<td>" & RSEnquiryResult("MobilePhone") & "</td>"
Response.write "<td>" & RSEnquiryResult("HomePhone") & "</td>"
Response.write "<td>" & RSEnquiryResult("QQ") & "</td>"
Response.write "<td>" & RSEnquiryResult("Birthday") & "</td></tr>"
RSEnquiryResult.Movenext
Loop
end if
Response.Write "</table></td></tr></table>"
end if
end if
%>
</td></tr></table>
</form> </body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -