Um ótimo Chat com detalhes em Flash, ótimo para seu site, um site moderno !
Combina com qualquer pagina, teste em seu site e tenha certeza que trará uma otima aparência.
Este Chat em ASP é facil de editar e tem a aparência de um bate papo profissional e é bastante rápido.
<%@Language = "VBScript"%>
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1000
Dim vAction
Dim vChatName, vPassword, vNewName, vUserPassword, vRoomPassword
Dim vUserArray, vMoodArray, vUserCount
Dim vRoomNo, vNewRoomNo, vCheckOp
Dim vINIFile, x
vAction = Request.QueryString("action")
vChatName = "" & Session("ChatName")
%><%
If vAction = "getuser" Then
If vChatName <> "" Then
Response.Write "UserName=" & Server.URLEncode(vChatName) & "&Result=OK"
Else
Response.Write "Result=NotLoggedIn"
End If
Response.Flush
Response.End
End If
%><%
Application.Lock
Select Case vAction
Case "login"
If vChatName <> "" Then
'already logged in
Session.Timeout = 2
Session("LastLine") = Session("StartLine")
Response.Write "Result=OK"
Else
vRoomNo = 1
vUserArray = Application("ChatUsers" & vRoomNo)
vMoodArray = Application("ChatMoods" & vRoomNo)
vUserCount = Application("UserCount" & vRoomNo)
vNewName = Trim(Request.Form("txtUserName"))
vPassword = Request.Form("txtPassword")
vCheckOp = CheckOp(vNewName, vPassword)
If vCheckOp = "BadPassword" Then
If vPassword = "" Then
Response.Write "Result=Password"
Else
Response.Write "Result=BadPassword"
End If
Else
If LogUserIn(vNewName, vUserArray, vMoodArray, vUserCount) = True Then
Session("Kicked") = "False"
If vCheckOp = "OK" Then
Session("Op") = "True"
Session("Password") = vPassword
Else
Session("Op") ="False"
Session("Password") = ""
End If
Session("ChatName") = vNewName
Session("RoomNo") = vRoomNo
Application("ChatUsers" & vRoomNo) = vUserArray
Application("ChatMoods" & vRoomNo) = vMoodArray
Application("UserCount" & vRoomNo) = vUserCount
AddLineToChat vRoomNo, "**" & vNewName & " has arrived**"
Session("StartLine") = Application("ChatLineCount" & vRoomNo)
Session("LastLine") = Application("ChatLineCount" & vRoomNo)
Session.Timeout = 2
Response.Write "Result=OK&Users=" & Application("UserCount1")
Else
Response.Write "Result=BadLogin"
End If
End If
End If
Case "logout"
vRoomNo = Session("RoomNo")
vUserArray = Application("ChatUsers" & vRoomNo)
vMoodArray = Application("ChatMoods" & vRoomNo)
vUserCount = Application("UserCount" & vRoomNo)
If LogUserOut(vChatName, vUserArray, vMoodArray, vUserCount) Then
If vUserCount = 0 Then
Application("ChatLines" & vRoomNo) = ""
Application("ChatLineCount" & vRoomNo) = 0
Application("ChatMaxLines" & vRoomNo) = 0
End If
Application("ChatUsers" & vRoomNo) = vUserArray
Application("ChatMoods" & vRoomNo) = vMoodArray
Application("UserCount" & vRoomNo) = vUserCount
End If
Session("ChatName") = ""
Session.Timeout = 20
If Session("Kicked") = "True" Then
x = Instr(vChatName,"[")
If x > 1 Then vChatName = Left(vChatName, x - 1)
AddLineToChat vRoomNo, "**" & vChatName & " has left (kicked)**"
Else
AddLineToChat vRoomNo, "**" & vChatName & " has left (quit)**"
End If
Response.Write "Result=OK"
Case "changeroom"
vINIFile = Application("INIFile")
vRoomNo = Session("RoomNo")
vNewRoomNo = Request.QueryString("room")
vUserPassword = Request.QueryString("Password")
vRoomPassword = INIFileValue(vINIFile, "Rooms", "Password" & vNewRoomNo)
If UCase(vRoomPassword) <> "" And UCase(vRoomPassword) <> UCase(vUserPassword) Then
Response.Write "Result=Denied&Password=" & vUserPassword
Else
If vRoomNo = vNewRoomNo Then
Response.Write "Result=OK"
Else
vUserArray = Application("ChatUsers" & vRoomNo)
vMoodArray = Application("ChatMoods" & vRoomNo)
vUserCount = Application("UserCount" & vRoomNo)
If LogUserOut(vChatName, vUserArray, vMoodArray, vUserCount) Then
AddLineToChat vRoomNo, "**" & vChatName & " has left (quit)**"
If vUserCount = 0 Then
Application("ChatLines" & vRoomNo) = ""
Application("ChatLineCount" & vRoomNo) = 0
Application("ChatMaxLines" & vRoomNo) = 0
End If
Application("ChatUsers" & vRoomNo) = vUserArray
Application("ChatMoods" & vRoomNo) = vMoodArray
Application("UserCount" & vRoomNo) = vUserCount
End If
vUserArray = Application("ChatUsers" & vNewRoomNo)
vMoodArray = Application("ChatMoods" & vNewRoomNo)
vUserCount = Application("UserCount" & vNewRoomNo)
If LogUserIn(vChatName, vUserArray, vMoodArray, vUserCount) = True Then
Session("RoomNo") = vNewRoomNo
AddLineToChat vNewRoomNo, "**" & vChatName & " has arrived**"
Application("ChatUsers" & vNewRoomNo) = vUserArray
Application("ChatMoods" & vNewRoomNo) = vMoodArray
Application("UserCount" & vNewRoomNo) = vUserCount
Session("StartLine") = Application("ChatLineCount" & vNewRoomNo)
Session("LastLine") = Application("ChatLineCount" & vNewRoomNo)
Response.Write "Result=OK"
Else
Response.Write "Result=BadLogin"
End If
End If
End If
End Select
Application.Unlock
Response.Flush
Response.End
%>
