manageownpassword.asp

一套完整的学生课程管理系统

<!-- #include file="utility/checkTeacher.asp" -->
<!-- #include file="utility/md5.asp" -->

<%
	'****************************************
	'目的：			修改教师密码
	'开始时间：		2005-6-8 10:20
	'最后修改时间：	2005-6-8 10:20
	'编写人：		某某某
	'****************************************
	
	'定义相关变量
	dim teacherID			'教师编号
	dim teacherPassword		'教师密码
	dim sql				
	dim rs
	
	teacherID = Session("userID")
	teacherPassword = Trim(Request.Form("teaPassword"))
	
	if(teacherID = "") then
		Alert("参数丢失，拒绝操作！")
		GoBack()
		Response.end
	'信息是否完整		
	elseif(teacherPassword = "") then
		Alert("信息填充不完整，操作失败！")
		GoBack()
		Response.End
	'两次输入的密码是否匹配
	elseif(teacherPassword <> Trim(Request.Form("teaPasswordChk"))) then
		Alert("两次输入的密码不匹配，操作失败！")
		GoBack()
		Response.End
	else
		'加密密码
		teacherPassword = md5(teacherPassword)
		sql = "update teacher set tPassword = '" & teacherPassword & "'"
		sql = sql & "where ID = " & teacherID
		ExecuteNonQuery(sql)
		Alert("操作成功，请继续其他操作！")
		Go("welcome.htm")
	end if
	
%>