filter.asp
来自「聊天室源码呵呵你好用~~~~~~2.0版本」· ASP 代码 · 共 74 行
ASP
74 行
<%@ LANGUAGE=VBScript%>
<%Response.Buffer=true
Response.Expires=0
username=Session("a_c_user_name")
filname=Session("a_c_user_filname")
inthechat=Application("a_c_user_inthechat")
if username="" or Session("a_c_user_outchat")=1 then
Response.Redirect "close.asp"
end if
dim show()
input=Application("a_c_user_online")
for i=1 to inthechat*4 step 4
p=1
ptemp="999999999999999"
for j=1 to inthechat*4 step 4
if ptemp>input(j+1) then
ptemp=input(j+1)
p=j
end if
next
Redim preserve show(i),show(i+1),show(i+2),show(i+3)
show(i)=input(p)
show(i+1)=input(p+1)
show(i+2)=input(p+2)
show(i+3)=input(p+3)
input(p+1)="999999999999999"
next%><html>
<head>
<meta http-equiv='content-type' content='text/html; charset=gb2312'>
<meta http-equiv=refresh content='100;url=f3.asp'>
<title>屏蔽某人的话</title>
<style type='text/css'>
<!--
body {line-height:150%;font-size:12pt;}
td {line-height:170%;font-size:10.5pt;}
.p9 {line-height:120%;font-size:9pt;}
A {color:white;text-decoration:none;}
A:Hover {color:black;text-decoration:none;}
A:Active {color:black}
-->
</style>
</head>
<body bgcolor=008888 background="read/bg.gif" bgproperties="fixed" style="margin-left: 10px; margin-right: 5px; margin-top: 10px" text="#FFFFFF">
<div align="center"><font color="#FFFFFF" style="font-size:10.5pt"><%=Application("a_c_chatroom_name")%></font></div>
<center>
<hr size=1 color=FFFF00>
<font color=FF0000><b><%=Application("a_c_user_inthechat")%></b></font><font color=0000FF><span class=p9>(<%=Application("a_c_user_active")%>)</span>人在线<br>
</font>
<div align=left class="p9"><br>
选中对象前的复选框，然后点“提交”就不会看到该对象说的话，眼不见为净嘛。</div>
<form method="post" action="filterok.asp" name="">
<p><font color=FFFF00>选择屏蔽对象</font><br>
<a href=javascript:uncheck() class=p9>取消所有屏蔽选择</a>
<div align=left style="font-size:10.5pt">
<%fnjs=-1
for i=1 to inthechat*4 step 4
if username<>show(i) then
fnjs=fnjs+1%><input type="checkbox" name="filtername" value="<%=show(i)%>"<%if Instr(filname," "&show(i)&",")<>0 then Response.Write " checked"%>> <%=show(i)%><br>
<%end if
next%></p>
</div>
<input type="submit" name="ok" value="提交" style="font-size:9pt">
</p>
</form>
<script language=JavaScript>
function uncheck(){
<%if fnjs<=0 then%>document.forms[0].filtername.checked=false
<%else
for i=0 to fnjs%>document.forms[0].filtername[<%=i%>].checked=false
<%next
end if%>}
</script>
</center>
</body></html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?