changpwdok.asp

基于IIS+ASP的

<!--#include file="conn.asp"-->
<!--#include file="error.asp"-->
<% 'shark code
user=session("user")
pwd=session("pwd")
chkuser user,pwd


  if  request("oldpwd")="" or request("newpwd1")="" or request("newpwd2")="" then
     showerr "请输入原密码、新密码！","changpwd.asp"
	 response.End()
  else
     if  request("newpwd1")<>request("newpwd2") then
	     showerr "二次输入的新原密码不一致！","changpwd.asp"
		 response.End()
	 else
	   sql1="select * from user where user='admin' "
	   sql2="update user  set pwd='"&request("newpwd1")&"' where user='admin'"
	   set rs=conn.execute(sql1)
	   if rs("pwd")<>request("oldpwd") then
	     'response.Write  rs("pwd") & "--" & request("oldpwd") & "---" & sql2
		  rs.close
		 showerr "原密码输入错误！","changpwd.asp" 
		 response.End()
	   else
	    session("user")=user
        session("pwd")=request("newpwd1")
	    set rs=conn.execute(sql2)
		set conn=nothing
		showok "密码修改成功","changpwd.asp"
		response.End()
	   end if
	 end if 
  end if 

%>