admsavepwd.asp

日记本（多用户版）V3.0 主要功能： 1、日记本基本功能：添加、修改日记等。 2、日记加密：当日记添加时

<!--#include file="conn.asp"-->
<%'##检查cookies中的密码,错误返回
'=========================================================
' 随然日记本（多用户版） Version:3.0
' Date: 2004-11-15
' Script Written by 随然(dampure)
' 随然日记本演示地址：http://www.suiran.cn
'=========================================================
' Copyright (C) 2003,2004 真露无香. All rights reserved.
' Web: www.yongzi.com
' Diary:http://www.suiran.cn
'=========================================================

pwd=Session("pwd")
user=Session("admindiary")
set rsadm=server.createobject("adodb.recordset")
sqladm="select * from superadmin where user='"&user&"'"
rsadm.open sqladm,conn,1,1
if pwd<>rsadm("pwd") or user<>rsadm("user") then
  response.redirect "admlogin.asp"
end if
'###检查结束
%>
<%
dim rs
	set rs=server.CreateObject("ADODB.RecordSet")

		  if request.form("d")="修改" then
			rs.open "select * from superadmin",conn,1,3
				rs("pwd")=request.form("pwd")
				rs("user")=request.form("user")
				rs.Update
				response.cookies("pwd")=rs("pwd")
		  end if
    rs.close
    response.redirect "admin.asp"
    set rs=nothing  
    conn.close
    set conn=nothing
%>