admin_adminsave.asp

中介之家房产中介系统 V4.0企业共享版

<!--#include file=../conn/conn1.asp --><!--#include file="char.inc"-->
<% if request.cookies("okadmin")="" and request.cookies("rank")="" then
  response.redirect "login.asp"
end if %>
<%
username=request.form("username")
password=request.form("password")
rank=request.form("rank")
if username="" or password="" then
response.write"<SCRIPT language=JavaScript>alert('管理员名称和密码都不能为空！');"
response.write"javascript:history.go(-1)</SCRIPT>"
Response.End
end if

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

if request("act")="edit" and request.QueryString("id")<>"" then
id=request("id")
sql="select * from admin where id="& request.QueryString("id")
rs.open sql,conn,3,2
if not rs.eof then
rs("rank")=rank
rs("username")=username
rs("password")=password
rs.update
end if
rs.close
elseif request("act")="add" then
sql="select * from admin where admin='"&username&"'"
rs.open sql,conn,3,2
if (rs.eof and rs.bof) then
rs.addnew
rs("rank")=rank
rs("username")=username
rs("password")=password
rs.update
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
response.redirect "admin_admin.asp"
%>