check_small_len(old_pwd,"[舊密碼]",8) or _
		check_len(chg_pwd,"[新密碼]",20,0) or _ 
		check_small_len(chg_pwd,"[新密碼]",8) or _ 
		check_len(chg_pwdq,"[密碼確認]",20,0) or _ 
		check_small_len(chg_pwdq,"[密碼確認]",8) then
		finderror=true
		call Iserror()
		response.end
		end if


		if old_pwd="" or chg_pwd="" or chg_pwdq="" then
			call error("不能為空！")
			call Iserror()
			response.end
		end if

		
		if request.form("chg_pwdq")<>request.form("chg_pwd") then
			call error("兩次輸入新密碼不一致！")
			call Iserror()
			response.end
		else
			call opendb()
			sql_08="select eric_manager,eric_password from eric_manager where eric_manager='" & session("teacher") & "' and eric_password='" & old_pwd & "'"
			'set rs=conn.execute(sql_08)
			set rs=server.createobject("adodb.recordset")
			rs.open sql_08,conn,3,3
				if not rs.eof then
					rs("eric_password")=chg_pwd
					rs.update
					call closers()
					call closedb()
					response.redirect "../show_success.asp?info=修改密碼成功！--><a href='control/admin_explain.asp'>返回管理首頁</a>"
				else
					call closers()
					call closedb()
					call error("密碼錯誤！--><a href='javascript:history.go(-1)'>返回</a>")
					call Iserror()
					response.end
				end if
		end if
	case "delete_class"
	class_e=trim(request.querystring("class"))
	id=request.querystring("id")
	'字符過濾
	if isnumeric(id)=false or class_e="" then
		call error("非法參數！")
		call Iserror()
		response.end
	end if
	call opendb()
	set rs=conn.execute("select * from eric_manager where id=" & id)'從eric_manager表中取記錄集
	if rs.eof or isnull(rs("class_e")) or rs("class_e")="" then
		call error("非法操作！該教師沒有班級，或出現未知錯誤，請與系統管理員聯系！")
		call Iserror()
		response.end
	else 
				if instr(rs("class_e"),"|")=0 and class_e=rs("class_e") then
				'向表eric_manager進行更新操作
				conn.execute("update eric_manager set class_e='' where id=" & id)

				elseif instr(rs("class_e"),"|")>0 then
					array_class_e=split(rs("class_e"),"|")
					call closers()
					array_class_e_2=filter(array_class_e,class_e,false)' 使不含class_e的，生成新的數組，
					new_class_e=trim(join(array_class_e_2,"|"))'合并數組
					conn.execute("update eric_manager set class_e='" & new_class_e & "' where id=" & id)
				end if
				'對class表進行更新
				set rs=conn.execute("select * from class where classname='" & session("teacher_name") & "'")
				if rs.eof then
					call error("出現未知錯誤1111")
					call Iserror()
					response.end
				else
					teacher_id=rs("id")'取得教師的id
					child_id=trim(rs("childid"))'teacher的childid
					
					if isnull(child_id) or child_id="" then
						call error("出現未知錯誤2222")
						call Iserror()
						response.end
					else
						set rs1=conn.execute("select * from class where parentid='" & teacher_id & "' and classname='" & class_e & "'")'取得該教師的班級
						class_id=trim(rs1("id"))'班級的id
						child_id_2=rs("childid")'班級的childid
						rs1.close
						set rs1=nothing

						if not (isnull(child_id_2) or child_id_2) then
							if instr(child_id_2,",")=0 then
								conn.execute("delete * from class where parentid='" & child_id_2 & "'")'刪除單次作業
							elseif instr(child_id_2,",")>0 then
								array_child_id_2=split(child_id_2,",")
								for z=0 to ubound(array_child_id_2)
									conn.execute("delete * from class where parentid='" & trim(array_child_id_2(i)) & "'")'刪除多次作業
								next
							else
								call error("出現未知錯誤33333")
								call Iserror()
								response.end
							end if
						end if
					conn.execute("delete * from class where id=" & class_id)'刪除該班級
						if instr(child_id,",")=0 then
							conn.execute("update class set childid='' where id=" & teacher_id)'如果教師只有一個班級的情況
						elseif instr(child_id,",")>0 then'教師多個班級的情況
							array_child_id=split(child_id,",")
							array_child_id_1=filter(array_child_id,trim(class_id),false)
							new_childid=join(array_child_id_1,",")
							conn.execute("update class set childid='" & new_childid & "' where id=" & teacher_id)
						else
									call error("出現未知錯誤44444")
									call Iserror()
									response.end
						end if
						'對homework表進行操作
						conn.execute("delete * from homework where object_class='" & class_e & "'")
						'對upload_info表進行操作
						conn.execute("delete * from upload_info where class_e='" & class_e & "'")
						'對eric_member進行操作
						conn.execute("delete * from eric_member where class_e='" & class_e & "' and teacher='" & session("teacher_name") & "'")
						'對相關班級的文件夾進行刪除操作同時包括該班級下同學提交的所有作業
						'生成文件夾路徑
						folder_path=server.mappath("..\upload\" & session("teacher_name") & "\" & class_e)
						Set fs=CreateObject("Scripting.FileSystemObject")
						fs.DeleteFolder(folder_path)
						response.redirect "../show_success.asp?info=刪除班級操作成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"

				end if
		end if
end if
	case "lock_ip"
		if check_len(request.form("a"),"[a類]",3,1) or _
		   check_len(request.form("b"),"[b類]",3,1) or _
		   check_len(request.form("c"),"[c類]",3,1) or _
		   check_len(request.form("d"),"[d類]",3,1) or _
		   check_num(request.form("a"),"[a類]") or _
		   check_num(request.form("b"),"[b類]") or _
		   check_num(request.form("c"),"[c類]") or _
		   check_num(request.form("d"),"[d類]") then
		   finderror=true
		   call Iserror()
		   response.end
		else
			dim array_ip()
			redim array_ip(3)
			array_ip(0)=request.form("a")
			array_ip(1)=request.form("b")
			array_ip(2)=request.form("c")
			array_ip(3)=request.form("d")
			ip=join(array_ip,".")
			call opendb()
			conn.execute("insert into lockip (ip) values ('" & ip & "')")
			call closedb()
			response.redirect "../show_success.asp?info=封鎖IP操作成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
			response.end
		end if

	case "lock_c"
		if check_len(request.form("a"),"[a類]",3,1) or _
		   check_len(request.form("b"),"[b類]",3,1) or _
		   check_len(request.form("c"),"[c類]",3,1) or _
		   check_num(request.form("a"),"[a類]") or _
		   check_num(request.form("b"),"[b類]") or _
		   check_num(request.form("c"),"[c類]") then
		   finderror=true
		   call Iserror()
		   response.end
		else
			redim array_ip(2)
			array_ip(0)=request.form("a")
			array_ip(1)=request.form("b")
			array_ip(2)=request.form("c")
			ip=join(array_ip,".")
			call opendb()
			conn.execute("insert into lockip (ip) values ('" & ip & "')")
			call closedb()
			response.redirect "../show_success.asp?info=封鎖IP操作成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
			response.end
		end if




	case "admin_modify_info"
		'檢測email的正確性
		email=request.form("email")
		if check_len(email,"[email]",80,1) then
			finderror=true
			call Iserror()
			response.end
		end if
		
		if not IsValidEmail(email) then
		call error("[email]出錯！")
		call Iserror()
		response.end
		end if
		call opendb()
		conn.execute("update eric_manager set email='" & email & "' where eric_manager='" & session("teacher") & "'")
		call closedb()
		response.redirect "../show_success.asp?info=修改資料操作成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
	case "file_ext"
		file_ext=request.form("file_ext")
		'過濾字符
		
		'檢測擴展名
		if instr(file_ext,",")=o and len(file_ext)=3 then
			call opendb()
			conn.execute("update eric_config set upload_extend='" & file_ext & "'")
			call closedb()
		elseif instr(file_ext,",")>0 then
				array_file_ext=split(file_ext,",")
				for i=0 to ubound(array_file_ext)
					if len(array_file_ext(i))<>3 then
					call error("非法文件類型！")
					call Iserror()
					response.end
					else
					end if
				next
				call opendb()
				conn.execute("update eric_config set upload_extend='" & file_ext & "'")
				call closedb()
		else
			call error("非法文件類型！")
			call Iserror()
			response.end
		end if
		response.redirect "../show_success.asp?info=設定上傳文件類型參數成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
		response.end
		
	case "edit_homework"
		
		if session("purview")>2 then
			response.clear
			call error("對不起該功能目前只對普通開放，系統管理員如有需要，請另建一教師賬號，使用該功能！")
			call Iserror()
			response.end
		end if
		content=request.form("content")
		id=trim(request.querystring("id"))
		'過濾字符
		
		if content="" then
		call error("內容不能為空！")
		call Iserror()
		response.end
		end if

		'獲得選中的是否允許上傳的狀態
		is_upload_e=request.form("is_upload")
		if is_upload_e="1" then
		is_upload_e=true
		elseif is_upload_e="-1" then
		is_upload_e=false
		end if
		call opendb()
		conn.execute("update homework set Is_upload=" & is_upload_e & ",content='" & content & "' where id=" & id)
		call closedb()
		response.redirect "../show_success.asp?info=修改作業操作成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"
		response.end
	case "delete_lockip"
		id=trim(request.querystring("id"))
		'過濾字符
		call opendb()
		conn.execute("delete * from lockip where id=" & cint(id))
		call closedb()
		response.redirect "../show_success.asp?info=刪除封鎖的IP操作成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首頁</a>"


	

	case "logout"
		session.abandon
		response.redirect "../show_success.asp?info=安全退出成功！"
		response.end
	case else
		call error("出現未知錯誤，請與<a href='mailto:mlzboy@yahoo.com.cn'>我們聯系</a>！")
		
		call error("<a href='http://jjxy.zj.com'>前往-->Eric工作室</a>")
		call Iserror()
		response.end
end select

%>