change.asp

来自「旅游管理系统 用ASP+SQL 2」· ASP 代码 · 共 47 行

<!--#include file="../../conn.asp"-->
<%if session("admin_pass")<>"ok" then
   response.redirect "adminlogin.asp"
   response.end
end if%>
<%
dim rs,sql,pass,un,records,old
pass=Request("password")
old=Request("oldpass")
un=Request("uname")
if un="" or old="" then
   response.write "<script language='javascript'>"
   response.write "alert('请输入登录时所用的管理员帐号和口令！');"
   response.write "history.go(-1);"
   response.write "</script>"
   response.end
end if
if pass="" then
   response.write "<script language='javascript'>"
   response.write "alert('请输入登录新口令，此项不能为空！');"
   response.write "history.go(-1);"
   response.write "</script>"
   response.end
end if
set rs = server.createobject("adodb.recordset")
	 rs.open "select * from admin where username='"&un&"' and password='"&old&"'",conn,3,3
	 records=rs.recordcount
	 if records=0 then
   		response.write "<script language='javascript'>"
   		response.write "alert('您输入的原有管理员帐号或口令有误');"
   		response.write "history.go(-1);"
   		response.write "</script>"
   		response.end
	 end if	 
	 rs("username")=un
	 rs("password")=pass
	 rs.update
	 rs.close
	 set rs=nothing
     conn.Close
     set conn=Nothing   	 
   		response.write "<script language='javascript'>"
   		response.write "alert('管理员口令修改完成，请牢记！');"
   		response.write "history.go(-1);"
   		response.write "</script>"
   		response.end
%>