savepwd.asp

这是一个功能基本完善的系统

<!--#include file="dbpath.asp"-->
<%
if request.cookies("loginok")="" 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")=request.form("pass")
				rs.Update
		  end if 
		end if
    rs.close
    response.redirect "manage.asp"
    set rs=nothing  
    conn.close
    set conn=nothing

%>