公文下发和上报管理： 　 在发布和上报文件时

				
				
				
				
								    set conn=opendb("oabusy","conn","accessdsn")
				  
					if request("submit")="提交" then
					
						meetword=request("meetword")
						'meethtml=request("meethtml")
						fileword=request("fileword")
						'filehtml=request("filehtml")
						url=request("url")
						path=request("path")
						
						homename=request("homename")
						pagecount=request("pagecount")
				
						sql="select * from path"
						set rs=server.CreateObject("adodb.recordset")
						rs.open sql,conn,1
				
						if not rs.eof and not rs.bof then
							rs.Close 
							set rs=nothing
							sql="delete * from path"
							conn.execute sql
						end if
						sql = "Insert Into path(meetword,fileword,path,url,homename,pagecount) Values( "
						sql=sql & SqlStr(meetword) & ","
						'sql = sql & SqlStr(meethtml) & ", "
						sql = sql & SqlStr(fileword)& ", "
						'sql = sql & SqlStr(filehtml)& ","
						sql = sql & SqlStr(path)& ", "
						sql = sql & SqlStr(url)& ", "
						sql = sql & SqlStr(homename)& ", "
					    sql = sql & sqlstr(pagecount) & ")"
				
				
				
				'		sql="update path set meetword='"&meetword&"',meethtml='"&meethtml&"',fileword='"&fileword&"',"
				'		sql=sql & "filehtml='"&filehtml&"', url='"&url&"',path='"&path&"',homename='"&homename&"',"
				'		sql=sql &"pagecount="&pagecount&" where id=0"
				       
						conn.Execute sql
						
						%>
						 
				
				  文件会议系统数据添加成功！重新登录 
				       				
				         end if
				       %>		 
				  
				  
				
								sql="select * from path"
				rs.open sql,conn,1
				if not rs.eof and not rs.bof then
				meetword=rs("meetword")
				meethtml=rs("meethtml")
				fileword=rs("fileword")
				filehtml=rs("filehtml")
				url=rs("url")
				path=rs("path")
				homename=rs("homename")
				pagecount=rs("pagecount")
				rs.close
				end if
				set rs=nothing
				%>
				
				
				 function form_check(){
				   if(document.form2.meetword.value==""){window.alert("会议文档上传路径不能为空");document.form2.meetword.focus();return (false);}
				   //if(document.form2.meethtml.value==""){window.alert("会议HTML上传路径不能为空");document.form2.meethtml.focus();return (false);}
				   if(document.form2.fileword.value==""){window.alert("文件文档上传路径不能为空");document.form2.fileword.focus();return (false);}
				  // if(document.form2.filehtml.value==""){window.alert("文件HTML上传路径不能为空");document.form2.filehtml.focus();return (false);}
				   if(document.form2.url.value==""){window.alert("主页URL");document.form2.url.focus();return (false);}
				   if(document.form2.path.value==""){window.alert("主页绝对地址不能为空");document.form2.path.focus();return (false);}
				   if(document.form2.homename.value==""){window.alert("系统名称不能为空");document.form2.homename.focus();return (false);}
				   if(document.form2.pagecount.value==""){window.alert("每页显示条数");document.form2.pagecount.focus();return (false);}
				                   }
				
				
				
				
				
				
				
				
								.style1 {color: #FF0000}
				-->
				
				
				
				
				
				  文件会议系统基本数据 
				
				
				
				  
				
				    
				       
				                 
				                  
				                     
				                       
				                        
				                
				                   
				                      
				                  
				                   
				                    文档上传目录：
				                     
				                      
				                    会议 
				                  
				                   
				                    (目录必须存在)
				                     
				                  
				                   
				                     
				                    文档上传目录：                    
				                     
				                      
				                    文件 
				                  
				                   
				                    (目录必须存在)
				                     
				
				                  
				                   
				                     
				                      主页路径URL：
				                     
				                                          
				
				                  
				                   
				                    主页绝对路径：
				                     
				                                          
				
				                  
				                   
				                     　系统名称：
				                     
				                                          
				
				                  
				                   
				                    文件条数/页：
				                     
				                      
				                    条
				
				                  
				                
				              
				
				    
				
				
				
				
				
				
								set conn=nothing%>