有关遗传算法的例子

				
				
				
				
				
				
				function check(){
				if(document.userlogin.username.value==""){alert("请输入用户名");document.userlogin.username.focus();return false;}
				if(document.userlogin.password.value==""){alert("请输入密码");return false;}
				if(document.userlogin.vercode.value==""){alert("请输入验证码");return false;}
				return true;
				}
				
				function checkfind(){
				if(document.userlogin.username.value==""){
				document.userlogin.username.focus();
				alert("请输入用户名");
				return false;
				}
				else{
				location.href="../member/member.asp?action=getpass&username="+document.userlogin.username.value
				}
				return true;
				}
				
				function regchk(){
				if(document.userlogin.username.value==""){
				document.userlogin.username.focus();
				alert("请在用户栏输入你想要注册的用户名");
				return false;
				}
				if(document.userlogin.password.value==""){
				alert("请在密码栏输入你想要注册用户的密码");
				return false;
				}
				if(document.userlogin.vercode.value==""){
				alert("请输入验证码");
				return false;
				}
				else{
				location.href="../member/member.asp?action=reg&username="+document.userlogin.username.value+"&password="+document.userlogin.password.value+"&vercode="+document.userlogin.vercode.value
				}
				}
				
								if trim(session("username"))="" then
				call Test_netbaruser
				%>
				
				  
				
				      
				        
				
				    用户名： 
				              
				              密码： 
				              
				              验证码： 
				              
				               
							  
							  
							  
				               
				              
				  
				
				
				  				else
				'///////////////////////////////////////////////////////
				'   登陆成功,读取会员信息
				'///////////////////////////////////////////////////////
				set rs=server.createobject("adodb.recordset")
				sql="select * from 会员 where 用户名='"&session("username")&"'"
				rs.open sql,conn,1,1
				if not rs.EOF then
				if rs("在线状态")="否" then
				session("userid")=""
				session("username")=""
				session("grade")=""
				Call msgbox_j("用户己离线，请重新登陆","location.href='login.asp'")
				Response.end
				end if
				%>
				   
				     
				      
				         
				          
				            欢迎你：  
				              ( 
				              				response.write vip_name(session("grade"))%>
				              )  上次登陆：      
				              				end if
				set rs=nothing%>