if session("user")="" then
response.redirect "login.asp"
response.end
end if
%>
dim rs
id=request("id")
admin=request("admin")
pass=request("pass")
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from manage where admin='"&request.cookies("user")&"'"
rs.open sql,conn,1,3
rs("admin")=admin
rs("pass")=pass
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "" & chr(13)
response.write "alert('修改成功！');" & Chr(13)
response.write "window.document.location.href='hf.asp';"&Chr(13)
response.write "" & Chr(13)
Response.End
%>
