Hej til alle.
Jeg er ved at lave et script som bevarer brugerens indtastninger
under besøget på webstedet.
Jeg har valgt at bruge session-opjektet og bruger koden nedenfor.
- men dataene bevares ikke. Startes der en ny session eller hvad
går der galt?- på forhånd tak
<%
' SCRIPTET SKAL HUSKE HVAD BRUGEREN HAR VALG VIA INPUT-'FELTER
(LIDT LIGESOM EN INDKØBSKURV)
const cart_columns = 4' ERKLÆRING AF KONSTANT SOM
' ER ANTALLET AF KOLONNER I ARRAY
DIM cartarray()' DYNAMISK ARRAY DEFINERES
redim cartarray (cart_columns,10)' array REDEFINERES HER
cartmaxused = -1' INGEN TING I ARRAY ENDNU
session ("cartarray")=cartarray ' array til sessionvariabel
session ("cartmaxused")=cartmaxused ' se ovenfor
' INDTASTNINGSFELTER I HTML:
%>
' scriptet peger på sig selv via action= "blablabla"
' resultatet af indtastningen vises på same side som
indtastningen
'foregår-virker fint men muligvis findes problemet med bevarelse
af
' data i array her
<form method="POST"
action="<%REQUEST.SERVERVARIABLES("SCRIPT_NAME")%>">
<input type="Text" value="" name="varenavn" >
<input type="Text" value="" name="varepris" >
<input type="Text" value="" name="omregntal" >
<input type="Text" value="" name="stk" >
<input type="Text" value="" name="farve" >
<input type="submit" value="send">
<%
' INDSÆTTELSE AF DATA I ARRAY FRA FORMFELTER
' CARTITEM GIVER RÆKKEN (ROW) I ARRAY
cartitem = addcartelement()' FUNKTIONEN SOM FINDER
'NÆSTE LEDIGE PLADS (RÆKKE) KALDES
cartarray(0,cartitem)= request.form("varenavn")
cartarray(1,cartitem)=request.form("varepris")
cartarray(2,cartitem)=request.form("omregntal")
cartarray(3,cartitem)=request.form("stk")
cartarray(4,cartitem)=request.form("farve")
Function addcartelement() ' FINDER NÆSTE LEDIGE PLADS I ARRAY
' og bevarer gamle data
if cartmaxused >= ubound(cartarray,2) then
redim preserve cartarray(cart_columns,cartmaxused + 10)
end if
cartmaxused = cartmaxused +1
addcartelement = cartmaxused
end function
dim rowloop, colonneloop ' ARRAY UDSKRIVES SOM
' en nested for - next løkke
for rowloop=0 to ubound(cartarray,2)
for colonneloop=0 to ubound(cartarray,1)
response.write(cartarray(colonneloop, rowloop) & "<br>")
next 'colonneloop
next 'rowloop
%>
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials