userlist.asp

来自「asp+flash 文字聊天源码 asp+flash 文字聊天源码」· ASP 代码 · 共 47 行

<%@Language = "VBScript"%>
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1000

Dim vChatUsers, vChatMoods, vUser, vUserCount, vResult, vThisUser
Dim vRoomNo, vMyName, vDisplayedUserCount

vRoomNo = Session("RoomNo")
vMyName = Session("ChatName")

vUserCount = Application("UserCount" & vRoomNo)
If vUserCount > 0 Then
	vChatUsers = Application("ChatUsers" & vRoomNo)
	vChatMoods = Application("ChatMoods" & vRoomNo)
	For vUser = 0 To vUserCount - 1
		vThisUser = vChatUsers(vUser)
		If vThisUser = vMyName & "[kicked]" OR vThisUser = vMyName & "[banned]" Then
			If vThisUser = vMyName & "[banned]" Then
				Response.Cookies("BannedFromChat") = "True"
				Response.Cookies("BannedFromChat").Expires=#January 1, 2030#
				Session("ChatName") = vMyName & "[banned]"
			Else
				Session("ChatName") = vMyName & "[kicked]"
			End If
			Session("Kicked") = "True"
			Response.Write "Result=Kicked"
			Response.Flush
			Response.End
		Else
			If Instr(vThisUser,"[kicked]") = 0 And Instr(vThisUser,"[banned]") = 0 Then
				vDisplayedUserCount = vDisplayedUserCount + 1
				vResult = vResult & "User" & vDisplayedUserCount & "=" & vThisUser & "&"
				vResult = vResult & "Mood" & vDisplayedUserCount & "=" & vChatMoods(vUser) & "&"
			End If
	    End If
	Next
	vResult = vResult & "UserCount=" & vDisplayedUserCount
Else
	vResult = "UserCount=0"
End If
Response.Write vResult & "&Me=" & Session("ChatName") & "&Result=OK&Room=" & Session("RoomNo")
Response.Flush
Response.End
%>