attendanceset.asp

又一套oa 系统,供大家使用学习,更多的源代码正在上传中,好的程序应该大家共同使用

	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='#CCCCCC'><tr bgcolor='6C8DBE' class=td4><td colspan='6'>外出登记</td></tr><tr bgcolor='A1BBE0' 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=ffffff colspan=6 align=center>无外出记录</td></tr>"
	  else
	    do until ours.eof
		 Call WS_S.HX_OutUserInfo(ours("WS_AttendanceOutEnrolReplyID"))
	      response.write "<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><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='#CCCCCC'><tr bgcolor='6C8DBE' class=td4><td colspan='7'>请假登记</td></tr><tr bgcolor='A1BBE0' 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=ffffff colspan=7 align=center>无请假记录</td></tr>"
	  else
	    do until lers.eof
		 Call WS_S.HX_OutUserInfo(lers("WS_AttendanceleaveEnrolReplyID"))
	  response.write "<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><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='#CCCCCC'><tr bgcolor='6C8DBE' class=td4><td colspan='8'>出差登记</td></tr><tr bgcolor='A1BBE0' 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=ffffff colspan=8 align=center>无出差记录</td></tr>"
	  else
	    do until aers.eof
		 Call WS_S.HX_OutUserInfo(aers("WS_AttendanceEvectionEnrolReplyID"))
	  response.write "<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><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='#FFFFFF'><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='#FFFFFF'><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='#FFFFFF'><td><table border='0' width='100%' cellpadding='3' cellspacing='1' align='center' bgcolor='#CCCCCC'><form action='?action=setinterval'  method='post' name='form1' onsubmit='return CheckForm();'><tr bgcolor='#FFFFFF'><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='#FFFFFF'><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='#CCCCCC'><tr bgcolor='A1BBE0' 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='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><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='#FFFFFF'><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
%>