<%@ 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 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<tr bgcolor=white><td valign=center ><img src="../ASPLogo3.jpg" width=796 height=100></td></tr></table>
<table width="800" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr><td height="13"><img src=".././image/banner2.jpg" width="800" height="12"></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">公司内部办公信息管理系统->员工信息管理系统 [当前用户-<% response.write Session("Name") %>]
</font></td></tr>
<tr bgcolor=white >
<td><a href=".././html/home.asp"><font color="#104DAD">返回内网主页</font></a></td>
<td align=center> <font color="#104DAD" ><% response.write TheMessage %></FONT></td>
<td align=right><a href=".././html/home.asp"><font color="#104DAD">返回上一级网页</font></a></td>
</tr></table>
<table width="800" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr><td height="13"><img src=".././image/banner2.jpg" width="800" height="12"></td></tr></table>
<table width="800" border="0" bordercolor="#164DA8" align="center" cellpadding="3" cellspacing="0">
<tr><td><br>
<form action="./aa.html" 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><img src="../image/employee1.jpg"></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">查询所有员工信息</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
ASP+ACCESS人事档案管理
4星 · 超过85%的资源 需积分: 14 52 浏览量
2009-05-18
17:55:04
上传
评论 2
收藏 453KB RAR 举报 
RS.rar （55个子文件） 
RS 
localstart.asp 6KB global.asa 177B _notes dwsync.xml 260B EmployeeInformation.asp 9KB image 
back.jpg 542B MessageBoard1.jpg 12KB HomepagePicture.jpg 10KB Lable.jpg 7KB Employee.psd 155KB mainlogo.jpg 5KB Employee.jpg 10KB HomepagePicture1.jpg 9KB banner3.jpg 1KB Thumbs.db 14KB banner2.jpg 2KB finance.jpg 12KB MessageBoard.jpg 9KB finance1.jpg 15KB Messageboard.psd 121KB finance.psd 155KB Employee1.jpg 13KB login.asp 4KB ASPLogo3.jpg 20KB html EmployeeInformation.asp 9KB home.asp 3KB Messageboard test.asp 1KB SuggestionBox.asp 7KB SendNewMessage.asp 5KB Communication.asp 4KB MessageBoard.asp 10KB ModifyMessage.asp 4KB Analysis.asp 5KB VotingBooth.asp 6KB voting.asp 6KB ToVote.asp 6KB Datasource Datasource.mdb 712KB ASPLogo3-1.jpg 21KB
aa.html 9KB Thumbs.db 5KB Employee SystemManager.asp 7KB AddNewUser.asp 10KB EmployeeInformation.asp 9KB ModifyPersonalInformation.asp 11KB EmployeeInformation1.asp 8KB ModifyUserInformation.asp 12KB change.asp 119B iisstart.asp 2KB finance FinancialReport.asp 14KB finance.asp 4KB Alert.asp 97B AddFinancialProject.asp 7KB AddFinancialRecord.asp 9KB ModifyFinancialRecord.asp 12KB FinancialReport1.asp 10KB Datasource.mdb 712KB
- 1
- 2
- 3
前往页