user_reg_modi_pwd_write.asp

树型ASP论坛下载

<% response.Buffer=0 %>
<% if session("userid")="" or session("nickname")=""then%>
  <script language="javascript"> 
  alert("您未登录或超时了，请重新登录！");
  document.location.href="login.asp"
  //history.go(-1);
  </script> 
<%
else%>
<!--#include file="opendb.asp" -->
<%
old_pwd=Trim(request("old_pwd"))
pwd=Trim(request("pwd"))
pwd2=Trim(request("pwd2"))

%>
<%if old_pwd="" then%>
  <script language="javascript"> 
  alert("请输入4-20位原密码！");
  //document.location.href="index.asp"
  history.go(-1);
  </script> 
<%end if%>
<%
set rs1=server.Createobject("ADODB.Recordset")
rs1.open "select password from users where userid="&session("userid"),conn,1,3

'Response.Write rs1("password")&"ll"&session("userid")
'Response.end
if rs1("password")<>old_pwd then%>
    <script language="javascript">
	 alert("原密码不正确！");
	history.go(-1);
	</script>
<%response.end
end if
set rs1=nothing
%> 

<%if len(pwd)<4 then%>
  <script language="javascript"> 
 alert("请输入密码,不能少于4位！");
  //document.location.href="index.asp"
  history.go(-1);
  </script> 
<%end if%>
<%if pwd<>pwd2 then%>
  <script language="javascript"> 
 alert("确认密码和密码不一样！");
  //document.location.href="index.asp"
 history.go(-1);
  </script> 
<%end if%>
<%

 '事务处理和卷回处理
 conn.BeginTrans
set rs1=server.createobject("adodb.recordset")
     rs1.open "select password from users where userid="&session("userid"),conn,1,3
'     rs1.addnew
	 rs1("password")=pwd
     rs1.update
     rs1.Close
    set rs1=nothing


  if conn.Errors.Count=0 then
   conn.CommitTrans 
  else
   conn.RollbackTrans 
  end if
  '完成事务处理和卷回处理


 ' response.redirect "user_reg_modi_write_ok.asp"
 end if 
%>
<table width="93%" border="0" align="center">
  <tr> 
    <td align="center">修改成功</td>
  </tr>
  <tr>
    <td align="center">&nbsp;</td>
  </tr>
</table>