<%Response.Buffer=true
response.expires=0
set rsparam=conn.execute("select * from param")
myid=Session("myid")
myname=Session("myname")
my_level=0
call get_guests
if myid="" or myname="" then
elseif myname=guests(myid,0) and Session("mytemp")=guests(myid,1) then
my_level=guests(myid,4)
end if
username=trdb(request("name"))
set rs=conn.execute("SELECT * FROM user WHERE username='" & username & "'")
if rs.eof or rs.bof then
call echoerr("〖"&username&"〗还没有注册呢！","online_admin.asp")
response.end
end if
if rs("sex") then
sex="女"
else
sex="男"
end if
if rs("saved") then
saved="是"
else
saved="否"
end if
if my_level>=rs("user_level") then
if my_level>=rsparam("lseelevel") or myname=username then
user_level=rs("user_level")
else
user_level=""
end if
if my_level>rsparam("lseeip") or myname=username then
first_ip=rs("first_ip")
last_ip=rs("last_ip")
else
first_ip=""
last_ip=""
end if
end if%>