<HTML><BODY><P Align="Center"><%Name=Trim(Request("Name"))If Len(Name)<>0 ThenSession("Name")=NameItems=Split(Application("people"),",")If Ubound(items)>=10 ThenResponse.Write "人滿為患,請稍后再來!"Session.AbandonResponse.EndEnd IfApplication.LockApplication("people")=Application("people")&Name&","Application(Name)="歡迎"&Name&"進(jìn)入聊天室!"Application.Unlock%><BR><BR><BR><BR><A Href="main.asp"><B>請快快加入迷你聊天室</B></A><%Else%><Center><TABLE Border="1" Width="80%" Height="152"><Form Action="chat.asp" Methed="post"><TR><TD Width="100%" Bgcolor="#aaaaaa" Height="51" Align="Center"><Font Color="#800000" Size=5><Strong><I>歡迎進(jìn)入迷你聊天室</I></Strong></Font></TD></TR><TR><TD Width="100%" Align="Center" Bgcolor="#00f0f0" Height="89"><Font Color="#a000a0">你的昵稱: </Font><Input Type="text" Name="Name" Size="14" maxlength="10"><Input Type="submit" Value="進(jìn)入"></TD></TR></Form></TABLE></Center></BODY></HTML><%End If%>
1 回答

翻閱古今
TA貢獻(xiàn)1780條經(jīng)驗(yàn) 獲得超5個(gè)贊
其實(shí)上面一句說明了
items=Split(Application("people"),",")
If Ubound(items)>=10 Then
items記錄的是進(jìn)入的人數(shù) ,用APPLICATION記存
Ubound 是上限函數(shù)
Ubound(items)>=10意思,就是當(dāng)進(jìn)入人數(shù)的最大限超過或者等于10時(shí),執(zhí)行后面的操作
添加回答
舉報(bào)
0/150
提交
取消