editpass.asp

来自「电脑技术精华大全-共77册-507M.zip」· ASP 代码 · 共 25 行

<%
  if session("admin")="" then
  response.redirect "elogin.asp"
  end if
%>
<!--#include file=inc/dbconn.asp-->

<%
user=trim(request("user"))
pass1=trim(request("newpass"))
pass2=trim(request("repass"))
if pass1<>pass2 then
response.write "<script>alert('密码和确认密码不一样');history.back();</Script>"
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from admin"
	 rs.open sql,conn,3,3
	 rs("pass")=pass1
	 rs("user")=user
	 rs.update
	 rs.close
	 session("admin")=""
	 Response.Redirect "elogin.asp"
end if
%>