📄 f3.asp
字号:
<%Response.Expires=0
If IsEmpty(Session("UserName")) then Response.End%>
<!--
#Include file="Config.asp"
-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
<!--
function selectwho(list){
parent.input.document.forms[0].towho.options[0].value=list;
parent.input.document.forms[0].towho.options[0].text=list;
parent.input.document.forms[0].saystemp.focus();
}
//-->
</script>
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="refresh" content="<%=ROnline%>">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title></title>
<base target="_self">
<style>
<!--
body,tr { font-family: 宋体; font-size: 9pt }
A:link {text-decoration: none; color:#E00000; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
A:visited {text-decoration: none; color: #E00000; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
A:active {text-decoration: underline; color: #E00000; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
A:hover {text-decoration: none; color: F00000; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
-->
</style>
</head>
<body bgcolor=#FFFFFF text="#cccccc" topmargin="0" leftmargin="0" link="#cccccc" vlink="#cccccc" style="border-top: 2 solid #DDDDDD">
<%
usernum=0 '在线人数
OUN=Application(SESSION("CRNAME")&"OUN")
OULT=Application(SESSION("CRNAME")&"OULT")
sentences=Application(SESSION("CRNAME")&"sentences")
cur=Application(SESSION("CRNAME")&"cur")
whotowho=Application(SESSION("CRNAME")&"whotowho")
for i=1 to 60
If len(OUN(i))>0 then usernum=usernum+1 '统计在线人数
next
'删除过期聊天用户
for i=usernum to 1 step -1
If abs(DateDiff("s",OULT(i),Now))>120 then
cur=cur+1
if cur>60 then cur=1
sentences(cur)="<font color=#FF0000>[公告]</font>"&OUN(i)&"刚刚离开<u>"&Session("CRNAME")&"</u>……<font color=#B0B0B0>("&OULT(i)&")</font>"
whotowho(cur,1)="System"
whotowho(cur,2)="大家"
for os=i to usernum-1
OUN(os)=OUN(os+1)
OULT(os)=OULT(os+1)
next
OUN(usernum)=EMPTY
OULT(usernum)=EMPTY
usernum=usernum-1
End If
next
Application.Lock
Application(SESSION("CRNAME")&"sentences")=sentences
Application(SESSION("CRNAME")&"whotowho")=whotowho
Application(SESSION("CRNAME")&"usernum")=usernum
Application(SESSION("CRNAME")&"cur")=cur
Application(SESSION("CRNAME")&"OUN")=OUN
Application(SESSION("CRNAME")&"OULT")=OULT
Application.unLock
Response.Write("与会人数："&usernum)
%>
<BR>
<HR>
<a href="javascript:selectwho('大家');" onMouseOver="window.status='选择对话或动作对象为：大家'" onMouseOut="window.status=''">大家</a><br>
<%for x=1 to usernum%>
<a href="javascript:selectwho('<%=OUN(x)%>');" onMouseOver="window.status='选择对话或动作对象为：<%=OUN(x)%>'" onMouseOut="window.status=''"><%=OUN(x)%></a><br>
<%next%>
<HR>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -