农业专家系统.针对无公害蔬菜的一个信息发布、病害诊断、远程诊断系统。适用于农业信息化实例应用中。

				
				
				
				
				
				
				
				    dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("data/date.mdb"))
				
				    dim objcmd as new oledbdataAdapter
				
				    dim ds as new dataset("my")
				
				
				    sub page_load(obj as object, e as eventargs)
				
				        if not page.Ispostback then
				           fillData()
				        end if
				
				    end sub
				
				    sub filldata
				        dim objcmd as new oledbcommand("SELECT * FROM corn where corn_id=" & request("corn_id"),conn)
				        dim objreader as oledbdatareader
				
				        try
				           objcmd.connection.open()
				           objreader=objcmd.executereader()
				        catch ex as exception
				           response.Write(ex.message)
				        end try
				
				        contentlist.DataSource=objreader
				        contentlist.databind()
				
				        objreader.close
				        objcmd.connection.close()
				    end sub
				
				
				
				
				
								.style2 {font-size: large}
				-->
				
				
				
				
					
				    
				      
				        
				        
				           
				         
				           
				           
				        
				        
				           
				        
				          
				            
				              
				                 标题: [] 
				                
				                
				                
				                
				                				                
				                
				                
				                []