屏蔽某人的话

<%@ LANGUAGE=VBScript.Encode codepage ="936" %> <%Response.Expires=0 if session("TWT_ARR_ArgALL")="" then response.end TWT_ArrArg=split(session("TWT_ARR_ArgALL"),"=") nickname=TWT_ArrArg(0) filname=TWT_ArrArg(4) chatroomsn=TWT_ArrArg(3) useronlinename=Application("hxf_c_useronlinename"&chatroomsn) if nickname="" or TWT_ArrArg(6)<>"1" or TWT_ArrArg(3)="" or Instr(useronlinename," "&nickname&" ")=0 then Response.Redirect "chaterr.asp?id=001" show=Split(Trim(useronlinename)," ",-1) j=UBound(show) chatbgcolor=jiutian_chatbgcolor chatimage=jiutian_chatimage if chatbgcolor="" then chatbgcolor="008888"%> 屏蔽某人的话

选择屏蔽对象
只能禁止对方对你的普通发言, 不能禁止对方发送命令并借机击攻击对方。

<% for i=0 to j if Instr(jiutian_admin,"|" & show(i) & "|")=0 then if CStr(show(i))<>CStr(nickname) then%>0 then Response.Write " checked"%>><%=show(i)%>
<% end if end if next %>