📄 default.asp
字号:
<%
IF Request.Cookies("nick") = "" AND Request.Form("nick") = "" THEN
%>
<html>
<head>
<title>ID1314.COM 会议室</title>
</head>
<body background="intro.jpg" BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#FF0000" VLINK="#FF0000">
<%
Session("skin")="norm"
%>
<p align="center"><br>
在此输入您的姓名: </p>
<form name="frmLogin" METHOD="POST" ACTION="default.asp">
<div align="center"><center><p><input NAME="nick" TYPE="TEXT" SIZE="10"> <input TYPE="SUBMIT" VALUE="加入会议"> </p>
</center></div>
</form>
<!-- #include file="notes.asp" -->
<script language="VBScript">
Sub Window_OnLoad
frmLogin.nick.focus
End Sub
</script>
</body>
</html>
<%
ELSE
Response.Cookies("nick")=Request.Form("nick")
APPLICATION.LOCK
Application("chat10") = Application("chat9")
Application("chat9") = Application("chat8")
Application("chat8") = Application("chat7")
Application("chat7") = Application("chat6")
Application("chat6") = Application("chat5")
Application("chat5") = Application("chat4")
Application("chat4") = Application("chat3")
Application("chat3") = Application("chat2")
Application("chat2") = Application("chat1")
Application("chat1") = "<img src=in.jpg width=13 height=14 alt=Hello>" & "<FONT COLOR=""#0000FF""> " & Request.Form("nick") & " 进入会议室.</FONT>"
Application("sessCount") = Application("sessCount") + 1
If Application("slot10") = "" or Application("slot10") = "Available" then
Application("slot10") = Request.Form("nick")
ElseIF Application("slot9") = "" or Application("slot9") = "Available" then
Application("slot9") = Request.Form("nick")
ElseIF Application("slot8") = "" or Application("slot8") = "Available" then
Application("slot8") = Request.Form("nick")
ElseIF Application("slot7") = "" or Application("slot7") = "Available" then
Application("slot7") = Request.Form("nick")
ElseIF Application("slot6") = "" or Application("slot6") = "Available" then
Application("slot6") = Request.Form("nick")
ElseIF Application("slot5") = "" or Application("slot5") = "Available" then
Application("slot5") = Request.Form("nick")
ElseIF Application("slot4") = "" or Application("slot4") = "Available" then
Application("slot4") = Request.Form("nick")
ElseIF Application("slot3") = "" or Application("slot3") = "Available" then
Application("slot3") = Request.Form("nick")
ElseIF Application("slot2") = "" or Application("slot2") = "Available" then
Application("slot2") = Request.Form("nick")
Else
Application("slot10") = Application("slot9")
Application("slot9") = Application("slot8")
Application("slot8") = Application("slot7")
Application("slot7") = Application("slot6")
Application("slot6") = Application("slot5")
Application("slot5") = Application("slot4")
Application("slot4") = Application("slot3")
Application("slot3") = Application("slot2")
Application("slot2") = Application("slot1")
Application("slot1") = Request.Form("nick")
APPLICATION.UNLOCK
End If
%>
<html><title>ID1314.COM 会议室</title>
<frameset framespacing="0" FRAMEBORDER="0" BORDER="false" rows="250,100">
<frameset cols="450,150">
<frame SRC="display.asp" SCROLLING="auto">
<frame name="1" noresize src="SideBar.asp">
</frameset>
<frame SRC="message.asp" SCROLLING="no">
</frameset><noframes></noframes>
</html>
<%
END IF
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -