OFFICE办公自动化

源代码在线查看: onlinemain.asp

软件大小: 12029 K
上传用户: qx19860213
关键词: OFFICE 办公自动化
下载地址: 免注册下载 普通下载 VIP

相关代码

								'作者:卓耀科技
				'功能:用户在线状态
				'参数:
				'开发时间:2003-12-9 17:33
				%>
				
				
				
								'变量申明区
				
				%>
								'主程序区
				'清理过期登陆
				oConn.Execute "UPDATE tbioaUser SET OnlineMod=0 where DATEDIFF(hh, LastLog, GETDATE())>24"
				
				'读入部门
				set Rsdepart=server.createobject("adodb.recordset")
				Sqldepart="select * from tbioadepartment"
				Rsdepart.open Sqldepart,oconn,1,3
				%>
				
				
				
				
				main
				
				
				
				
				  
				     用户在线状态
				  
								set Rsuser=server.CreateObject("adodb.recordset")
				do while not Rsdepart.eof
				%>
				    
				      
				       
				        
				    
								  Rsuser.open "SELECT tbioaUser.*, tbioaOutline.lxyy, tbioaOutline.sjlxsj FROM tbioaOutline RIGHT OUTER JOIN tbioaUser ON tbioaOutline.UserID = tbioaUser.ID where department='" &Rsdepart("id")& "'",oconn,1,3
				  if not Rsuser.eof then
				%>
				    
				      
				        
				  
				        
				          员工姓名
				          在线状态
				          离线原因
				          最后离线时间
				        
				        				        do while not Rsuser.eof
				        %>
				        
				          
				            
				          
				          
				            
				    	      在线
				    	    
				    	      
				    	        离线
				    	      
				    	        离线(详细)
				    	      
				    	    
				    	    
				    	      
				    	    
				          
				          
				            
				          
				          
				        
				        				          Rsuser.movenext
				        loop
				        %>
				        
				      
				    
				  				  else
				    response.write "  本部门暂无用户"
				  end if
				  Rsuser.close
				  Rsdepart.movenext
				loop
				
				%>
				
				
				
				
				 			

相关资源