admsavepwd.asp

东营人家多用户留言本 2.2 版 留言本演示地址：http://www.860546.net/gbook/index.asp 留言本下载地址：http://www.860546.net/8

<!--#include file="config.asp"-->
<%'##检查cookies中的密码,错误侧自东返回
set rsu=server.createobject("adodb.recordset")
sqlu="select * from admin"
rsu.open sqlu,conn,1,1
if request.cookies("adminok")<>rsu("pwd") then
  response.redirect "admlogin.asp"
end if
'###检查结束
%>
<%
dim rs
	set rs=server.CreateObject("ADODB.RecordSet")

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