📄 online.asp

📁 不错的ASP整站源代码。在IIS环境下运行都没有问题

💻 ASP

字号:

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

<script language=javascript>
<!--
function view(message)
{url="showmess.asp?message="+message;
 privatemsg = window.open(url,'yftk',"WIDTH=350,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>
<style type="text/css">
body,td{ font-family: 宋体;font-size:9pt;}
A:link {COLOR: #000000; TEXT-DECORATION: none; font-size: 9pt}
A:active {COLOR: #000000; TEXT-DECORATION: none; font-size: 9pt}
A:visited {COLOR: #000000; TEXT-DECORATION: none; font-size: 9pt}
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="refresh" content="15">
<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=#FFFFFF onload=view('"&replace(session("message"),"&&","$$")&"')>"
else
    Response.write "<body topmargin=0 leftmargin=0 class=clblack bgcolor=#FFFFFF>"
End if 

if session("u_id")=1 then
      response.write("现在您还没有登录。<br>")
   else%>
<table width="250" border="0" cellspacing="1" cellpadding="5" bgcolor="#FFCCCC" align="center">
  <tr>
    <td bgcolor="#ffeeee" align="center">龙派网络呼机</td>
  </tr>
  <tr>
    <td bgcolor="#fff7f7">这是一个网络呼机的监控页面，请不要关闭它，最小化即可，每10秒刷新一次！关闭此页面，就不会收到传呼，并自动在社区注销！<br>
      <p align="center"><a href="usermess.asp?user=0" target=_blank>[发寻呼] </a></p></td>
  </tr>
</table>
<%end if%>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -