moods.asp

asp+flash 文字聊天源码 asp+flash 文字聊天源码

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

Dim vNewMood
Dim vUserName
Dim vUserCount, vUser, vChatUsers, vRoomNo
Dim vChatMoods

vUserName = Session("ChatName")
vNewMood = Request.QueryString("Mood")
vRoomNo = Session("RoomNo")

Application.Lock

vUserCount = Application("UserCount" & vRoomNo)
If vUserCount > 0 Then
	vChatUsers = Application("ChatUsers" & vRoomNo)
	For vUser = 0 To vUserCount - 1
		If vChatUsers(vUser) = vUserName Then
			vChatMoods = Application("ChatMoods" & vRoomNo)
			If Request.QueryString("getmood") = "1" Then
				Response.Write "MyMood=" & vChatMoods(vUser) & "&"
			Else
				vChatMoods(vUser) = vNewMood
				Application("ChatMoods" & vRoomNo) = vChatMoods
			End If
			Exit For
		End If
	Next
End If

Application.Unlock

Response.Write "Result=OK"
Response.Flush
Response.End
%>