admin_post.asp

留言 留言本采用asp+access数据结构

<%'    ==================================================
'//             粑粑工作室留言本
'//     程序版本:    粑粑工作室留言本 v2.1 
'//     技术支持:    www.gongliyi.cn
'//     程序演示:    www.gongliyi.cn/book2
'//     作    者:    龚礼仪（粑粑）
'//     文件信息:    admin_post.asp(管理处理文件)
'//     最后修改:    2008.11.23   
'//     升级修改:    2009.04.05 
'    ==================================================
%>
<!--#include file="include/conn.asp"-->
<!--#include file="include/md5.asp"-->

<%
''''''''''''''''''管理员退出登陆''''''''''''''''''''

  if request.QueryString("action")="login_out" then
  session("password") = false
  session("adminname") = ""
  Response.Redirect("index.asp")
  end if
%>

<%

''''''''''''''''''管理员密码修改''''''''''''''''''''

  if request.QueryString("action")="password_edit" then
	admin=request("admin")
	password=request("password")
	password2=request("password2")
	if password<>password2 then 
	response.Write("<script>alert('两次密码输入不一致，请返回重新输入！');history.back()</script>")
	end if 
	if admin="" then 
	response.Write("<script>alert('请输入新用户名！');history.back()</script>")
	end if
	if password="" then 
	response.Write("<script>alert('请输入密码！');history.back()</script>")
	end if 
	  set rs=server.createobject("adodb.recordset")
	  sql="select * from admin " 
	  rs.open sql,conn,1,3
	  rs("admin")=admin
	  rs("password")=md5(password)
	  session("password") = false
      session("adminname") = ""
	  rs.update
	  rs.close
	  set rs=nothing
	  conn.close
	  set conn=nothing
	  Response.write ("<script>alert('修改成功！请重新登录！');window.location='index.asp';</script>")
 end if
%>


<% 
''''''''''''''''''管理员登陆处理''''''''''''''''''''

if request.form("action")="adminlogin" then
set rs=server.CreateObject("adodb.recordset")
admin=request.form("admin")
password=request.form("password")
sql="select * from admin "
rs.open sql,conn,1,1
if not rs.eof then
	if rs("password")<>md5(password)   then 
		response.Write("<script>alert('密码错误，请重新输入！');history.go(-1)</script>")
		response.end
	else
		session("adminname")=admin
		session("password")=password
		session.timeout=60
		response.Redirect("index.asp")
	end if
else
	response.write("<script>alert('用户名或密码错误，请重新输入！');history.back()</script>")
	response.end
end if
end if
%>