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

				
				
				
				
				
				网上选课系统
				
								@import url("style.css");
				-->
				
								dim admin_name,admin_psw,rs_admin
				'接收表单数据--------------
				admin_name=request.Form("admin_name")
				admin_psw=request.Form("admin_psw")
				if is_name(admin_name) then
				
				Set rs_admin = Server.CreateObject("ADODB.Recordset")
				sql = "SELECT * FROM admin where admin_name='" & admin_name & "'" & "and admin_psw='" & admin_psw & "'"
				rs_admin.Open sql,xuanke_conn,3,2
				if rs_admin.eof or rs_admin.bof then 
					'管理员名与密码不匹配提示管理员登陆错误--------------
					response.Redirect("adminerr.asp")
					response.End()
				else 
					'管理员登陆成功--------------
					session("admin_name")= rs_admin("admin_name")
					response.Redirect("administrator.asp")
					rs_admin.close
				end if 
				
				else  %>
				
				        
				
				
				
				
				
				          
				             用户名只能是字母