📄 f1.asp
字号:
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
%>
<html>
<head>
<meta http-equiv='content-type' content='text/html; charset=gb2312'>
<meta http-equiv=refresh content='10;url=f1.asp'>
<script language="JavaScript">
<!--
function selectwho(list){
parent.f2.document.forms[0].towho.options[0].value=list;
parent.f2.document.forms[0].towho.options[0].text=list;
parent.f2.document.forms[0].saystemp.focus();
}
//-->
</script>
<style type="TEXT/CSS">
<!--
body,table {color:#000000;font-family: 宋体_GB2312; font-size: 9pt; line-height: 12pt}
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>
<title>现在时间是[<%=Now()%>]您正在浏览留言</title></head>
<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)="大家"
End If
Application.Lock
Application(SESSION("CRNAME")&"OUN")=OUN
Application(SESSION("CRNAME")&"OULT")=OULT
Application(SESSION("CRNAME")&"sentences")=sentences
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -