<!--#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") 
select case action
  case "del"
    conn.execute("delete from HX_AttendanceDuty where WS_ATID="&request("ATID")):WS_S.HX_Redirect "attendanceset.asp"
  case "deldata"
    OPERATION=request("OPERATION")	
    select case OPERATION
	    case 1 conn.execute("DELETE from HX_AttendanceDutyEnrol"):WS_S.HX_Redirect "attendanceset.asp" 
		case 2 conn.execute("DELETE from HX_AttendanceOutEnrol"):WS_S.HX_Redirect "attendanceset.asp"
		case 3 conn.execute("DELETE from HX_AttendanceLeaveEnrol"):WS_S.HX_Redirect "attendanceset.asp"
		case 4 conn.execute("DELETE from HX_AttendanceEvectionEnrol"):WS_S.HX_Redirect "attendanceset.asp"
		case 5 conn.execute("DELETE from HX_AttendanceDutyEnrol"):conn.execute("DELETE from HX_AttendanceOutEnrol"):conn.execute("DELETE from HX_AttendanceLeaveEnrol"):conn.execute("DELETE from HX_AttendanceEvectionEnrol"):WS_S.HX_Redirect "attendanceset.asp"
	end select
  case "delallnoduty"
    conn.execute("DELETE from HX_AttendanceNoDutyMan"):WS_S.HX_Redirect "attendanceset.asp"  
  case "delNodutyuser"  
    conn.execute("DELETE from HX_AttendanceNoDutyMan where WS_ANID="&request("ATID")):WS_S.HX_Redirect "attendanceset.asp"
  case "setinterval" 
    if irs.recordcount<=0 then irs.addnew:irs("WS_AttendanceIntervalStart")=request("INTERVAL_BEFORE"): irs("WS_AttendanceIntervalEnd")=request("INTERVAL_AFTER"):irs.update:WS_S.HX_Redirect "attendanceset.asp"
  case "DelAllHoliday"
    conn.execute("DELETE from HX_AttendanceHoliday"):WS_S.HX_Redirect "attendanceset.asp"
  case "DelHoliday"
    conn.execute("DELETE from HX_AttendanceHoliday where WS_AHID="&request("ATID")):WS_S.HX_Redirect "attendanceset.asp"
  case "delallmanageuser"
    conn.execute("DELETE from HX_AttendanceMan"):WS_S.HX_Redirect "attendanceset.asp"  
  case "delmanageuser"
    conn.execute("DELETE from HX_AttendanceMan where WS_AMID="&request("ATID")):WS_S.HX_Redirect "attendanceset.asp"
end select
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='#613c25'><tr><td colspan='2' bgcolor=FFFBE8 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='#FFFBE8'><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='#FFFBE8'><td><table width='100%'  border='0' cellspacing='1' cellpadding='1' bgcolor='613c25'><tr bgcolor='#BF9B73' 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=FFFBE8 height=25 align=center>暂无记录！</td></tr>"
else
  ii=1
  do until rs.eof
    response.write "<tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><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='#FFFBE8'><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='#613c25'><tr><td width='100%' colspan='2' bgcolor=FFFBE8><table width='100%'  border='0' cellspacing='1' cellpadding='2' bgcolor='613c25'><form action='' name='form2' onsubmit='return CheckForm();'><tr><td width='100%' height='25' bgcolor='#FFFBE8' 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='#613c25'><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='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><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='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><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='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><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='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><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='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><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='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td nowrap align='center'>第6次登记</td><td nowrap align='center'>"&msg&"</td><td nowrap align='center'>"&rs("WS_AttendanceSix")&"</td><td nowrap align='center'>"
	if isdate(Enrs("WS_AttendanceSix")) then response.write Enrs("WS_AttendanceSix") else response.Write "未登记"
	response.write "</td><td nowrap align='center'>"&Enrs("WS_AttendanceSixIP")&"</td></tr>"
	end if
	response.write "</table><br><table width='100%' cellspacing=1 cellpadding=3 bgcolor='#613c25'><tr bgcolor='6C8DBE' class=td4><td colspan='6'>外出登记</td></tr><tr bgcolor='BF9B73' class='td4'><td width='13%' align='center'>部门</td><td width='14%' align='center'>姓名</td><td width='22%' align='center'>外出原因</td><td width='26%' align='center'>外出时间</td><td width='25%' align='center'>归来时间</td></tr>"
	  if ours.recordcount<=0 then
	    response.Write "<tr><td bgcolor=FFFBE8 colspan=6 align=center>无外出记录</td></tr>"
	  else
	    do until ours.eof
		 Call WS_S.HX_OutUserInfo(ours("WS_AttendanceOutEnrolReplyID"))
	      response.write "<tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td align='center'>"&Outdepartment&"</td><td align='center'>"&OutName&"</td><td align='center'>"&ours("WS_AttendanceOutEnrolTYPE")&"</td><td align='center'>"&ours("WS_AttendanceOutEnrolTime1")&"</td><td align='center'>"&ours("WS_AttendanceOutEnrolTime1")&"</td></tr>"
	    ours.movenext
		loop
	  end if	
	  response.write "</table><br><table width='100%' cellspacing=1 cellpadding=3 bgcolor='#613c25'><tr bgcolor='6C8DBE' class=td4><td colspan='7'>请假登记</td></tr><tr bgcolor='BF9B73' class='td4'><td align='center'>部门</td><td align='center'>姓名</td><td align='center'> 请假原因</td><td align='center'> 开始时间 </td><td align='center'> 结束时间 </td><td align='center'>状态</td></tr>"
	  if lers.recordcount<=0 then
	    response.Write "<tr><td bgcolor=FFFBE8 colspan=7 align=center>无请假记录</td></tr>"
	  else
	    do until lers.eof
		 Call WS_S.HX_OutUserInfo(lers("WS_AttendanceleaveEnrolReplyID"))
	  response.write "<tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td align='center'>"&Outdepartment&"</td><td align='center'>"&OutName&"</td><td align='center'>"&lers("WS_AttendanceleaveEnrolTYPE")&"</td><td align='center'>"&lers("WS_AttendanceleaveEnrolTime1")&"</td><td align='center'>"&lers("WS_AttendanceleaveEnrolTime1")&"</td><td align='center'>"
	  select case lers("WS_AttendanceLeaveEnrolFlag")
       case 0 response.Write "待批" 
	   case 1 response.Write "已批准"
	   case 2 response.Write "未批准"
	   case 3 response.Write "已销假" 
  end select
  response.write "</td></tr>"
	    lers.movenext
		loop
	end if	
	  response.write "</table><br><table width='100%' cellspacing=1 cellpadding=3 bgcolor='#613c25'><tr bgcolor='6C8DBE' class=td4><td colspan='8'>出差登记</td></tr><tr bgcolor='BF9B73' class='td4'><td width='15%' align='center'>部门</td><td width='12%' align='center'>姓名</td><td width='16%' align='center'> 出差地点</td><td width='16%' align='center'>事因</td><td width='14%' align='center'> 开始时间 </td><td width='14%' align='center'> 结束时间 </td><td width='13%' align='center'>状态</td></tr>"
	   if aers.recordcount<=0 then
	    response.Write "<tr><td bgcolor=FFFBE8 colspan=8 align=center>无出差记录</td></tr>"
	  else
	    do until aers.eof
		 Call WS_S.HX_OutUserInfo(aers("WS_AttendanceEvectionEnrolReplyID"))
	  response.write "<tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td align='center'>"&Outdepartment&"</td><td align='center'>"&OutName&"</td><td align='center'>"&aers("WS_AttendanceEvectionEnrolADDRESS")&"</td><td align='center' title='"&aers("WS_AttendanceEvectionEnrolReason")&"'>"&left(aers("WS_AttendanceEvectionEnrolReason"),6)&"</td><td align='center'>"&aers("WS_AttendanceEvectionEnrolTime1")&"</td><td align='center'>"&aers("WS_AttendanceEvectionEnrolTime1")&"</td><td align='center'>"
	  select case aers("WS_AttendanceEvectionEnrolFlag")
       case 0  response.Write "待批"
       case 1  response.Write "已批准"
	   case 2  response.Write "未批准"
	   case 3  response.Write "已销假" 
  end select
  response.write "</td></tr>"
	    aers.movenext
		loop
	  end if
	  	
  response.write "</table></td></tr></table></td></tr><tr bgcolor='#7487B4' class='td4'><td><img src='../hximages/other/Soft_elite.gif' align='absmiddle'> 清空考勤数据</td></tr><tr bgcolor='#FFFBE8'><td align=center height=30> <input type='button'  value='删除所有上下班登记' class='BigButton' onClick='delete_all(1);'> <input type='button'  value='删除所有外出登记' class='BigButton' onClick='delete_all(2);'> <input type='button'  value='删除所有请假登记' class='BigButton' onClick='delete_all(3);'> <input type='button'  value='删除所有出差登记' class='BigButton' onClick='delete_all(4);'> <input type='button'  value='删除以上所有考勤记录' class='BigButton' onClick='delete_all(5);'></td></tr><tr bgcolor='#7487B4' class='td4'><td><img src='../hximages/other/Soft_elite.gif' align='absmiddle'> 设置免签人员　　　　　　<a href='javascript:' onclick=""openwin(480,130,'attendancenodutymanadd.asp')"" class='menu'>添加免签人员</a>　　　<a href='?action=delallnoduty' class='menu'>删除全部免签人员</a></td></tr><tr bgcolor='#FFFBE8'><td>&nbsp;&nbsp;"
	  columnName="":Tablename="HX_AttendanceNoDutyMan":Orderby=" order by WS_ANID asc"
	  set nrs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
	  if nrs.recordcount>0 then
	    ii=1
	    do until nrs.eof
		  Call WS_S.HX_OutUserInfo(nrs("WS_AttendanceNoDutyManID")):response.Write ii&"、<font color=Red>["&Outdepartment&OutAppointment&"]</font>"&OutName&"&nbsp;<a href='?action=delNodutyuser&ATID="&nrs("WS_ANID")&"'><font color=red>删除</font></a>&nbsp;&nbsp;&nbsp;&nbsp;"
		   if ii mod 4 =0 and ii<nrs.recordcount then
		    response.Write "<br>&nbsp;&nbsp;"
		   end if
		  ii=ii+1
		nrs.movenext
		loop
	  end if	  
	  response.write "</td></tr><tr bgcolor='#7487B4' class='td4'><td><img src='../hximages/other/Soft_elite.gif' align='absmiddle'> 设置上下班登记时间段</td></tr><tr bgcolor='#FFFBE8'><td><table border='0' width='100%' cellpadding='3' cellspacing='1' align='center' bgcolor='#613c25'><form action='?action=setinterval'  method='post' name='form1' onsubmit='return CheckForm();'><tr bgcolor='#FFFBE8'><td>        提前<input type='text' name='INTERVAL_BEFORE' size='5' style='ime-mode:disabled' onKeyPress='event.returnValue=IsDigit();' value='"&AttendanceIntervalStart&"' >分钟允许登记　　		延后<input type='text' name='INTERVAL_AFTER' size='5' style='ime-mode:disabled' onKeyPress='event.returnValue=IsDigit();' value='"&AttendanceIntervalEnd&"' >分钟允许登记　　		<input type='submit' value=' 设 置 '></td></form></table></td></tr><tr bgcolor='#7487B4' class='td4'><td><img src='../hximages/other/Soft_elite.gif' align='absmiddle'> 节假日设置　　　　　　　<a href='javascript:' onclick=""openwin(480,300,'attendanceholidayadd.asp')"" class='menu'>添加考勤节假日</a>　　<a href='?action=DelAllHoliday' class='menu'>删除全部考勤节假日</a></td></tr><tr bgcolor='#FFFBE8'><td>"
	  columnName="":Tablename="HX_AttendanceHoliday":Orderby=" order by WS_AHID asc"
	  set hrs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
	  '错误
	  if hrs.recordcount>0 then
	     response.Write "<table width='100%' border='0' cellspacing='1' cellpadding='3' bgcolor='#613c25'><tr bgcolor='BF9B73' class='td4'><td height='25' align=center>序号</td><td align=center> 起始日期 </td><td align=center> 结束日期 </td><td align=center> 操作 </td></tr>"
	     do until hrs.eof		  
           response.Write "<tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td height='25' align=center>"&hrs("WS_AHID")&"</td><td align=center>"&hrs("WS_AttendanceHolidayStartDate")&"</td><td align=center>"&hrs("WS_AttendanceHolidayEndDate")&"</td><td align=center><a href=""javascript:openwin(480,300,'attendanceholidayeidt.asp?ATID="&hrs("WS_AHID")&"')"">修改</a> <a href='?action=DelHoliday&ATID="&hrs("WS_AHID")&"'>删除</a></td></tr>"
		 hrs.movenext
		 loop
         response.Write "</table>"
	  end if	 
	  response.Write "&nbsp;</td></tr><tr bgcolor='#7487B4' class='td4'><td><img src='../hximages/other/Soft_elite.gif' align='absmiddle'> 考勤人员设置　　　　　　<a href='javascript:' onclick=""openwin(480,130,'attendancemanadd.asp')"" class='menu'>添加考勤人员</a>　　<a href='?action=delallmanageuser' class='menu'>删除全部考勤人员</a></td></tr><tr bgcolor='#FFFBE8'><td>&nbsp;&nbsp;"
	  columnName="":Tablename="HX_AttendanceMan":Orderby=" order by WS_AMID asc"
	  set urs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
	  if urs.recordcount>0 then
	    ii=1
	    do until urs.eof
		  Call WS_S.HX_OutUserInfo(urs("WS_AttendanceManID")):response.Write ii&"、<font color=Red>["&Outdepartment&OutAppointment&"]</font>"&OutName&"&nbsp;<a href='?action=delmanageuser&ATID="&urs("WS_AMID")&"'><font color=red>删除</font></a>&nbsp;&nbsp;&nbsp;&nbsp;"
		   if ii mod 4 =0 and ii<urs.recordcount then
		    response.Write "<br>&nbsp;&nbsp;"
		   end if
		  ii=ii+1
		urs.movenext
		loop
	  end if
response.Write "</td></tr></table></td></tr></table>"
WS_S.HX_RSClose irs:WS_S.HX_RSClose hrs:WS_S.HX_RSClose urs:WS_S.HX_RSClose rs
%>