OFFICE办公自动化

				
				
				
								LoginID=trim(session("LoginID"))
				if LoginID="" then LoginID=0
				UserName= trim(session("RealName"))
				userRights=getRights()'取用户权限
				%>
				
				
				
				
				top
				
				
								strID=request("strID")
				strSQL="select * from tbioaUser "
				set rs=Server.CreateObject("ADODB.RecordSet")
				rs.open strSQL,oConn
				%>
				
					
					
					  
					    
								
								
					    　
					    
					    
				            				            border=0 id="table1">
				              
				              
				                				                align=middle>
								
								
								
								
								[查看哪些人在线]
				                				                align=middle>
								
												                  src="../images/skin.gif" border="0">
								
								
								[OA内部QQ]
				                				                  align=middle width="111">
								
												                  src="../images/help.gif" border="0">
								
								[多人即时聊天室]
				                				                  align=middle>
								
												                  src="../images/exit.gif" border="0">
								
								
								
								
								[]
				                				                  align=middle>
								
												                  src="../images/Refresh.gif">
								
								
								
								[退出]
								
								var iTimerID;
								var enabled = 0; today = new Date();
								var date,iver,sver;
								sver=navigator.appVersion;
								iver=parseFloat(sver.substring(sver.indexOf("MSIE")+5,sver.indexOf("MSIE")+8));
								date = today.getYear() + "年" + (today.getMonth() + 1) + "月" + today.getDate() + "日 "+DateDemo()+ " ";
								function DateDemo(){
								var d, day, x, s = "";
								var x = new Array("星期日", "星期一", "星期二","星期三","星期四", "星期五","星期六");
								d = new Date();
								day = d.getDay();
								return(s += x[day]);
								}
								
								document.write(date+"" + today.getHours() + ":"+today.getMinutes()+":"+today.getSeconds()+"");
								
								changetime();
								function changetime()
								{
								var minutes,seconds,t=new Date();
								minutes = t.getMinutes();
								if(t.getMinutes()								minutes = "0"+t.getMinutes();
								seconds = t.getSeconds();
								if(t.getSeconds()								seconds = "0"+t.getSeconds();
								timer1.innerText=t.getHours() + ":"+minutes+":"+seconds;
								setTimeout("changetime()",1000);
								}
								
					    
					    
					  
					  
					    　
					    
						　														set rs=Server.CreateObject("ADODB.RecordSet")
														sql="select * from tbioaPlan where UserID="&LoginID&" and StartDate='"&sdate&" "&time()&"' and finish														rs.open sql,oConn,1,1
														if rs.eof then
														    response.write "提醒：你今天没有日程安排！"
														else
														%>   
						你当前有条日程未完成。
																												end if
														rs.close
														%>
								          　
					  
					  
					    　
					  
					  
					    　
					    　
					  
					
					
					
					
					  首页 |
					  					  set oRsRightType=server.createobject("ADODB.RecordSet")
					  sql="select * from tbioaRoleRightsType where mod'X'"
					  oRsRightType.open sql,oConn,1,1
					  while not oRsRightType.eof
					  	set oRsRight=server.createobject("ADODB.RecordSet")
					  	sql="select * from tbioaRoleRights where TypeNumber='"&oRsRightType("Number")&"' and FileName'' and mod'X' and number in ("&userRights&"0)"
					  	oRsRight.open sql,oConn,1,1
					  	if not oRsRight.eof then
					  %>
					   |
					  					  	end if
					  	oRsRight.close
					  	oRsRightType.movenext
					  wend
					  oRsRightType.close
					  %>