学生可根据自己喜欢的课程进行选课

				
				
				
				
				
				
				
				修改个人信息
				
								@import url("style.css");
				body {
					background-image: url(image/back.jpg);
				}
				-->
				
				
				
				
				
				
				  
				    
				      
				        
				        							dim err(2)
							dim no,name,p_classes,haveerr,rs_edit,rs_edit_pre,sql
							'接收表单数据-------------
							
							id_no=request.Form("id_no")
							name=request.Form("name")
							s_pw=request.Form("s_pw")
							s_pw1=request.Form("s_pw1")
							classes=request.Form("classes")
							
							'检查数据--------------------
							if len(name) > 20 then err(1)="用户名不能超过20个字符"
							if len(name) < 2 then err(1)="课程名称不能少于2个字符"
							if len(s_pw)=0 then err(2)="密码不能为空"
							if classes="" then err(2)="班级不能位为空"
							if s_pw  s_pw1 then err(2)="两次输入的密码不一致"
							for i=1 to 2
								if err(i)"" then haveerr=1
							next
							
							'根据haveerr值进行不同操作显示不同结果---------------------
							If haveerr = 0 Then
								'打开课程数据库--------------------
								set rs_edit=server.CreateObject("adodb.recordset")
								sql = "select * from student where id_no='" & session("id_no") &"'"
								rs_edit.open sql,xuanke_conn,3,2
								
								rs_edit("classes")=classes
								rs_edit("s_pw")=s_pw
								rs_edit("name")=name
								rs_edit.update
								
							 %>
						  
						  
				          
				            
				               
				            
				            
				              信息修改成功!返回后重新登陆才可以正常选课！
				            
				            
							
				              请稍后..........
				            
				          
				          
						  
				          
				            
				               
				            
				            
				              发现以下错误：
				            
				            
				               
				            
				            
				              
							    
						          							  	for i=1 to 2
									if err(i)  "" then response.Write("●" & err(i) & "")
							  	next
							  %>