📄 emp_odp.inc
字号:
<%
function TableEmp()
dim sDept, sPost, sAccountId, sEmpNo, sEmpName, sId, sBirthday, sGender, sFolk, sNative, sEducation, sGraduateDate, sGraduateSchool, sSpeciality, sPolitical, sPosition, sTitle, sMarriage, sHAddr, sHZip, sHPhone, sMobile, sWorkDate, sTelecomDate, sEmpDate, sEmail, sRemark, sDismissDate, sDismissInfor, sDismissOp
dim sPhoto
dim sSQL
sSQL = "select * from t_empdismissed where emp_serial = " & pEmpSerial
dim crs, rs
set crs = New CRecordset
set rs = crs.Open(dbLocal, sSQL)
'' 若找不到相应的记录，则跳转到出错页面
if rs.EOF then
Response.Clear
Server.Transfer("../common/error.asp")
Response.end
end if
sAccountId = crs.GetValue("account_id") '' 用户名
sEmpNo = crs.GetValue("emp_no") '' 工号
sEmpName = crs.GetValue("name") '' 姓名
sGender = crs.GetValue("gender") '' 性别
sBirthday = crs.GetValue("birthday") '' 出生日期
sEducation = crs.GetValue("education") '' 教育程度
sGraduateDate = crs.GetValue("graduate_date") '' 毕业时间
sGraduateSchool = crs.GetValue("graduate_school") '' 毕业学校
sSpeciality = crs.GetValue("specialty") '' 专业
sPosition = crs.GetValue("pos") '' 职务
sTitle = crs.GetValue("title") '' 职称
sDept = crs.GetValue("dept") '' 部门
sPost = crs.GetValue("post") '' 岗位
sFolk = crs.GetValue("folk") '' 民族
sPolitical = crs.GetValue("political") '' 政治面貌
sMarriage = crs.GetValue("marriage") '' 婚姻状况
sHAddr = crs.GetValue("home_address") '' 家庭地址
sHZip = crs.GetValue("home_zip") '' 邮政编码
sHPhone = crs.GetValue("home_phone") '' 住宅电话
sMobile = crs.GetValue("mobile") '' 移动电话
sWorkDate = crs.GetValue("work_date") '' 参加工作年月
sTelecomDate = crs.GetValue("telecom_date") '' 进邮电年月
sEmpDate = crs.GetValue("emp_date") '' 进本单位年月
sNative = crs.GetValue("native") '' 籍贯
sId = crs.GetValue("id") '' 身份证号码
sEmail = crs.GetValue("co_email") '' email
sRemark = crs.GetValue("remark") '' 补充信息
sDismissDate = crs.GetValue("dismiss_date") '' 离职日期
sDismissInfor = crs.GetValue("dismiss_infor") '' 离职补充信息
sDismissOp = crs.GetValue("dismiss_op") '' 离职登记人员
'' 员工照片
sPhoto = GetPhoto(pEmpSerial)
if sHPhone <> "" then sHAddr = sHAddr & "（邮编：" & sHZip & "）"
TableEmp = _
"<table cellspacing=1 cellpadding=3 bgcolor=""silver"" border=0 width=600 style=""table-layout:fixed"">" & vbLF & _
" <tr style=""display:none"">" & vbLF & _
" <td width=80>这一行仅用于控制每一栏的宽度</td><td width=""12%"">这一行仅用于控制每一栏的宽度</td>" & vbLF & _
" <td width=80>这一行仅用于控制每一栏的宽度</td><td width=""*"">这一行仅用于控制每一栏的宽度</td>" & vbLF & _
" <td width=75>这一行仅用于控制每一栏的宽度</td><td width=""16%"">这一行仅用于控制每一栏的宽度</td>" & vbLF & _
" <td width=90>这一行仅用于控制每一栏的宽度</td>" & vbLF & _
" </tr>" & vbLF & _
" <tr bgcolor=""#0040a0"" style=""color:white;font-weight:600"">" & vbLF & _
" <td colspan=7 align=center>离 职 员 工 信 息 表</td>" & vbLF & _
" </tr>" & vbLF & _
" <tr bgcolor=white height=25>" & vbLF & _
" <td align=center>姓 名</td><td class=tdValue nowrap>" & sEmpName & "</td>" & vbLF & _
" <td align=center>所在部门</td><td class=tdValue nowrap>" & sDept & "</td>" & vbLF & _
" <td align=center>所任岗位</td><td class=tdValue nowrap>" & sPost & "</td>" & vbLF & _
" <td rowspan=5 align=center style=""color:gray"">" & sPhoto & "</td>" & vbLF & _
" </tr>" & vbLF & _
" <tr bgcolor=white height=25>" & vbLF & _
" <td align=center>工 号</td><td class=tdValue nowrap>" & sEmpNo & " </td>" & vbLF & _
" <td align=center>出生年月</td><td class=tdValue nowrap>" & sBirthday & "</td>" & vbLF & _
" <td align=center>性 别</td><td class=tdValue nowrap>" & sGender & "</td>" & vbLF & _
" </tr>" & vbLF & _
" <tr bgcolor=white height=25>" & vbLF & _
" <td align=center>民 族</td><td class=tdValue>" & sFolk & "</td>" & vbLF & _
" <td align=center>籍 贯</td><td class=tdValue nowrap>" & sNative & "</td>" & vbLF & _
" <td align=center>婚姻状况</td><td class=tdValue nowrap>" & sMarriage & "</td>" & vbLF & _
" </tr>" & vbLF & _
" <tr bgcolor=white height=25>" & vbLF & _
" <td align=center>政治面貌</td><td class=tdValue nowrap>" & sPolitical & "</td>" & vbLF & _
" <td align=center>职务</td><td class=tdValue nowrap>" & sPosition & "</td>" & vbLF & _
" <td align=center>职称</td><td class=tdValue nowrap>" & sTitle & "</td" & vbLF & _
" </tr>" & vbLF & _
" <tr bgcolor=white height=25>" & vbLF & _
" <td align=center>学 历</td><td class=tdValue>" & sEducation & "</td>" & vbLF & _
" <td align=center colspan=1>学历取得时间</td><td colspan=3 class=tdValue nowrap>" & sGraduateDate & "</td>" & vbLF & _
" </tr>" & vbLF & _
" <tr bgcolor=white height=25>" & vbLF & _
" <td align=center>原毕业学校</td><td colspan=3 class=tdValue nowrap>" & sGraduateSchool & "</td>" & vbLF & _
" <td align=center>所学专业</td><td colspan=2 class=tdValue nowrap>" & sSpeciality & "</td>" & vbLF & _
" </tr>" & vbLF & _
" <tr bgcolor=white height=25>" & vbLF & _
" <td align=center>家庭地址</td><td colspan=3 class=tdValue nowrap>" & sHAddr & "</td>" & vbLF & _
" <td align=center>家庭电话</td><td class=tdValue colspan=2 nowrap>" & sHPhone & "</td>" & vbLF & _
" </tr>" & vbLF & _
" <tr bgcolor=white height=25>" & vbLF & _
" <td align=center>手机或BP机</td><td class=tdValue colspan=3 nowrap>" & sMobile & "</td>" & vbLF & _
" <td align=center>身份证号码</td><td class=tdValue colspan=2 nowrap>" & sId & "</td>" & vbLF & _
" </tr>" & vbLF & _
" <tr bgcolor=white height=25>" & vbLF & _
" <td align=center>参加工作年月</td><td colspan=3 class=tdValue nowrap>" & sWorkDate & "</td>" & vbLF & _
" <td align=center>进邮电年月</td><td colspan=2 class=tdValue nowrap>" & sTelecomDate & "</td>" & vbLF & _
" </tr>" & vbLF & _
" <tr bgcolor=white height=25>" & vbLF & _
" <td align=center>进本单位年月</td><td colspan=3 class=tdValue nowrap>" & sEmpDate & "</td>" & vbLF & _
" <td align=center>电子信箱</td><td colspan=2 class=tdValue nowrap>" & sEmail & "</td>" & vbLF & _
" </tr>" & vbLF & _
" <tr bgcolor=white height=25>" & vbLF & _
" <td align=center>补充信息</td><td colspan=6 class=tdValue style=""word-wrap:break-word""><pre>" & sRemark & "</pre></textarea></td>" & vbLF & _
" </tr>" & vbLF & _
" <tr bgcolor=""white"" height=1><td colspan=7></td></tr>" & vbLF & _
" <tr bgcolor=white height=25>" & vbLF & _
" <td align=center>离职时间</td><td class=tdValue colspan=2 nowrap>" & sDismissDate & "</td>" & vbLF & _
" <td align=center>离职登记人员</td><td class=tdValue colspan=3>" & sDismissOp & "</td>" & vbLF & _
" </tr>" & vbLF & _
" <tr bgcolor=white height=25>" & vbLF & _
" <td align=center>离职信息</td><td colspan=6 class=tdValue style=""word-wrap:break-word""><pre>" & sDismissInfor & "</pre></td>" & vbLF & _
" </tr>" & vbLF & _
Relations & _
Resumes & _
"</table>" & vbLF
end function
Function TableLink()
TableLink = _
"<table width=600 cellspacing=0 cellpadding=0 border=0 align=center>" & _
"<tr height=10>" & _
" <td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & _
"</tr>" & _
"<tr>" & _
" <td width=600> " & _
" <img src=""../images/goto.gif""> <a href=""emp_ol.asp"">在职员工查询</a>" & _
" " & _
" <img src=""../images/goto.gif""> <a href=""emp_odl.asp"">离职员工查询</a></td>" & _
"</tr>" & _
"</table>"
End Function
'****************************************************************************************
' 员工主要社会关系
'****************************************************************************************
function Relations()
dim iCounter, sInforFirstLine, sInforOtherLines, sInfor, sHeader
dim crs, rs
dim sRelation, sName, sCompany, sPolitical, sPhone
dim sSQL : sSQL = "select relation, name, company, contact_phone, political_desc from t_relations" & _
" left join t_political on t_relations.political = t_political.political_id" & _
" where emp_serial = " & pEmpSerial
set crs = New CRecordset
set rs = crs.Open(dbLocal, sSQL)
sHeader = _
" <td align=center>姓名</td>" & _
" <td align=center>称谓</td>" & _
" <td align=center colspan=3>所在单位及担任工作</td>" & _
" <td align=center>联系电话</td>" & vbLF
sInfor = ""
iCounter = 0
while Not rs.EOF
iCounter = iCounter + 1
sRelation = crs.GetValue("relation")
sName = crs.GetValue("name")
sCompany = crs.GetValue("company")
sPolitical = crs.GetValue("political_desc")
sPhone = crs.GetValue("contact_phone")
sInfor = sInfor & _
"<tr bgcolor=""white"" height=25>" & vbLF & _
" <td align=center class=tdValue nowrap>" & sName & "</td>" & vbLF & _
" <td align=center class=tdValue nowrap>" & sRelation & "</td>" & vbLF & _
" <td colspan=3 class=tdValue nowrap>" & sCompany & "</td>" & vbLF & _
" <td align=center class=tdValue nowrap>" & sPhone & "</td>" & vbLF & _
"</tr>" & vbLF
rs.movenext
wend
crs.Close()
if iCounter > 0 then '' 有记录
Relations = _
"<tr bgcolor=""white"" height=1><td colspan=7></td></tr>" & vbLF & _
"<tr bgcolor=""white"">" & vbLF & _
" <td rowspan=" & iCounter + 1 & " align=center>主要社会关系</td>" & sHeader & vbLF & _
"</tr>" & vbLF & _
sInfor
else '' 无记录
Relations = _
"<tr bgcolor=""white"" height=1><td colspan=7></td></tr>" & vbLF & _
"<tr bgcolor=""white"" height=25>" & vbLF & _
" <td align=center>主要社会关系</td><td colspan=6 class=tdValue>（无）</td>" & vbLF & _
"</tr>" & vbLF
end if
end function
'****************************************************************************************
' 员工主要学习工作经历
'****************************************************************************************
function Resumes()
dim iCounter, sInfor, sHeader
dim crs, rs
dim sPeriod, sCompany, sCertifier
dim sSQL : sSQL = "select period, company, certifier from t_resume" & _
" where emp_serial = " & pEmpSerial
set crs = New CRecordset
set rs = crs.Open(dbLocal, sSQL)
sHeader = _
" <td align=center colspan=2>年、月 ～ 年、月</td>" & _
" <td align=center colspan=3>所在单位及担任工作</td>" & _
" <td align=center>证明人</td>" & vbLF
sInfor = ""
iCounter = 0
while Not rs.EOF
iCounter = iCounter + 1
sPeriod = crs.GetValue("period")
sCompany = crs.GetValue("company")
sCertifier = crs.GetValue("certifier")
sInfor = sInfor & _
"<tr bgcolor=""white"" height=25>" & vbLF & _
" <td align=center colspan=2 class=tdValue nowrap>" & sPeriod & "</td>" & vbLF & _
" <td colspan=3 class=tdValue nowrap>" & sCompany & "</td>" & vbLF & _
" <td align=center class=tdValue nowrap>" & sCertifier & "</td>" & vbLF & _
"</tr>" & vbLF
rs.movenext
wend
crs.Close()
if iCounter > 0 then '' 有记录
Resumes = _
"<tr bgcolor=""white"" height=1><td colspan=7></td></tr>" & vbLF & _
"<tr bgcolor=""white"">" & vbLF & _
" <td rowspan=" & iCounter + 1 & " align=center>主 要<br>学习工作经历</td>" & sHeader & vbLF & _
"</tr>" & vbLF & _
sInfor
else '' 无记录
Resumes = _
"<tr bgcolor=""white"" height=1><td colspan=7></td></tr>" & vbLF & _
"<tr bgcolor=""white"">" & vbLF & _
" <td align=center>主 要<br>学习工作经历</td><td colspan=6 class=tdValue>（无）</td>" & vbLF & _
"</tr>" & vbLF
end if
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -