password.asp

雨后文章系统V10.04 演示http://dajia.cashome.com/mycode 管理用户密码:admin

<%
dim conn,rs,password1,password2,password3,user,password
password1=request.Form("password1")
password2=request.Form("password2")
password3=request.Form("password3")
set conn=server.CreateObject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("db\db.mdb")
set rs=server.CreateObject("ADODB.recordset")
strsql="update article set password="&password2
rs.open "select * from admin",conn
response.Write rs("admin")
password=rs("password")
rs.close
if password1<>"" and password2<>"" and password3<>"" and password2=password3 then
    if password1=password then
      rs.open strsql,conn
	 %>
	密码已更改请点击<a href="login.asp">返回</a>重新登陆
	<%
	else%>
	您输入的原密码不正确，请点击<a href="login.asp">返回</a>重新登陆
	<%end if%>
    <%elseif password1="" then%>
     请输入原密码，请点击<a href="login.asp">返回</a>重新登陆
    <%elseif password2="" then%>
   请输入要更改的密码，请点击<a href="login.asp">返回</a>重新登陆
    <%elseif password2<>password3 then%>
     您两次输入的密码不同，请点击<a href="login.asp">返回</a>重新登陆
 <%end if
%>