Avatar billede jenskf4 Nybegynder
01. marts 2002 - 16:40 Der er 10 kommentarer

metode

Hej

Jeg har en masse variabler, som hedder videotitel1, videotitel2, videotitel3 osv., som jeg skal checke om de er lig "true". Det kan gøres på slave måde ved:

if Request.QueryString("videotitel1") Then ....
if Request.QueryString("videotitel2") Then ....
if Request.QueryString("videotitel3") Then ....
osv.

MEN kan man ikke lave en metode, der løbende plusser 1 til tallet, således at metoden altid vil tage variablen med et højre nummer næste gang?
Avatar billede isl19960 Nybegynder
01. marts 2002 - 17:00 #1
<%
Dim item
Dim Aryqueryvalues()
dim intitemcount

intitemcount = 0

for each item in request.querystring
redim preserve aryqueryvalues(intitemcount + 1)
aryqueryvalues(intitemcount) = request.querystring(item)
intitemcount = intitemcount + 1
Next
%>

ovenstående læser alle dele af querystring ind i et array...
Avatar billede jenskf4 Nybegynder
01. marts 2002 - 17:05 #2
Smart, men hvordan får man dem så ud igen, så jeg kan checke om det er lig "true"?
Avatar billede tsunami Nybegynder
01. marts 2002 - 17:18 #3
if (aryqueryvalues(videotitelnummer)) then
denne tekst bliver udført hvis aryqueryvalues(videotitelnummer) er true
End if

:o)
Avatar billede jenskf4 Nybegynder
01. marts 2002 - 17:18 #4
Fedt - det vil jeg prøve :-)
Avatar billede isl19960 Nybegynder
01. marts 2002 - 17:21 #5
... ellers er det for...next løkken der er tricket...

Det er står mellem 'for' og 'next' bliver kørt indtil der ikke er flere værdier i querystring.
Avatar billede jenskf4 Nybegynder
01. marts 2002 - 17:26 #6
Men jeg har mange andre typer af querystrings end "videotitelX", og de skal jo ikke smides ind i array'en. Hvordan fortæller man...

"for each item in request.querystring"

...at den kun skal hente dem af typen "videotitelX", altså "videotitel1", "videotite2", "videotitel3" osv.
Avatar billede isl19960 Nybegynder
01. marts 2002 - 17:34 #7
<%
Dim item
Dim Aryqueryvalues()
Dim intitemcount

intitemcount = 0

for each item in request.querystring
redim preserve aryqueryvalues(intitemcount + 1)
if left(item, 9)= "videotitel" then
aryqueryvalues(intitemcount) = request.querystring(item)
end if
intitemcount = intitemcount + 1
Next
%>

Så bliver der testet på de første 9 karakterer - hvis de er videotitel, bliver de føjet til array'et.
Avatar billede isl19960 Nybegynder
01. marts 2002 - 17:36 #8
Whoops - if stod lige forkert... :)

<%
Dim item
Dim Aryqueryvalues()
Dim intitemcount

intitemcount = 0

for each item in request.querystring
if left(item, 9)= "videotitel" then
redim preserve aryqueryvalues(intitemcount + 1)
aryqueryvalues(intitemcount) = request.querystring(item)
intitemcount = intitemcount + 1
end if
Next
%>
Avatar billede tsunami Nybegynder
04. marts 2002 - 15:41 #9
Det er ikke kun mig der kan sucke en gang imellem når man koder hurtigt *GG*
Avatar billede isl19960 Nybegynder
04. marts 2002 - 15:44 #10
he he
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