📄 human_infolist_table.asp
字号:
<%'--------------------------------------------------------------------------
' Project: AMBER-SOFT网络办公系统
' Module : 职员资料维护表
' By: badoon
' Discription: 职员资料维护表演示-
'--------------------------------------------------------------------------%>
<%response.expiresabsolute=#jan 01,1980 00:00:00#
if session("userid")="" then
response.write "<SCRIPT LANGUAGE='JavaScript'>"&chr(13)
response.write "<!--"&chr(13)
response.write "parent.location.href=""/error/error.htm"""&chr(13)&chr(13)
response.write "//-->"&chr(13)
response.write "</SCRIPT>"&chr(13)
end if
%>
<!--#include virtual="/_inc/GeneralADO.asp"-->
<!--#include virtual="/_inc/Func.asp"-->
<html>
<head>
<title>职员资料维护-</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="<%=session("css")%>person.css" type="text/css">
<SCRIPT LANGUAGE="JavaScript" src="/js/popwin.js">
</SCRIPT>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<%
priv1=request("priv1")
priv2=request("priv2")
priv3=request("priv3")
priv4=request("priv4")
priv5=request("priv5")
priv6=request("priv6")
KEY_Dept=request("dept")
KEY_Name=request("NAME")
KEY_Sex=request("sex")
submitit=request("submitit")
if submitit<>"yes" then
priv1=1
priv2=1
priv3=1
priv4=1
priv5=1
priv6=1
oRS.open "select col_id from ColFilter where table_id=1 and userid="&session("userid")
while oRS.eof
execute "priv"&oRS("col_id")&"=0"
oRS.movenext
wend
oRS.close
end if
SqlWhere="em_deptid=id and em_type='em' and type=1 and disable=0"
'------------- SELECT 框 部门 ---------
If KEY_Dept <> "" Then '类别筛选条件
SqlWhere=sqlwhere & " and id=" & KEY_Dept
end if
'------------- TEXT 框 姓名 ---------
If KEY_Name <> "" Then '筛选条件
SqlWhere=SqlWhere & " AND em_name like '%" & KEY_Name & "%'"
end if
'------------- SELECT 框 性别--------
if KEY_Sex <> "" then '筛选条件
SqlWhere=SqlWhere & " and em_sex='" & KEY_Sex & "'"
end if
Set oTBL = CreateObject("Amber.Table")
otbl.setconnection oCon
otbl.pagesize=23
otbl.setsql "SELECT * from human_employee,[group]",sqlwhere
'response.write sqlwhere
otbl.tablestyle.stylestring=" width=""100%"" border=""1"" cellspacing=""0"" cellpadding=""0"" bordercolorlight=""#C1C1C1"" bordercolordark=""#FFFFFF"""
'----------- chaxun ----------------
otbl.querystring.add "priv1",priv1
otbl.querystring.add "priv2",priv2
otbl.querystring.add "priv3",priv3
otbl.querystring.add "priv4",priv4
otbl.querystring.add "priv5",priv5
otbl.querystring.add "priv6",priv6
otbl.querystring.add "Dept", KEY_Dept
otbl.querystring.add "Name", KEY_NAME
otbl.querystring.add "Sex",KEY_Sex
otbl.querystring.add "submitit",submitit
'----------------------------------------
otbl.title.intable=true
otbl.title.style.stylestring="align=""center"""
'oTBL.Footer.value = "<hr>%&_RECCOUNT_% contact(s).<br>"
oTBL.Header.Style.stylestring=" align=""center"" bgcolor=""#E3E2DB"""
'oTBL.turnPage.Style.bgcolor="#CCFFFF"
'oTBL.Footer.Style.bgcolor="#CCFFFF"
'oTBL.AddDefaultCols "bgcolor=#CCFFFF"
'otbl.addcolumn "Click"," ","<img onClick=""parent.location.href='contact.asp?contact_id=%&Contact_id%'"" src=""/images/images/amend.gif"" border=0>","width=""1%"" bgcolor=""#EEEDE8"""
if priv1="1" then
if sbPageAuthority("RSGL_2_1","mod",session("userid"))="" then
otbl.addcolumn "Name","姓 名","<A HREF=""reem.asp?id=%&em_id%"">%&em_name%</A>"," align=""center"" bgcolor=""#F4F3F0"""
else
otbl.addcolumn "Name","姓 名","%&em_name%"," align=""center"" bgcolor=""#F4F3F0"""
end if
end if
if priv2="1" then otbl.addcolumn "Department","部 门","%&name%"," align=""center"" bgcolor=""#F4F3F0"""
if priv3="1" then otbl.addcolumn "Id","工 号","%&em_id%"," align=""center"" bgcolor=""#F4F3F0"""
if priv4="1" then otbl.addcolumn "Sex","性 别","%&em_sex%"," align=""center"" bgcolor=""#F4F3F0"""
if priv5="1" then otbl.addcolumn "Place","职 位","%&em_place%"," align=""center"" bgcolor=""#F4F3F0"""
if priv6="1" then otbl.addcolumn "Indate","进入公司时期","%&em_indate%"," align=""center"" bgcolor=""#F4F3F0"""
if priv1="1" then
otbl.cols("Name").sort=true
otbl.cols("Name").sortfield1="em_name"
end if
if priv2="1" then
otbl.cols("Department").sort=true
otbl.cols("Department").sortfield1="name"
end if
if priv3="1" then
otbl.cols("Id").sort=true
otbl.cols("Id").sortfield1="em_id"
end if
if priv4="1" then
otbl.cols("Sex").sort=true
otbl.cols("Sex").sortfield1="em_sex"
end if
if priv5="1" then
otbl.cols("Place").sort=true
otbl.cols("Place").sortfield1="em_place"
end if
if priv6="1" then
otbl.cols("Indate").sort=true
otbl.cols("Indate").sortfield1="em_indate"
end if
'otbl.space="（无）"
otbl.imagePath="/images/amber-table/002/"
'otbl.cols("delete").caption="删除"
'otbl.keyfield="id"
'otbl.delconfirm="确定要删除么?"
oTBL.company=""
'oTBL.createtable
'otbl.displaytable
otbl.writetable
set otbl=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -