filter.asp
来自「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 62 行
ASP
62 行
<!--#include file="../config/config.asp"-->
<%Response.Expires=0
filname=Session("hxf_u_filname")
nickname=Session("hxf_u_nickname")
useronlinename=Application("hxf_c_useronlinename")
if nickname="" or Session("hxf_u_inthechat")<>"1" or Instr(useronlinename," "&nickname&" ")=0 then Response.Redirect "chaterr.asp?id=001"
show=Split(Trim(useronlinename)," ",-1)
j=UBound(show)
%>
<html>
<head>
<meta http-equiv='content-type' content='text/html; charset=gb2312'>
<title>屏蔽某人的话</title>
<style type='text/css'>
body {font-size:12pt;}
td {font-size:10.5pt;line-height:130%}
input{font-size:9pt}
select{font-size:9pt}
textarea{font-size:9pt}
.p9{font-size:9pt}
</style>
</head>
<body oncontextmenu=self.event.returnValue=false bgcolor="<%=chatbgcolor%>" background="<%=chatimage%>" bgproperties="fixed">
<div align="center">
<table width="100%" border="0" height="100%">
<tr>
<td>
<table border="1" cellspacing="0" bgcolor="E0E0E0" bordercolorlight="#000000" bordercolordark="#FFFFFF" align="center" width="100%" cellpadding="3">
<form method="post" action="filterok.asp" name="">
<tr align="center">
<td><font color="red">选择屏蔽对象</font>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td><%for i=0 to j
if Application("hxf_c_disnewuser")=1 or show(i)<>lyy then
if CStr(show(i))<>CStr(nickname) then%><input type="checkbox" name="filtername" value="<%=show(i)%>"<%if Instr(filname," "&show(i)&",")<>0 then Response.Write " checked"%>><%=show(i)%><br>
<%end if
end if
next%></td>
</tr>
</table>
<table width="100%" border="0">
<tr align="center">
<td>
<input type="submit" name="ok" value="提交">
<input type="submit" name="clearall" value="取消">
</td>
</tr>
</table>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</div>
<Script Language=Javascript>
parent.m.location.href='about:blank';
</Script>
</body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?