enter.asp

很好的OA办公系统

<!--
#Include file="Config.asp"
-->
<%

If request.form("sf")="sf" then
	If len(request("roomname"))=0 or len(request("name"))=0 Then Response.Redirect("default.asp")
	Session("CRNAME")=Server.HtmlEncode(Request("roomname"))
	Session("username")=Server.HtmlEncode(Request("name"))
	Else
	If len(Request("UserName"))=0 or len(Request("CRNAME"))=0 then Response.Redirect("default.asp")
	Session("CRNAME")=Server.HtmlEncode(Request("CRNAME"))
	Session("username")=Server.HtmlEncode(Request("UserName"))
End If

'IF1
If IsEmpty(Application(SESSION("CRNAME")&"sentences")) then
dim sentences
redim sentences(MaxUser)
dim whotowho
redim whotowho(MaxUser,2)
dim OUN
dim OULT
redim OUN(MaxUser) 'Online User Name
redim OULT(MaxUser) 'Online User Last Timer

OUN(1)=Session("username")
OULT(1)=Now
cur=1
sentences(cur)="<font color=#FF0000>" & Leve & " 会议开始于: "&Now&"</font>"
whotowho(cur,1)="System"
whotowho(cur,2)="大家"

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)="大家"
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 MaxUser
'IF2
If Session("username")=OUN(i) and abs(DateDiff("s",OULT(i),Now))<130 then
Response.Write("<Font color=#FF0000>错误,<BR>用户名称重复！换用其它名字！</FONT>")
Response.End
End If
'EIF2
next
'检测人数是否超出最大限量（MaxUser）
'IF2
If Application(SESSION("CRNAME")&"usernum")>=(MaxUser-1) then
Response.Write("<Font color=#FF0000>ERROR!<R>对不起，本会议室已达到最大同时在线人数!</font>")
Response.End
End If
'EIF2
End If
'EIF1

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