📄 filterok.asp

📁 聊天室源码呵呵你好用~~~~~~2.0版本

💻 ASP

字号:

<%@ LANGUAGE=VBScript%>
<%Response.Expires=0
username=Session("a_c_user_name")
if username="" or Session("a_c_user_outchat")=1 then
 Response.Redirect "close.asp"
end if
filname=Request.Form("filtername")
filname=" "&filname&","
Session("a_c_user_filname")=Server.HTMLEncode(filname)%><html>
<head>
<title>屏蔽某人的话</title>
<meta http-equiv="refresh" content="30;URL=f3.asp">
<style type='text/css'>
<!--
body {line-height:150%;font-size:12pt;}
td {line-height:150%;font-size:9pt;}
.p9 {line-height:150%;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="#FFFF00"><%if filname<>" ," then%>屏蔽完成<%else%>解除屏蔽<%end if%></font> 
<table border="0" width="100%">
<form method="post" action="" name="">
<tr>
<td>
<%if filname<>" ," then%>你已经屏蔽了：<p>
<font color="#FFFF00" style="font-size:12pt"><%=Session("a_c_user_filname")%></font><p>
　从现在开始，他(她)说的任何话都不会显示在你的屏幕上。如果你想再看到他说的话，请返回“屏蔽”操作，去掉对象前的复选框，再点击提交。<%else%><div align=center><br><br><br><br><br><br>屏蔽功能已取消<br><br>请刷新一下对话区才能起作用</div><%end if%></p>
<div align="center"><span class="p9"> 
<input type="button" name="abort" value="返回" style="font-size:9pt" onclick="javascript:history.go(-1)">
</span></div>
</td>
</tr>
</form>
</table>
</center>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -