<%myid=Session("myid") myname=Session("myname") call get_guests if myid="" or myname="" then my_level=0 elseif myname<>guests(myid,0) or Session("mytemp")<>guests(myid,1) then my_level=0 else my_level=guests(myid,4) end if set rsparam=conn.execute("select * from param") super=0 if my_level=rsparam("superlevel") then super=1%>

<%if request("cmdYes")="查找聊友" then%> <%findkey=trdb(request("findkey")) sql="select * from user where user_level<>"&rsparam("superlevel")&" and username like '%"&findkey&"%'" set Rs=conn.execute(sql) If Rs.Bof OR Rs.Eof Then response.write "" else%> <%if super then%><%end if%> <%Do While Not Rs.Eof g=Rs("log_time") i=Rs("in_time") if my_level-rsparam("lseelevel")>=0 and my_level-Rs("user_level")>=0 then l=Rs("user_level") else l=" " end if response.write "" Rs.MoveNext Loop End If response.write " 根据你输入的字符，查找聊友 没有找到任何聊友 呢称 次数 首次访问 最后访问 级别 经验 修改 删除 " else%> <%set Rs=conn.execute("select * from user where username='"&myname&"'") if Rs.eof or Rs.bof then response.write "" else%> <%if my_level>7 then%><%end if%> <%end if%> 欢迎您的光临！ 您尚未登陆到聊天室！ 呢称：<%=Rs("username")%> 来访：<%=Rs("visit_num")%>次 级别：<%=Rs("user_level")%> 经验：<%=Rs("exp_num")%> 首次访问：<%=Rs("log_time")%> 最后访问：<%=Rs("in_time")%> 你拥有一些超级管理权力，点这里进入吧！ 查找聊友 <%end if%> [系统参数]<%if my_level=rsparam("superlevel") then%> [管理员入口]<%end if%> [后退]

<%conn.close Set conn=nothing%>