📄 x_user.asp
字号:
<!--#include file="x_top.asp" -->
<table width="100%" height="282" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="200" valign="top">
<%call zuo_kuaijie("职员中心管理面板","职员中心首页,?||公司职员中心,?chuli=zhiyuan&ul=1||公司历史职员库,?chuli=zhiyuan&ul=2||公司备用人才库,?chuli=zhiyuan&ul=0") %>
</td>
<td valign="top"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><div id="comlist"></div></td>
</tr>
<tr>
<td width="1%"><img src="skins/list/l1.gif" width="7" height="9" /></td>
<td width="98%" background="skins/list/l2.gif"></td>
<td width="1%"><img src="skins/list/l8.gif" width="8" height="9" /></td>
</tr>
<tr>
<td background="skins/list/l3.gif"> </td>
<td height="400" valign="top">
<!--职员分类列表 -->
<% select case Trim(Request.QueryString("chuli"))
case "zhiyuan"
ul=cnshu(Trim(Request.QueryString("ul")),1,1,"职员类型",1) %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<form action="?chuli=zhiyuan&ul=<%= ul %>" method="post"><tr>
<td colspan="6">
<p style="float:left"><img src="skins/sb/1.png" width="30" />
<b><font color="#000000" size="2"><%= replace(replace(replace(ul,"0","公司备用人才库"),"1","公司职员中心"),"2","公司历史职员库") %></font></b> <a href="x_wai_chuli.asp?xlei=newman" target="_blank"><font color="#990000"><u>新职员录入</u></font></a> </p>
<p align="right">
<input name="souname" type="text" class="nnt_input" id="souname" title="请在这里输入 姓名 别名 电话 地址 等关键字来查询！" value="<%= request("souname") %>" />
<input name="Submit" type="submit" class="nnt_submit" value="搜索" />
</p>
</td></tr></form><tr><td colspan="6">
</td>
</tr>
<tr>
<td class='td_heng'><b>姓名</b></td>
<td class='td_heng'><b>别名</b></td>
<td class='td_heng'><b>职位</b></td>
<td class='td_heng'><b>年龄</b></td>
<td class='td_heng'><b>联系电话</b></td>
<td class='td_heng'><b>可用操作</b></td>
</tr>
<% If Request.QueryString("CurPage")="" or Request.QueryString("CurPage")=0 then
CurPage = 1
Else
CurPage = CINT(Request.QueryString("CurPage"))
End If
if request("souname")<>"" then
souselect="and u_name like '%"&request("souname")&"%' or u_bname like '%"&request("souname")&"%' or u_xinxi like '%"&request("souname")&"%'"
end if
set drs= Server.CreateObject("adodb.recordset")
drs.open ("select * from nnt_user where u_zhuangtai="&ul&" "&souselect&" order by u_intime desc "),conn,1,1
if drs.eof then
Response.Write("<tr><td colspan=6>没有查询到您需要的信息，请确认您要查询的信息再次输入。</td></tr>")
else
dRS.PageSize=20
Dim TotalPages
TotalPages = dRS.PageCount
If CurPage>dRS.Pagecount Then
CurPage=dRS.Pagecount
end if
dRS.AbsolutePage=CurPage
drs.CacheSize = dRS.PageSize
Dim Totalcount
Totalcount =INT(dRS.recordcount)
do while (Not dRS.Eof) and (II<dRS.PageSize)
userxinxi=split(drs("u_xinxi"),"||@@||")
%><tr onMouseOver="javascript:bgColor='#C8E4FF'" onMouseOut="javascript:bgColor='#ffffff'">
<td>
<a href='?chuli=zhiyuanxinxi&uid=<%= drs("u_id") %>' ><img src="skins/sb/u_<%= drs("u_zhuangtai") %>.png" width="20" border="0" align="absmiddle" /> <%= drs("u_name") %></a> </td>
<td><%= drs("u_bname") %></td>
<td><%= request.cookies("q_"&drs("u_zhiwei"))("qname") %></td>
<td><%= Datediff("yyyy",cdate(userxinxi(1)),date()) %> <%= replace(replace(userxinxi(0),"0","男"),"1","女") %></td>
<td><%= userxinxi(2) %><% if userxinxi(2)<>"" then Response.Write(",") %><%= userxinxi(3) %></td>
<td><a href="?chuli=zhiyuanxinxi&uid=<%= drs("u_id") %>">查看</a>
<% if sessquan>1 then %>| <a href="?chuli=zhiyuanedit&uid=<%= drs("u_id") %>">修改</a> <% End If %><% if sessquan>0 then %>| <a href="x_yewu.asp?chuli=listyewu&souname=<%= drs("u_bname") %>" target="_blank">业务</a><% End If %></td>
</tr><%
drs.movenext
II=II+1
loop
end if
%><tr><td colspan="6"><label></label></td></tr>
<tr>
<td colspan="6" bgcolor="#E6F0FF">
共 <b> <font color="#FF0000">
<% =Totalcount %>
</font></b> 条 信息 <%= drs.PageSize %> 条/页 共 <%= TotalPages %> 页 目前为第 <%= CurPage %> 页 <a href="?ul=<%=ul %>&chuli=<%= request("chuli") %>&souname=<%= request("souname") %>" class="titlefont">首页</a> <a href="?ul=<%=ul %>&Curpage=<%=CurPage-1%>&chuli=<%= request("chuli") %>&souname=<%= request("souname") %>" class="titlefont">上一页</a>
<% if Curpage-3>1 then
ys=Curpage-3
yb=Curpage+3
else
ys=1
yb=7
end if
if yb>TotalPages then yb=TotalPages
for xxs=ys to yb
%>
<a href=?ul=<%=ul %>&Curpage=<%=xxs%>&chuli=<%= request("chuli") %>&souname=<%= request("souname") %> class="titlefont"><% if Curpage=xxs then
Response.Write("<font color=#ff0000><b>"&xxs&"</b></font>")
else
Response.Write(xxs)
end if %></a>
<%
next %>
<a href="?ul=<%=ul %>&Curpage=<%=CurPage+1%>&chuli=<%= request("chuli") %>&souname=<%= request("souname") %>" class="titlefont">下一页</a> <a href="?ul=<%=ul %>&Curpage=<%=Totalcount%>&chuli=<%= request("chuli") %>&souname=<%= request("souname") %>" class="titlefont">尾页</a></td>
<% drs.close
set drs=nothing %> </tr>
</table>
<!--职员详细信息查看页 -->
<% case "zhiyuanxinxi"
uid=cnshu(Trim(Request.QueryString("uid")),8,1,"人员ID",1)
set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_user where u_id="&uid&" "),conn,1,1
if rs.eof then call cnerror("没有查询到此ID的人员，请返回重新选择查看。",0)
if sessquan>1 then
call listsub("comlist","返回列表,?chuli=zhiyuan&ul="&rs("u_zhuangtai")&"||查看 "&rs("u_name")&",?chuli=zhiyuanxinxi&uid="&uid&"||修改 "&rs("u_name")&",?chuli=zhiyuanedit&uid="&uid&"",1)
else
call listsub("comlist","返回列表,?chuli=zhiyuan&ul="&rs("u_zhuangtai")&"||查看 "&rs("u_name")&",?chuli=zhiyuanxinxi&uid="&uid&"",1)
end if
userxinxi=split(rs("u_xinxi"),"||@@||")
%>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td colspan="5" class='td_heng'><b>个人信息</b>(<%= replace(replace(replace(rs("u_zhuangtai"),"0","公司备用人才"),"1","公司职员"),"2","公司历史职员") %>)</td>
</tr>
<tr>
<td width="14%">姓名：</td>
<td width="23%"><img src="skins/sb/u_<%= rs("u_zhuangtai") %>.png" width="20" border="0" align="absmiddle" /> <b><%= rs("u_name") %> </b></td>
<td width="12%">性别：</td>
<td width="27%"><%= replace(replace(userxinxi(0),"0","男"),"1","女") %></td>
<td width="24%"> </td>
</tr>
<tr>
<td>别名：</td>
<td><%= rs("u_bname") %> </td>
<td>出生年月日：</td>
<td><%= userxinxi(1) %> (<%= Datediff("yyyy",cdate(userxinxi(1)),date()) %>)</td>
<td> </td>
</tr>
<tr>
<td>职位：</td>
<td><%= request.cookies("q_"&rs("u_zhiwei"))("qname") %> </td>
<td>证件号码：</td>
<td><% if sessquan>0 then %><%= userxinxi(5) %><% Else %>***************<% End If %></td>
<td> </td>
</tr>
<tr>
<td>录入时间：</td>
<td><%= rs("u_intime") %></td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td>固定电话：</td>
<td><%= userxinxi(2) %></td>
<td>移动电话：</td>
<td><%= userxinxi(3) %></td>
<td> </td>
</tr>
<tr>
<td>联系地址：</td>
<td><%= userxinxi(4) %></td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td>个人简介：</td>
<td><%= userxinxi(6) %></td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td colspan="5" class='td_heng'><b>备注信息</b></td>
</tr>
<tr>
<td colspan="4" valign="top">
<% beizhus=split(rs("u_bei"),"[|@@|]")
for bf=0 to ubound(beizhus)
if beizhus(bf)<>"" then
tbei=split(beizhus(bf),"|@|")
for tf=0 to ubound(tbei)
next
select case tbei(0)
case "1"
beis1=beis1&"<div style='width:100%;padding:2px;border-bottom:solid 1px #C8E4FF;'><span style='float:left;width:150px;'>"&tbei(1)&"</span><span style='float:left;width:70%;'>"&tbei(2)&"</span></div>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -