一套简单的OA系统

				
				
				
				
				
								oabusyusername=request.cookies("oabusyusername")
				oabusyuserid=request.cookies("oabusyuserid")
				if request.form("submit")="我已经看了此通告" then
					id=request.form("id")
					set conn=opendb("oabusy","conn","accessdsn")
					sql = "update newnotice set readuserid=readuserid+'("&oabusyuserid&")' where ID="&id
					conn.Execute sql
					conn.close
				%>
				                   
					opener.parent("banner2").doflag.value='1';
					window.close();
				 
									response.end
				end if
				%>
				
				
				
				
				
				 Office办公系统--查看通告
				
				opener.parent("banner2").doflag.value="0";
				
				
				
				
								 
				set conn=opendb("oabusy","conn","accessdsn")
				Set rs=Server.CreateObject("ADODB.recordset")
				sql="select * from newnotice where readuserid NOT LIKE '%("&oabusyuserid&")%' and sendusername'"&oabusyusername&"'"
				rs.open sql,conn,1
				%>
				
				通告标题：
				
				[发布日期：]
				
								 
				%>
				  
				
				
				
				
				
				
				
								%>
				
				  
				  
				    
				      
				        
						  
				          IE37 © IE37.com 
						  
				        
				      
				    
								%>