📄 f1.asp
字号:
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">
<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 { color: #cccccc; font-family: 宋体; font-size: 10.5pt }
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>
<meta http-equiv=refresh content='<%=Reload%>;url=f1.asp#bottom'>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title><%=Title%></title>
<base target="_self">
</head>
<body bgcolor="<%=Saysback%>" text="<%=Saysword%>" topmargin="0" leftmargin="0" link="#cccccc" vlink="#cccccc">
<%
Response.Flush
'人员登录
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 MaxUser
'更新自已最后访问时间(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>MaxUser then cur=1
sentences(cur)="<font color=" & Loginword & ">[系统公告]</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
Application(SESSION("CRNAME")&"whotowho")=whotowho
Application(SESSION("CRNAME")&"cur")=cur
Application(SESSION("CRNAME")&"usernum")=usernum
Application.UnLock
Response.Flush
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -