<%Response.Buffer=true response.expires=0 set rsparam=conn.execute("select * from param") myid=Session("myid") myname=Session("myname") if myid="" or myname="" then response.end application.lock call get_guests call get_maxuser if myname<>guests(myid,0) or Session("mytemp")<>guests(myid,1) then response.end my_level=guests(myid,4) if my_level<(-1*guests(myid,9)) then my_level=-1*guests(myid,9) set rs1=conn.execute("select room_owner from room where ID="&guests(myid,5)) if myname=rs1("room_owner") and my_level0 and votes(1)=myname) then my_level=1 selwho=request("selwho") EXflag=false for i=0 to maxuser if guests(i,0)=selwho and guests(i,5)=guests(myid,5) then EXflag=true towho_level=guests(i,4) exit for end if next if not EXflag then set rs=conn.execute("SELECT user_level FROM user WHERE username='" & selwho & "'") if rs.eof or rs.bof then call echoerr("〖"&selwho&"〗还没有注册呢！","online_admin.asp") response.end end if towho_level=rs("user_level") end if if (my_level-rsparam("lkick")<0 and my_level-rsparam("llockip")<0) or myname=selwho or my_level-towho_level<=0 then response.redirect("userinfo.asp?name="&selwho) response.end end if%>

<%if EXflag then%> <%end if if guests(myid,4)-rsparam("lmodlevel")>=0 and (guests(myid,4)-towho_level)>1 then end_level=guests(myid,4)-1%> <%end if if (my_level-rsparam("llockuser")>=0) then%> <%end if%> 你会怎么对待聊友〖<%=selwho%>〗？请输入理由！ 　 <%if my_level-rsparam("llockip")>=0 then%><%end if%> 　 　 <%if my_level-rsparam("lcolduser")>=0 then%><%end if%> [聊友信息] [后退]