updatebaseinfo.asp

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

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

<%
	'****************************************
	'目的：			修改用户信息
	'开始时间：		2005-5-31
	'最后修改时间：	2005-6-4 16:28
	'编写人：		某某某
	'****************************************
	dim userID
	dim userName
	dim userPassword
	dim userGrade
	dim userSex
	dim userPhone
	dim userEmail
	dim userAddress
	dim sql
	dim rs
	
	'将表单里面的值取出赋给对应的变量
	userID = Trim(Request.Form("userID"))
	userName = Trim(Request.Form("userName"))
	userPassword = Trim(Request.Form("userPassword"))
	userGrade = Trim(Request.Form("userGrade"))
	userSex = Request.Form("userSex")
	userPhone = Trim(Request.Form("userPhone"))
	userEmail = Trim(Request.Form("userEmail"))
	userAddress = Trim(Request.Form("userAddress"))
	
	'信息完整性检查
	if(userID = "" or userName = "" or userGrade = "") then
		Alert("对不起，请填充所有必填字段后再提交！")
		GoBack()
		Response.End
	end if
	
	'检查用户输入的确认密码和密码是否一致
	if(userPassword <> Trim(Request.Form("userPasswordChk"))) then
		Alert("对不起，确认密码不正确，请查实后再提交！")
		GoBack()
		Response.End
	end if
	
	'检查userID字符串
	userID = CheckStr(userID)
	
	'更新学生信息到数据库中
	sql = "update student set sName = '"
	sql = sql & userName & "',sGrade = '"
	sql = sql & userGrade & "',sSex = '"
	sql = sql & userSex & "',sEmail = '"
	sql = sql & userEmail & "',sPhone = '"
	sql = sql & userPhone & "',sAddress = '"
	
	'如果用户要求修改密码，就继续构造sql语句
	if(userPassword <> "") then
		userPassword = md5(userPassword)
		sql = sql & userAddress & "',sPassword = '"
	end if
	
	sql = sql & studentPassword & "' where ID = '"
	sql = sql & studentID & "'"
	ExecuteNonQuery(sql)
	
	Session("userName") = userName
	
	Alert("您的信息已经修改成功！")
	Go("baseInfo.asp")
%>