admin_modify.asp

该系统是宿舍管理系统

<!--#include file="conn.asp"-->
<%
set rs2=Server.CreateObject("ADODB.Recordset")
  sql2="select * from admin"
  rs2.open sql2,conn,2,3
%>
<%
if session("admin") <> rs2("admin") or session("adminpass") <> rs2("adminpass") then
response.write("<script>alert('你还没有登录，无法访问该页！')</script>") 
server.transfer("admin_login.asp")
end if
%>
<%
dim admin,adminpass
admin=request("admin")
adminpass=request("adminpass")
if admin="" then
response.write("<script>alert('管理员用户名必须填写！')</script>") 
server.transfer("admin.asp")
end if
if adminpass="" then
response.write("<script>alert('管理员密码必须填写！')</script>") 
server.transfer("admin.asp")
end if
rs2("admin")=admin
rs2("adminpass")=adminpass
rs2.update
rs2.close
set rs2=nothing
response.redirect "admin.asp"
%>
<!--#include file="close.asp"-->