有关遗传算法的例子

源代码在线查看: login.asp

软件大小: 3297 K
上传用户: mpeg2000
关键词: 算法
下载地址: 免注册下载 普通下载 VIP

相关代码

				
				
				
				
				
				
				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 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"))%>
				            
				        
				         
				          登陆次数:
				        
				         
				          登陆IP:
				        
				         
				           
				              
				          
				        
				      
				
								session("userid")=""
				session("username")=""
				session("grade")=""
				Call msgbox_j("找不到用户资料,请重新登陆","location.href='login.asp'")
				end if  '/////////////结束读取//////////////////////////////////////
				end if
				set rs=nothing%>
				
							

相关资源