📄 mandbclose.asp

📁 此程序为网上下载

💻 ASP

字号:

<%@ codepage ="936" %>
<%Response.Expires=0
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
if nickname="" then Response.Redirect "manerr.asp?id=100"
if grade<>12 or Session("ipbt")<>"1" then Response.Redirect "manerr.asp?id=150"
Application.Lock
 Dim nameindex(0)
 useronlinename=" "
 onliners=0
 Application("wsaxhxf_c_onlinelist")=nameindex
 Application("wsaxhxf_c_useronlinename")=useronlinename
 Application("wsaxhxf_c_chatrs")=onliners
Application.UnLock%><html>
<head>
<title>数据压缩</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly/style.css">
</head>
<body bgcolor="#FFFFFF" class=p150>
<div align="center">
<h1><font color="0099FF">【数据压缩】</font></h1>
<font color="#FF0000">【清空在线人员】</font></div>
<hr noshade size="1" color=009900>
<b>［操作完成］</b><br>
　　已经将在线人员全部清除。 
<div align=center><a href="javascript:history.go(-1)">返回</a></div>
<hr noshade size="1" color=009900>
<div align=center class=cp><%Response.Write "序列号：<font color=blue>" & Application("wsaxhxf_c_sn") & "</font>，授权给：<font color=blue>" & Application("wsaxhxf_c_user") & "</font><br><font color=999999>" & Application("wsaxhxf_c_copyright") & "</font>"%></div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -