setadmin.asp

admin/admin.asp是WAP的后台管理登陆页面

<!-- #include file="conn.asp" -->
<%
id=saferequest("id",1)
set rs=server.createobject("adodb.recordset")
sql = "select * from sheet where id="&id
rs.open sql,conn,1,2
if rs.bof and rs.eof then 
    	response.write "<script>window.alert('该会员帐号不存在或已经被管理员删除');window.location='bbsuser.asp';</script>"
else
if instr(rs("bz"),"-99-")>0 then
response.write "<script>window.alert('职位是站长，不能更改！');window.location='editbbsuser.asp?id="&id&"';</script>"
else
if instr(rs("bz"),"-97-")>0 then
rs("bz")=replace(rs("bz"),"-97-","-")
rs.update
else
rs("bz")=""&rs("bz")&"97-"
rs.update
end if
response.write "<script>window.alert('更改成功');window.location='editbbsuser.asp?id="&id&"';</script>"
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>