RickiMedlem sedan juni 2000373 inlägg Är det någon som vet vad detta trim gör?
strMessage = Trim(Request.Form("meddelande"))
En sak till. Om jag har en chatt och vill visa vilka som är inloggade, hur gör jag då. Namnen lagras i session objektet.
------------------
Mvh Rickard
www.ricki.nu
VideMedlem sedan dec. 19998 577 inlägg Trim tar bort alla mellanslag före och efter strängen's bokstäver...
Du får nog visa lite kod på din chat, hur du lagrar datat i sessionsobjektet...
------------------
www.webeye.nu
RickiMedlem sedan juni 2000373 inlägg Såhär ser det ut:
<%
If Request.Querystring("anvandare") = "" Then
Response.Write "Systemfel, kunde inte idetifiera användaren"
Else
Session("chattanvandare") = Request.Querystring("anvandare")
APPLICATION.LOCK
Application("antal_chattare") = Application("antal_chattare") + 1
APPLICATION.UNLOCK
End If
%>
------------------
Mvh Rickard
www.ricki.nu
emissionMedlem sedan dec. 19996 721 inlägg Session-objektet är ju knutet till en specifik användare, så där kan du inte lagra användarna. Du måste använda application. Kolla in Scripting.Dictionary.
[Redigerat av emission den 20 jun 2000]
RickiMedlem sedan juni 2000373 inlägg Var kan man finna info om Scripting.Dictionary?
Det nämmn inte i min bok
------------------
Mvh Rickard
www.ricki.nu
emissionMedlem sedan dec. 19996 721 inlägg Kolla relaterade länkar i startsidan för ASP-forumet.
RickiMedlem sedan juni 2000373 inlägg Jag får följande felmeddelnade när jag försöker skapa Dictionary objektet:
Körningsfel i Microsoft VBScript fel '800a01ad'
ActiveX-komponenten kan inte skapa objekt.: 'Scriptning.Dictionary'
/ricki2/chatt.asp, rad 6
Finns inte Dictionary objektet med i PWS? Eller har jag hjor fel?
Här är koden:
Dim Lista
Lista = CreateObject("Scriptning.Dictionary")
Chattare = Request.Querystring("anvandare")
Lista.Add " & Chattare & ","Svart"
------------------
Mvh Rickard
www.ricki.nu
RickiMedlem sedan juni 2000373 inlägg Sorry, jag såg felet själ. Jag hade stavat fel!
------------------
Mvh Rickard
www.ricki.nu
RickiMedlem sedan juni 2000373 inlägg Vad är felet?
<%
Dim Bibliotek, Nyckel, Lista, Varde
Set Bibliotek = CreateObject("Scripting.Dictionary")
Chattare = Session("Chattare")
Bibliotek.Add "Rickard", "Svart"
Bibliotek.Add "Sara", "Gron"
Bibliotek.Add "Roger", "Rod"
Nyckel = Bibliotek.Keys
Varde = Bibliotek.Items
For Lista = 0 To Bibliotek.Count -1
%>
Namn: <%=Nyckel("Lista")%> - Färg: <%=Varde("Lista")%>
<%
Next
%>
------------------
Mvh Rickard
www.ricki.nu
emissionMedlem sedan dec. 19996 721 inlägg <%=Nyckel(Lista)%> - Färg: <%=Varde(Lista)%>
RickiMedlem sedan juni 2000373 inlägg Varför fungerar inte detta?
Chattare = Session("Chattare")
Bibliotek.Add " & Chattare & ", "Vit"
------------------
Mvh Rickard
www.ricki.nu
VideMedlem sedan dec. 19998 577 inlägg Testa:
Chattare = Session("Chattare")
Bibliotek.Add Chattare, "Vit"
------------------
www.webeye.nu
emissionMedlem sedan dec. 19996 721 inlägg Därför att det är fel. ;)
Grundläggande om variabler och strängar:
minstrang="hej"
minstrang är en variabel och innehåller strängvärdet hej. Citattecknen används för att ange att värdet som tilldelas också är en sträng.
Hade man skrivit
minstrang=hej
hade ju minstrang fått värdet av en annan variabel, nämligen variabeln hej.
Bibliotek.Add " & Chattare & ", "Vit"
är fel eftersom Add förväntar sig en sträng som argument. Det får den också, men strängen den får är & Chattare &, inte värdet av Chattare.
Bibliotek.Add Chattare, "Vit"
Ska det alltså vara.
[Redigerat av emission den 20 jun 2000]
RickiMedlem sedan juni 2000373 inlägg ack så jättemycket!
------------------
Mvh Rickard
www.ricki.nu