change.asp

一个有用的东西 希望大家喜欢 谢谢大家对本站的支持

<%option explicit%>
<%if session("admin_pass")<>"ok" then
   response.redirect "adminlogin.asp"
   response.end
end if%>
<!--#include file="user.asp"-->
<%
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 admin_name='"&un&"' and admin_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("admin_name")=un
	 rs("admin_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
%>