update_editpwd.asp

asp做的论坛

<!--#include file="inc/conn.asp"-->
<!--#include file="chkmanage.asp"-->
<!--#include file=inc/md5_net.asp -->
<%
Dim pass1,pass2,passtem
pass=request("pass")
pass1=Trim(request("pass1"))
pass2=Trim(request("pass2"))
name=Trim(Request("name"))
pass3=Request("pass1")
If pass1="" Then 
	Session("wrong")="密码不能为空" 
	Response.Redirect "error.asp"
End If 
If pass1<>pass2 Then
	Session("wrong")="两次输入的密码不同"  
	Response.Redirect "error.asp"
End If
If name="" Then
	Session("wrong")="用户名不能为空!"
	Response.Redirect ( "error.asp" )  
End If
pass3=MD5_NET(MD5_NET(pass3))
pass=MD5_NET(MD5_NET(pass))
set rs=server.createobject("adodb.recordset")
sql="Select * From admin Where id=1"
rs.open sql,conn,1,3


If pass<>rs("password") Then
	rs.close
	conn.close
	Session("wrong")="旧密码错误!"
	Response.Redirect ( "error.asp" )    
else
rs("password")=pass3
rs.Update
Session("username")=name
%>
<script language="javascript">
alert("成功修改！")
location.href="index.asp"
</script>    
<%rs.close
conn.close
end if
%>