📄 f1.asp
字号:
Case else
sayscolor="#660099"
End Select
Select Case addsays
Case "0"
addsays="对"
Case "1"
addsays="微微笑对"
Case "2"
addsays="温柔地对"
Case "3"
addsays="红着脸对"
Case "4"
addsays="摇头晃脑得意地对"
Case "5"
addsays="哈！哈！哈！笑着对"
Case "6"
addsays="神秘兮兮地对"
Case "7"
addsays="战战兢兢地对"
Case "8"
addsays="毛手毛脚地对"
Case "9"
addsays="嘟着嘴地对"
Case "10"
addsays="慢条斯理地对"
Case "11"
addsays="同情地对"
Case "12"
addsays="幸灾乐祸地"
Case "13"
addsays="快要哭地对"
Case "14"
addsays="哭着对"
Case "15"
addsays="拳打脚踢地对"
Case "16"
addsays="不怀好意地对"
Case "17"
addsays="遗憾地对"
Case "18"
addsays="瞪大了眼睛，很诧异地对"
Case "19"
addsays="幸福地对"
Case "20"
addsays="翻箱倒柜地对"
Case "21"
addsays="悲痛地"
Case "22"
addsays="正义凛然地对"
Case "23"
addsays="严肃地对"
Case "24"
addsays="生气地对"
Case "25"
addsays="大声地对"
Case "26"
addsays="傻乎乎地对"
Case "27"
addsays="很满足地对"
Case "28"
addsays="手足无措地对"
Case "29"
addsays="很无辜地对"
Case "30"
addsays="喃喃自语地对"
Case "31"
addsays="恶狠狠地瞪着眼对"
Case "32"
addsays="快要吐地对"
Case "33"
addsays="无精打采地对"
Case "34"
addsays="依依不舍地对"
Case "35"
addsays="口吐白沫对"
Case else
addsays="对"
End Select
%>
<body text="#000000">
<%
'人员登录
OUN=Application(SESSION("CRNAME")&"OUN")
OULT=Application(SESSION("CRNAME")&"OULT")
usernum=Application(SESSION("CRNAME")&"usernum")
cur=Application(SESSION("CRNAME")&"cur")
whotowho=Application(SESSION("CRNAME")&"whotowho")
sentences=Application(SESSION("CRNAME")&"sentences")
UPDA=0
for i=1 to 60
'更新自已最后访问时间(OULT)
If Session("username")=OUN(i) then
UPDA=1
OULT(i)=Now
End If
If len(OUN(i))=0 then usernum=i-1:Exit For
Next
'加入新会议用户
If UPDA=0 then
OUN(usernum+1)=Session("username")
OULT(usernum+1)=Now
usernum=usernum+1
cur=cur+1
if cur>60 then cur=1
sentences(cur)="<font color=#FF0000>[公告]</font>"&Session("username")&"刚刚进入<u>"&Session("CRNAME")&"</u>……<font color=#000000>("&Now&")</font>"
whotowho(cur,1)="System"
whotowho(cur,2)="大家"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -