password.asp

来自「1. 在界面的开头显示新闻添加的位置」· ASP 代码 · 共 29 行

<!--#include file="conn.asp"-->
<%
dim conn,rs,password1,password2,password3,user,password
password1=request.Form("password1")
password2=request.Form("password2")
password3=request.Form("password3")
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
%>