📄 address.asp
字号:
<%
'文件名：address.asp
'作者：展亮
'功能：员工通讯录
'参数：
'开发时间：2003-11-29 17:13
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/const.asp"-->
<%
'变量申明区
%>
<%
'主程序区
'读入部门
set Rsdepart=server.createobject("adodb.recordset")
Sqldepart="select * from tbioadepartment"
Rsdepart.open Sqldepart,oconn,1,3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; chaRscaret=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>main</title>
<base target="FrmMain">
</head>
<body topmargin="10" leftmargin="10">
<table width="100%" border="0" align="center" cellspacing="1" cellpadding="2" class="tab">
<tr >
<td colspan="6" class="tdTop2"><img border="0" src="../images/icon_title.gif" align="left"> 员工通信录</td>
</tr>
<%
set Rsuser=server.CreateObject("adodb.recordset")
do while not Rsdepart.eof
%>
<tr>
<td colspan="6" align="left" class="td2">
<img src="../images/menu_open.gif" align="left" border="0" id="p_<%=Rsdepart("id")%>" onClick="if (t_<%=Rsdepart("id")%>.style.display=='none'){t_<%=Rsdepart("id")%>.style.display='';p_<%=Rsdepart("id")%>.src='../images/menu_open.gif';} else {t_<%=Rsdepart("id")%>.style.display='none';p_<%=Rsdepart("id")%>.src='../images/menu_close.gif';} ">
<%=Rsdepart("name")%> </td>
</tr>
<%
Rsuser.open "select * from tbioauser where department='" &Rsdepart("id")& "'",oconn,1,3
if not Rsuser.eof then
%>
<tr>
<td class=td1>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="t_<%=Rsdepart("id")%>">
<tr>
<td class=td1 nowrap>
<table width="100%" border="0" align="center" cellspacing="1" cellpadding="2" class="tab">
<tr>
<td align=center width=25% class=tdbottom nowrap>员工姓名</td>
<td align=center width=25% class=tdbottom nowrap>公司电话</td>
<td align=center width=25% class=tdbottom>移动电话</td>
<td align=center width=25% class=tdbottom nowrap>邮箱</td>
</tr>
<%
do while not Rsuser.eof
%>
<tr>
<td class=td1 nowrap>
<%if Rsuser("RoleID")="" then
response.write " " & "<font color=red><a href='userdetail.asp?strid="&Rsuser("id")&"'>"&Rsuser("name")&"</a></font>"
else
response.write " " & "<a href='userdetail.asp?strid="&Rsuser("id")&"'>"&Rsuser("name")&"</a>"
end if
%>
</td>
<td class=td1 nowrap>
<%=Rsuser("Officetel")%>
</td>
<td class=td1>
<%=Rsuser("Mobiletel")%>
</td>
<td class=td1 nowrap><%=Rsuser("eMail")%></td>
</tr>
<%
Rsuser.movenext
loop
%>
</table>
</td>
</tr>
</table>
</td>
</tr>
<%
else
response.write "<tr id='t_"&Rsdepart("id")&"'><td class='td1'> 本部门暂无员工</td></tr>"
end if
Rsuser.close
Rsdepart.movenext
loop
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -