📄 online.asp

📁 人事管理系统毕业论文和代码希望大家喜欢

💻 ASP

字号:

<% option explicit%>
<html>
<head>

<script language=javascript>
<!--
function view(message)
{url="showmess.asp?message="+message;
 privatemsg = window.open(url,'yftk',"WIDTH=400,HEIGHT=120,left=100,top=100,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=yes,menu=no,min=no,max=no");
 }
-->
</script>

<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="refresh" content="5">
<base target="main">
<title>网络呼机监视器(请把它最小化，不要关闭这个窗口)</title>
</head>
<%
dim messages,message,message1,messagetemp,i
session("message")=""
if application("message")<>"" then
	messages=left(application("message"),len(application("message"))-2)
	message=split(messages,"||")
	for i=0 to ubound(message)
		message1=split(message(i),"&&")
		if message1(1)=session("username") or message1(1)="alluser" then
		    session("message")=session("message")&message(i)&"||"
		    	
		else
			messagetemp=messagetemp&message(i)&"||"
		end if	
	next
	Application.Lock
	application("message")=messagetemp
	Application.UnLock
end if

if session("message")<>"" then
    Response.write "<body topmargin=0 leftmargin=0 class=clblack bgcolor=#FEF7ED onload=view('"&replace(session("message"),"&&","$$")&"')>"
  else
    Response.write "<body topmargin=0 leftmargin=0 class=clblack bgcolor=#FEF7ED>"
End if 

if session("user_id")=1 then
      response.write("缘分天空在线提示：现在您还没有登录。<br>")
 else 
      response.write("缘分天空在线提示：现在您已经登录。<br>")
end if%>

这是一个网络呼机的监控页面，请不要关闭它，最小化即可，每10秒刷新一次！关闭此页面，就不会收到传呼，并自动在社区注销！(版本 Ver 1.0)<br>
如果您是第一次光临本站，请点申请入会，如果您已经注册，请填写用户名和密码后点登陆。 <a href="usermess.asp?user=0" target=_blank>[发寻呼]
 
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -