checkpwd.asp

来自「职业培训学校学生档案成绩费用管理系统V1.0免费版.rar」· ASP 代码 · 共 28 行

<%
if session("sNumber")="" then
	response.write "您无此权限"
	response.end
end if
%>
<!--#include file="conn.asp"-->
<%
sNumber=session("sNumber")
oldPwd=trim(request("oldPwd"))
newPwd=trim(request("newPwd"))
set rs=server.createobject("adodb.recordset")
sql="select * from st_info where user_number='"&sNumber&"'"
rs.open sql,conn,1,3
if rs("mima")=oldPwd then
	rs("mima")=newPwd
	rs.update
	rs.close
	set rs=nothing
	response.Write "<script>alert('修改成功！');document.location.href='studentMima.asp';</script>"
	response.end
else
	response.Write "<script>alert('修改失败！');document.location.href='studentMima.asp';</script>"
	response.end
end if
%>