Avatar billede s_raagaard Nybegynder
01. august 2001 - 23:40 Der er 10 kommentarer og
3 løsninger

Nulstille application object

Jeg har dette application object som lavet array over de sidste 25 bruger der er logget på.

Nu vil jeg gerne have et script der gør det muligt at nulstille application objektet, når scriptet kaldes.
Således at array\'et er tomt, men jeg kan ikke lige få det til at virke.......


If not Request(\"username\")=\"\" THEN
Application.Lock
UserArray=Application(\"UserArray\")
dim Position
if isArray(UserArray) then
Position = (Application(\"LastPosition\") + 1) mod 25
else
Dim UserArray(25)
Position=0
end if
UserArray(Position) = Request(\"name\")
Application(\"UserArray\")=UserArray
Application(\"LastPosition\")=Position
Application.UnLock
END IF


/søren
Avatar billede tmceu Praktikant
02. august 2001 - 00:19 #1
Jeg forstår ikke helt hvad det er du vil, kan du uddybe lidt...
Avatar billede stigc Nybegynder
02. august 2001 - 00:22 #2
her er dit \"script\" :)

Application.Lock
Application(\"UserArray\")=\"\"
Application(\"LastPosition\")=\"\"
Application.UnLock
Avatar billede stigc Nybegynder
02. august 2001 - 00:23 #3
tmceu  >> Flot svar du har....
Avatar billede tmceu Praktikant
02. august 2001 - 00:26 #4
stigc >> det skulle nu også have været en kommentar, men jeg nåede ikke stop knappen inden det var for sent. Men hån kan man altid bruge, en skam der ikke er flere som dig herinde
Avatar billede stigc Nybegynder
02. august 2001 - 00:27 #5
:)
Avatar billede stigc Nybegynder
02. august 2001 - 00:29 #6
det ses bare tit folk der lægger svar uden at tilbyde noget. Undskyuld hvis det var uberettiget
Avatar billede s_raagaard Nybegynder
02. august 2001 - 00:32 #7
stigc >>

Jeg får følgende fejl med dit script:

Typerne stemmer ikke overens: \'[string: \"\"]\'

Når jeg kører mit application script, efter at have kørt dit script.


og

Typerne stemmer ikke overens: \'CInt\'

Når jeg læser mit array med

<%
UserArray=Application(\"UserArray\")
if IsArray(UserArray) then
LastPosition=CInt(Application(\"LastPosition\"))
Position=LastPosition
do 
Position=(Position+1) mod 25
Response.Write(\"<br>\"& UserArray(Position))
loop until Position=LastPosition
End if
%>

/søren
Avatar billede tmceu Praktikant
02. august 2001 - 00:34 #8
stigc >> alt forladt. Jeg er forholdsvis ny på Eksperten, men kan desværre kun være enig med dig. Jeg har allerede set mange fanatiske point-jagere og i den modsatte grøft, point-lokkere som snupper altid snupper egne point.
Avatar billede stigc Nybegynder
02. august 2001 - 00:38 #9
nå, jeg troede det var en streng. Du behøver kun at nulstille postitionen:



Application.Lock
application(\"LastPosition\")=0
Application.UnLock
Avatar billede s_raagaard Nybegynder
02. august 2001 - 01:08 #10
stigc >>

Den har jeg prøvet, den gør blot at bruger nr. 25 bliver sat op som anden øverste array(1) i listen, som stadig vises....listen skal cleares helt, således at den næste bruger der måtte lokke sig på vil stå øverst.

/søren
Avatar billede zeptic Nybegynder
02. august 2001 - 09:33 #11
Det burde da være nok kun at slette brugeren der hvor LastPosistion nu peger efter en nulstilling:

Application.Lock
Application.(\"LastPosition\")=0
UserArray=Application(\"UserArray\")
UserArray(0)=\"\"
Application(\"UserArray\")=UserArray
Application.UnLock
Avatar billede zeptic Nybegynder
02. august 2001 - 09:33 #12
du erklærer i øvrigt et array med 26 elementer... Dim UserArray(24) erklærer et array med 25 elementer (UserArray(0..24))
Avatar billede runesoft Nybegynder
02. august 2001 - 09:35 #13
du skal ikke skrive hele arrayet ud nå du udskriver det, kun op til last position.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester