savepwd.asp

来自「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」· ASP 代码 · 共 26 行

<!--#include file="dbpath/dbpath.asp"-->
<!--#include file="function/encrypt.asp"-->
<%
if request.cookies("adminok")="" then
  response.redirect "login.asp"
end if

dim rs
	set rs=server.CreateObject("ADODB.RecordSet")

		if request("method")="chan" then 
		  if request("change")="修改" then
			rs.open "select * from admin where id="+request("id"),conn,1,3
				rs("username")=request.form("name")
				rs("password")=encrypt(request.form("pass"))
				rs.Update
		  end if 
		end if
    rs.close
    response.redirect "changepass.asp"
    set rs=nothing  
    conn.close
    set conn=nothing

%>