<!--#include file="conn.asp"-->
<%
if isempty (session("Id")) then
response.Redirect"login.asp"
end if
if not isempty(request.Form("send")) then
if request.Form("sendto")="allemployeeinformation"then
set rsenquiryresult=conn.execute("select*from userinfo order by "&request.Form("allorder"))
the message="全体员工信息按"&request.Form("allorder") &"排列"
label=true
elseif request.Form("sendto")="departmentemployeeinformation" then
<td><tr><div align="center"><font color="#9c65ff" size="2">
<input type="radio" name="sendto" value="oneemployeeinformation">
查询某个员工信息
</font></div></td>
<td>
<table width=100% border=1 bordercolor="#99ccff">
<tr><td><font color="#000000" size="1">
<input type="radio" checked name="checkname" value="fromlist">从列表中选择
</font></td>
<td><font size="1">
<select name="rolename">
<%
do until rsroles.eof
%>
<option value="<% response.Write rsroles("name") %>">
<% response.Write rsroles("name") %> <!--显示系统用户数据-->
</option>
<%
rsroles.movenext
loop
set rsenquiryresult =conn.execute("select * from user info where department='"_
& request.Form("departmentname") &"' order by position")
the message=request.Form("departmentname") & "全部员工信息"
label=true
elseif request.form("sendto")="modifypersonalinformation"then
response.Redirect"modifypersonalinformation.asp"
elseif request.Form("sendto")="systemmanager" then
if session("issysemmanager")=true then
session("sysermorder")=request.Form("systemorder")
response.Redirect "systemmanager.asp"
else
themessage="对不起,您不是系统管理员,没有权限"
label=false
end if
elseif request.Form("sendto")="oneemployeeinformation" then
label=ture
if request.Form("checkname")="fromlist"then
set rsenquiryresult=conn.execute("select * form userinfo where name='"&request.form("rolename")&"'")
the message="查询员工'"&request.Form("rolename")&"'信息结果"
else
set rsenquiryresult =conn.execute("select*from userinfo where name='"_
&request.Form("typename")&"'")
the message="查询员工'"&request.Form("typename") & "'信息结果"
end if
else
set rsenquiryresult=conn.execute("select*from userinfo where position='主管'")
the message="部门主管信息"
label=true
end if
else
the message="请在下面选择员工信息管理选项"
end if
set rsdepartments=conn.execute ("select departmentname from departments order by departmentname")
set rsroles=conn.execute ("select name from userinfo order by name ")
%>
<tr bgcolor="#99ccff"><td colspan=3>
<p align="center"><font color="white">
公司内部办公信息管理系统-->员工信息管理系统[ 当前用户--<% response.Write session("name")%>
</font></p></td>
</tr>
<tr bgcolor="write">
<td width="259"><div align="center">
<a href="home.asp"><font color="#9966FF"返回主页></font></font></a></div></td></tr></table>
<table width="800" border="0" bordercolor="#16a84d" align="center" cellpadding="3" cellspacing="0">
<tr><td></td></tr></table></a>
<form action="yuangong.asp" method="post"> </form> <!--表单执行程序-->
<tr></tr>
<td width="205" height="30">
<input type="radio" checked name="senddo" value="alleiployeeinformation" />
<font color="#9966ff" size="2">查询所有员工信息</font>
</td>
<td width="294">
<font size="1">
<input type="radio" checked name="allorder" value="name" />
按姓名排列
<input type="radio" checked name="allorder" value="department" />
按部门排列
<input type="radio" checked name="allorder" value="birthday" />
按生日排列
</font></td>
</tr>
<tr>
<td width="205">
<div align="center">
<font color="#9c65ff" size="2">
<input type="radio" name="sendto" value="departmentemployeeinformation" />
查询员工信息</font></div>
</td>
<td><font size="2">
<select name="departmentname">
<%
<option value="<% response.Write rsdepartments("departmentname") %>">
<response.Write rsdepartments("departmentname")%> <!--显示系统部门数据-->
</option>
<%
</select>
</font>
</td>
<!--循环显示记录-->
%>
</select>
</font></td>
<tr>
<tr><td>
<font color="#000000" size="1">
<input type="radio" name="checkname" value="type" />
请输入名字</font>
</td>
<td>
<font size="1">
<input type="text" checked name="typename" value="" />
<input type="radio" name="sendto" value="departmentmanager" />
查询部门主管信息</font></div></td>
<td>
</tr>
<tr> <td width="205"><div align="center">
<font color="#9c65ff" size="2">
<input type="radio" name="sendto" value="modifypersonalinformation" />
修改我的信息</font></div>
</td>
<td><font size="2"></font></td>
</tr>
<tr><td width="205"><div align="center">
<font color="#9c65ff" size="2">
<input type="radio" name="sendto" value="sysemmanager" />
系统管理员选项</font></div></td>
<td><font size="1">
<input type="radio" name="systemorder" value="name" checked />
按名字排列进入
<input type="radio" name="systemorder" value="department" />
按部门排列进入
<input type="radio" name="systemorder" value="birthday" />
按生日排列进入
<input type="radio" name="systemorder" value="position" />
按职位排列进入</font></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%" height="43" align="center" valign="middle">
<input type="submit" name="send" value="进入系统" />
</td>
</tr>
</table>
</td>
</form>
<%
if not isempty(request.Form("send"))then
response.Write"<table width=100% border=0 bgcolor=#9966ff"&"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 bacolor=white ><td align=center>"
response.Write"<table width=100% bgcolor=#9966ff"_
& "border=0 cellspacing=1 cellpadding=2 align=center>"
response.Write"<tr><td><font color=white><font size=2>登陆名</font></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>"
rsenquityresult.movenext
loop
end if
response.Write"</table></td></tr></table>"
end if
end if
%>
缺少语句
/yuangong.asp，行 12
<td><tr><div align="center"><font color="#9c65ff" size="2">
总是提示这样 请教大家了 急
