<%
'If1
If len(Request("UserName"))=0 or len(Request("CRNAME"))=0 then Response.Redirect("index.asp")
'EIf1

Session("CRNAME")=Server.HtmlEncode(Request("CRNAME"))
Session("username")=Server.HtmlEncode(Request("UserName"))

'IF1
If IsEmpty(Application(SESSION("CRNAME")&"sentences")) then
dim sentences(60)
dim whotowho(60,2)
dim OUN(60) 'Online User Name
dim OULT(60) 'Online User Last Timer
OUN(1)=Session("username")
OULT(1)=Now
cur=1
sentences(cur)="<font color=#FF0000>BJX CHAT Server (v1.0) Running at "&Now&"</font>"
whotowho(cur,1)="System"
whotowho(cur,2)="大家"

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)="大家"
Application.Lock
Application(SESSION("CRNAME")&"sentences")=sentences
Application(SESSION("CRNAME")&"whotowho")=whotowho
Application(SESSION("CRNAME")&"OUN")=OUN
Application(SESSION("CRNAME")&"OULT")=OULT
Application(SESSION("CRNAME")&"cur")=cur
Application(SESSION("CRNAME")&"usernum")=1
Application.UnLock

else

OUN=Application(SESSION("CRNAME")&"OUN")
OULT=Application(SESSION("CRNAME")&"OULT")
for i=1 to 60
'IF2
If Session("username")=OUN(i) and abs(DateDiff("s",OULT(i),Now))<130 then
Response.Write("<Font color=#FF0000>ERROR!<BR>您希望使用的這個名字正在被其它人使用，請換用其它名字！</FONT>")
Response.End
End If
'EIF2
next
'檢測人數是否超出最大限量（60）
'IF2
If Application(SESSION("CRNAME")&"usernum")>=59 then
Response.Write("<Font color=#FF0000>ERROR!<R>對不起，本會議室已達到最大同時在線人數，請進入其它會議室</font>")
Response.End
End If
'EIF2
End If
'EIF1

Response.Redirect("chat.asp")
%>