<%Response.Buffer=true response.expires=0 myid=Session("myid") if myid="" then response.end application.lock call get_guests call get_maxuser%> <%if request("B1")="提交" then onlinenum=request("onlinenum") if (onlinenum-0)>0 then myfilter="" for i=1 to onlinenum if Request.form("filter"&i)<>"" then myfilter=myfilter&" "&Request.form("filter"&i)&" " next guests(myid,12)=myfilter myfilter=replace(myfilter," ","
") call put_guests end if%> <%end if application.unlock%>

选择屏蔽对象

操作成功 <%if myfilter="" then%> 没有人被你屏蔽   <%else%> <%=myfilter%> 被你屏蔽 <%end if%>   <%else%>

<%j=0 for i=0 to MaxUser if guests(i,0)<>"" and guests(i,0)<>Session("myname") then j=j+1 if instr(guests(myid,12)," "&guests(i,0)&" ")<>0 then checkstr="checked" else checkstr="" end if%>  > <%=guests(i,0)%> <%end if next if j=0 then%>没有可以屏蔽的对象<%end if%>

<%if j>0 then%> <%end if%>