📄 attendanceset.asp

📁 又一套oa 系统,供大家使用学习,更多的源代码正在上传中,好的程序应该大家共同使用
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"--><!--#INCLUDE FILE="../HXINCLUDE/SelectDate.asp"-->
<%if WS_S.MemberPriv("WS_SystemSetAttendanceSet")<>1 then HX_GoBack "对不起,您的权限不够!",""
columnName="":Tablename="HX_AttendanceDuty":action=request("action"):Orderby=" order by WS_ATID asc"
set irs=WS_S.HX_SetRSD("","HX_AttendanceInterval","")
if irs.recordcount>0 then AttendanceIntervalStart=irs("WS_AttendanceIntervalStart"):AttendanceIntervalEnd=irs("WS_AttendanceIntervalEnd") 
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
response.write "<head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>考勤设置</title><link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><script src='../HXinclude/HX_Function.js'></script><script>function delete_all(OPERATION){ msg='确认要删除考勤记录么？这将不可恢复！'; if(window.confirm(msg)) {  URL='AttendanceSet.asp?action=deldata&OPERATION='+OPERATION;  window.location=URL; }}"
response.write "function CheckForm(){if(document.form1.INTERVAL_BEFORE.value=='') { alert('提前间隔时间不能为空！'); return (false); }if(document.form1.INTERVAL_AFTER.value==''){ alert('延后间隔时间不能为空！');return (false);} return true;}</script></head><body topmargin='20' leftmargin='0' bottommargin='20'><table width='98%'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td colspan='2' bgcolor=ffffff background='../hximages/titlelinebg.gif'><table width='560'  border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>考勤设置</font></td></tr></table><table width='100%'  border='0' cellspacing='1' cellpadding='6' bgcolor='#f1f1f1'><tr bgcolor='#7487B4' class='td4'><td><img src='../hximages/other/Soft_elite.gif' align='absmiddle'> 排 班 管 理　　　　　　　<a href='javascript:' onclick=""openwin(480,300,'attendanceadd.asp')"" class='menu'>新建排班类型</a></td></tr><tr bgcolor='#FFFFFF'><td><table width='100%'  border='0' cellspacing='1' cellpadding='1' bgcolor='CCCCCC'><tr bgcolor='#A1BBE0' class='td4'><td width='7%' height='25'><div align='center'>序号</div></td><td width='12%'><div align='center'>排班类型说明 </div></td><td width='12%'><div align='center'>第1次登记 </div></td><td width='12%'><div align='center'>第2次登记 </div></td><td width='12%'><div align='center'>第3次登记 </div></td><td width='12%'><div align='center'>第4次登记 </div></td><td width='12%'><div align='center'>第5次登记 </div></td><td width='12%'><div align='center'>第6次登记 </div></td><td width='9%'><div align='center'>操 作 </div></td></tr>"
if rs.recordcount<=0 then
  response.Write "<tr><td colspan=9 bgcolor=ffffff height=25 align=center>暂无记录！</td></tr>"
else
  ii=1
  do until rs.eof
    response.write "<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td height='25'><div align='center'>"&rs("WS_ATID")&"</div></td><td><div align='center'>"&rs("WS_AttendanceName")&"</div></td><td><div align='center'>"&rs("WS_AttendanceFirst")&"&nbsp;"&WS_S.HX_OutAttendanceDuty(rs("WS_AttendanceFirstType"))&"</div></td><td><div align='center'>"&rs("WS_AttendanceSecond")&"&nbsp;"&WS_S.HX_OutAttendanceDuty(rs("WS_AttendanceSecondType"))&"</div></td><td><div align='center'>"&rs("WS_AttendanceThird")&"&nbsp;"&WS_S.HX_OutAttendanceDuty(rs("WS_AttendanceThirdType"))&"</div></td><td><div align='center'>"&rs("WS_AttendanceFourth")&"&nbsp;"&WS_S.HX_OutAttendanceDuty(rs("WS_AttendanceFourthType"))&"</div></td><td><div align='center'>"&rs("WS_AttendanceFive")&"&nbsp;"&WS_S.HX_OutAttendanceDuty(rs("WS_AttendanceFiveType"))&"</div></td><td><div align='center'>"&rs("WS_AttendanceSix")&"&nbsp;"&WS_S.HX_OutAttendanceDuty(rs("WS_AttendanceSixType"))&"</div></td><td><div align='center'>"
	response.Write "<a href='javascript:' onclick=""openwin(480,300,'AttendGeneral.asp?atid="&rs("WS_ATID")&"')"">公休日</a> <a href='javascript:' onclick=""openwin(480,300,'Attendanceedit.asp?atid="&rs("WS_ATID")&"')"">编辑</a>"
	if ii>1 then response.Write "<br><a href='AttendanceSet.asp?action=del&atid="&rs("WS_ATID")&"'>删除</a>"
	response.write "</div></td></tr>" 
	ii=ii+1
	rs.movenext
	loop
end if
  response.write "</table></td></tr><tr bgcolor='#7487B4' class='td4'><td><img src='../hximages/other/Soft_elite.gif' align='absmiddle'> 考勤数据管理</td></tr><tr bgcolor='#FFFFFF'><td>"
  Uid=request("Uid")
  if not WS_S.HX_ISNUM(Uid) then Uid=cint(loginuid) else Uid=cint(Uid)
Orderby=" where WS_AttendanceManID="&Uid
if isdate(request("SOME_DATE")) then Orderby=Orderby&" and WS_AttendanceDate=#"&request("SOME_DATE")&"#" else Orderby=Orderby&" and WS_AttendanceDate=#"&date&"#" 
Orderby=Orderby&" order by WS_ATID asc":Orderby1=" where WS_AttendanceOutEnrolLEADERID="&Uid
if isdate(request("SOME_DATE")) then Orderby1=Orderby1&" and WS_AttendanceOutEnrolDate=#"&request("SOME_DATE")&"#" else Orderby1=Orderby1&" and WS_AttendanceOutEnrolDate=#"&date&"#"
Orderby1=Orderby1&" order by WS_AOID asc":Orderby2=" where WS_AttendanceLeaveEnrolLEADERID="&Uid
if isdate(request("SOME_DATE")) then Orderby2=Orderby2&" and WS_AttendanceLeaveEnrolDate=#"&request("SOME_DATE")&"#" else Orderby2=Orderby2&" and WS_AttendanceLeaveEnrolDate=#"&date&"#" 
Orderby2=Orderby2&" order by WS_ALID asc":Orderby3=" where WS_AttendanceEvectionEnrolLEADERID="&Uid
if isdate(request("SOME_DATE")) then Orderby3=Orderby3&" and WS_AttendanceEvectionEnrolDate=#"&request("SOME_DATE")&"#" else Orderby3=Orderby3&" and WS_AttendanceEvectionEnrolDate=#"&date&"#" 
Orderby3=Orderby3&" order by WS_AEID asc"
set adrs=WS_S.HX_SetRSD("","HX_AttendanceDutyEnrol",Orderby)
set ours=WS_S.HX_SetRSD("","HX_AttendanceOutEnrol",Orderby1)
set lers=WS_S.HX_SetRSD("","HX_AttendanceLeaveEnrol",Orderby2)
set aers=WS_S.HX_SetRSD("","HX_AttendanceEvectionEnrol",Orderby3)
set rs=WS_S.HX_SetRSD(ColumnName,"HX_CompanyUser a,HX_AttendanceDuty b"," where b.WS_ATID=a.WS_Duty and a.WS_Uid="&uid)
if isdate(request("SOME_DATE")) then dat=request("SOME_DATE") else dat=date
response.write "<table width='100%'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td width='100%' colspan='2' bgcolor=ffffff><table width='100%'  border='0' cellspacing='1' cellpadding='2' bgcolor='CCCCCC'><form action='' name='form2' onsubmit='return CheckForm();'><tr><td width='100%' height='25' bgcolor='#FFFFFF' align='center'><select name='Uid'>"
set udrs=WS_S.HX_SetRSD("","HX_CompanyUser"," where WS_leave=False order by WS_department asc")
if udrs.recordcount>0 then
do until udrs.eof
Call WS_S.HX_OutUserInfo(udrs("WS_Uid"))
response.write "<option value='"&udrs("WS_Uid")&"' "
if udrs("WS_Uid")=Uid then response.Write "selected" 
response.write ">["&Outdepartment&OutAppointment&"]"&OutName&"</option>"
udrs.movenext
loop
end if
response.write "</select>&nbsp; &nbsp;<input type='text' name='SOME_DATE' size='10' maxlength='10' value='"&dat&"' readonly> <input onclick=""popUpcalendar(this, form2.SOME_DATE, 'yyyy-mm-dd')"" type='button' value='选择' title='选择日期'> <input type='submit' value='考勤查询' title='考勤查询'></td></tr></form></table><br><table width='100%' cellspacing=1 cellpadding=3 bgcolor='#CCCCCC'><tr bgcolor='6C8DBE' class=td4><td colspan='6'>上下班登记 ["&rs("WS_AttendanceName")&"]</td></tr><tr bgcolor='#6C8DBE' class='td4'><td width='20%' align='center' nowrap>登记次序</td><td width='20%' align='center' nowrap>登记类型</td><td width='23%' align='center' nowrap>规定时间</td><td width='21%' align='center' nowrap>登记时间</td><td width='16%' align='center' nowrap>登记IP</td></tr>"	
	set Enrs=WS_S.HX_SetRSD(ColumnName,"HX_AttendanceDutyEnrol"," where WS_AttendanceManID="&uid&" and WS_AttendanceDate=#"&dat&"#")
	if Enrs.recordcount<=0 then Enrs.addnew: Enrs("WS_AttendanceManID")=uid: Enrs("WS_AttendanceDate")=date:Enrs.update
	msg=""
	if rs("WS_AttendanceFirst")<>"" then
	 msg=WS_S.HX_OutAttendanceDuty(rs("WS_AttendanceFirstType"))&"登记"
	 response.write "<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td nowrap align='center'>第1次登记</td><td nowrap align='center'>"&msg&"</td><td nowrap align='center'>"&rs("WS_AttendanceFirst")&"</td><td nowrap align='center'>"
	 if isdate(Enrs("WS_AttendanceFirst")) then response.write Enrs("WS_AttendanceFirst") else response.Write "未登记"
	 response.write "</td><td nowrap align='center'>"&Enrs("WS_AttendanceFirstIP")&"</td></tr>"
	end if
	msg=""
	if rs("WS_AttendanceSecond")<>"" then
	msg=WS_S.HX_OutAttendanceDuty(rs("WS_AttendanceSecondType"))&"登记"
	response.write "<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td nowrap align='center'>第2次登记</td><td nowrap align='center'>"&msg&"</td><td nowrap align='center'>"&rs("WS_AttendanceSecond")&"</td><td nowrap align='center'>"
	if isdate(Enrs("WS_AttendanceSecond")) then response.write Enrs("WS_AttendanceSecond") else response.Write "未登记"
	response.write "</td><td nowrap align='center'>"&Enrs("WS_AttendanceSecondIP")&"</td></tr>"
	end if
	msg=""
	if rs("WS_AttendanceThird")<>"" then
	msg=WS_S.HX_OutAttendanceDuty(rs("WS_AttendanceThirdType"))&"登记"
	response.write "<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td nowrap align='center'>第3次登记</td><td nowrap align='center'>"&msg&"</td><td nowrap align='center'>"&rs("WS_AttendanceThird")&"</td><td nowrap align='center'>"
	if isdate(Enrs("WS_AttendanceThird")) then response.write Enrs("WS_AttendanceThird") else response.Write "未登记"
	response.write "</td><td nowrap align='center'>"&Enrs("WS_AttendanceThirdIP")&"</td></tr>"
	end if
	msg=""
	if rs("WS_AttendanceFourth")<>"" then
	msg=WS_S.HX_OutAttendanceDuty(rs("WS_AttendanceFourthType"))&"登记"
	response.write "<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td nowrap align='center'>第4次登记</td><td nowrap align='center'>"&msg&"</td><td nowrap align='center'>"&rs("WS_AttendanceFourth")&"</td><td nowrap align='center'>"
	if isdate(Enrs("WS_AttendanceFourth")) then response.write Enrs("WS_AttendanceFourth") else response.Write "未登记"
	response.write "</td><td nowrap align='center'>"&Enrs("WS_AttendanceFourthIP")&"</td></tr>"
	end if
	msg=""
	if rs("WS_AttendanceFive")<>"" then
	msg=WS_S.HX_OutAttendanceDuty(rs("WS_AttendanceFiveType"))&"登记"
	response.write "<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td nowrap align='center'>第5次登记</td><td nowrap align='center'>"&msg&"</td><td nowrap align='center'>"&rs("WS_AttendanceFive")&"</td><td nowrap align='center'>"
	if isdate(Enrs("WS_AttendanceFive")) then response.write Enrs("WS_AttendanceFive") else response.Write "未登记"
	response.write "</td><td nowrap align='center'>"&Enrs("WS_AttendanceFiveIP")&"</td></tr>"
	end if
	msg=""
	if rs("WS_AttendanceSix")<>"" then
	msg=WS_S.HX_OutAttendanceDuty(rs("WS_AttendanceSixType"))&"登记"
	response.write "<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td nowrap align='center'>第6次登记</td><td nowrap align='center'>"&msg&"</td><td nowrap align='center'>"&rs("WS_AttendanceSix")&"</td><td nowrap align='center'>"
12 下一页
💿 文件大小 2964 K
👤 上传用户 hufei108
📂 所属分类 OA系统
🏷️ 相关标签

#家 #源代码 #正
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -