Chat

#1 _UsP_

Normal

Usuários
108 posts

Sexo:Não informado

Posted 18/01/2004, 06:21

E ae galera. Tipo primeira vez que eu to mexendo com global.asa saca?

Ai, tipo. Eu montei um aqui. So que ele nao roda.

Global.asa

Sub Session_OnEnd
Application("n_guest") = Application("n_guest") - 1
Application("nick") = replace(Application("nick"),session("nick"),"")
session("logado") = false
Set FSO = server.CreateObject("Scripting.FileSystemObject")
mensagem = "["&time()&"]"&" "&session("nick")&" "&"Saio do chat"
caminho = server.MapPath("chat.txt")
Set AbrirTxt = FSO.OpenTextFile (caminho, 1,false)
TodasMensagens = AbrirText.ReadAll 
Set Txt = FSO.CreateTextFile(caminho, true)
Txt.WriteLine(TodasMensagens)
Txt.WriteLine(mensagem)
Set FSO = nothing
Set Txt = nothing
End Sub

Me da um help ae

okz?

To aguardando (y)

fuiz.

#2 K I L L I N G

Batera na veia, ASP no coração

Banidos
398 posts

Sexo:Não informado

Posted 18/01/2004, 12:35

Vc quer o que enfim?
CHAT ou GLOBAL.ASA?

http://www.fiquecomigo.com
http://www.fiquecomigo.com.br
Encontre o amor da sua vida aqui!

Vinícius Nunes Lage
vinibaterabol@msn.com

#3 _UsP_

Normal

Usuários
108 posts

Sexo:Não informado

Posted 19/01/2004, 00:41

Como assim?

Isso é apenas uma parte do programa. Não entendi sua pergunta. Pois a minha é: Pq não esta funcionando?

O global.asa

Edição feita por: _UsP_, 19/01/2004, 00:41.

#4 cybermix

andrewsmedina.com.br

Ex-Admins
3586 posts

Sexo:Não informado
Localidade:Não sou desse planeta não!!!!
Interesses:python, fireworks, linux, php, flash...

Posted 19/01/2004, 00:57

que erro esta dando.

boa o coadigo que esta acessando o applicaition ai

www.andrewsmedina.com.br

#5 _UsP_

Normal

Usuários
108 posts

Sexo:Não informado

Posted 19/01/2004, 02:19

E ae cyber blz? Tipo não da erro. Porem tb não é executado.

A Application("nick") é aonde eu armazeno o nick dos users online. O Metodo de armazenamento e:

nick1,nick2,nick3 e etc...

Aqui é a parte em que deixa ele no formato que eu citei acima:

if Application("nick") = "" then
     Application("nick") = session("nick")
else
     Application("nick") = Application("nick") & "," & session("nick")
end if

E quando eu deixo escrito na tela. a lista de usuarios online eu faço assim:

<%
nicks = Split(Trim(Application("nick")),",",-1,1)
n_nicks = UBound(nicks)
for i = 0 to n_nicks
nick = nicks(i)
if nicks(i) = session("nick") then
	cor = "#FF0000"
else
	cor = "#0000FF"
end if
response.write ("<BR>")
response.write ("<font color="&cor&" size=""2"">"&nick&"</font>")
next
%>

To esperando retorno em?

#6 _UsP_

Normal

Usuários
108 posts

Sexo:Não informado

Posted 19/01/2004, 18:24

E ae? Alguem já pode me ajudar a resolver isso ae?

#7 _UsP_

Normal

Usuários
108 posts

Sexo:Não informado

Posted 19/01/2004, 23:20

Alo..... Ajuda ae.

#8 _UsP_

Normal

Usuários
108 posts

Sexo:Não informado

Posted 20/01/2004, 22:17

ALô!!!!! pREcISO DE AJUDA AE!!!!!!!...... \Alguem pode?

#9 _UsP_

Normal

Usuários
108 posts

Sexo:Não informado

Posted 21/01/2004, 19:56

ALOOOOOO.

Se alguem quer saber : NÃO DA ERRO!

HELP AE!!!!!

#10 N3G4T1V3

Normal

Usuários
78 posts

Sexo:Não informado

Posted 21/01/2004, 20:45

COLOKA O GLOBAL.ASA NA RAIZ DO SERVIDOR KE VAI FUNCIONA!!!!

ps: uma veiz eu fiz um up num post ke eu precisava mto da resposta e fikei com alerta.. e o UsP feiz 3 seguidas e nada.... ke injusto isso

#11 _UsP_

Normal

Usuários
108 posts

Sexo:Não informado

Posted 22/01/2004, 06:52

Já botei

Poxa ai ta as paginas:

logar.asp

<%
if session("logado") = "" then
nick = request("nick")
session("nick") = nick
if session("nick") = "" then
	Application("n_guest") = Application("n_guest") + 1
	session("nick") = "Guest-"&Application("n_guest")
else
	if Application("nick") = "" then
  Application("nick") = session("nick")
	else
	Application("nick") = Application("nick") & "," & session("nick")
	end if
	session("logado") = true
end if
Set FSO = server.CreateObject("Scripting.FileSystemObject")
mensagem = "["&time()&"]"&" "&session("nick")&" "&"Entrou no chat"
caminho = server.MapPath("chat.txt")
Set Txt = FSO.CreateTextFile(caminho, true)
Txt.WriteLine(mensagem)
Set FSO = nothing
Set Txt = nothing
%>

online.asp

<%
nicks = Split(Trim(Application("nick")),",",-1,1)
n_nicks = UBound(nicks)
for i = 0 to n_nicks
nick = nicks(i)
if nicks(i) = session("nick") then
	cor = "#FF0000"
else
	cor = "#0000FF"
end if
response.write ("<BR>")
response.write ("<font color="&cor&" size=""2"">"&nick&"</font>")
next
%>
<body bgcolor="#666666">
<head>
<meta http-equiv="Refresh" content="2">
</head>
</body>

global.asa

Sub Session_OnEnd
Application("nick") = replace(Application("nick"),session("nick"),"")
session("logado") = false
Set FSO = server.CreateObject("Scripting.FileSystemObject")
mensagem = "["&time()&"]"&" "&session("nick")&" "&"Saio do chat"
caminho = server.MapPath("chat.txt")
Set AbrirTxt = FSO.OpenTextFile (caminho, 1,false)
TodasMensagens = AbrirText.ReadAll 
Set Txt = FSO.CreateTextFile(caminho, true)
Txt.WriteLine(TodasMensagens)
Txt.WriteLine(mensagem)
Set FSO = nothing
Set Txt = nothing
End Sub

HELP AE!!!!!

Cybermix cade você? :huh:

Pô galera. Tenta da um help ae

#2 K I L L I N G

1 user(s) are reading this topic

Entrar