?? f1.asp
字號:
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 bgcolor="#F0F0FF" text="#660099">
<%
'人員登錄
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=#B0B0B0>("&Now&")</font>"
whotowho(cur,1)="System"
whotowho(cur,2)="大家"
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -