save_member_pass.asp

使用asp开发的一个标准的房地产管理系统。有销售登记

<!--#include file=../include/config.asp-->
<!--#include file=../include/conn_system.asp-->
<!--#include file=../include/access.asp-->
<!--#include file=../include/function.asp-->

<%
	dim newpass,oldpass,confirmpass,strSql,rs
	newpass=request("newpass")	
	oldpass=request("oldpass")
	confirmpass=request("confirm")
	if oldpass="" then
		out("请输入旧密码！")
		response.write "<a href=""javascript:window.go(-1)"">返回</a>！"
		response.end
	end if

	if newpass="" then
		out("请输入新密码！")
		response.write "<a href=""javascript:window.go(-1)"">返回</a>！"
		response.end
	end if

	if confirmpass="" then
		out("请输入确认密码！")
		response.write "<a href=""javascript:window.go(-1)"">返回</a>！"
		response.end
	end if
	
	
	set rs=Server.CreateObject("Adodb.RecordSet")
	strSql="select * from [user] where id=" & session("user_id")
	rs.Open strSql,conn,3,3

	if rs.eof then
		out("找不到该用户！")
	else
		if rs("password")=oldpass then
			rs("password")=newpass
			rs.update %>
<SCRIPT LANGUAGE=vbscript>
<!--
msgbox("恭喜您! 密码修改成功!")
window.top.location.href="../../member.asp"
-->
</SCRIPT>
			
		<% else %>
<SCRIPT LANGUAGE=vbscript>
<!--
msgbox("密码修改失败! 你输入的旧密码和密码不一致！!")
Sub window_onload
window.history.back
End Sub
-->
</SCRIPT>
		<% end if
	end if
	rs.close
	set rs=nothing
%>
<!--#include file=../include/foot.asp-->