WebRessurs.no - Webprogrammering og ressurs innen ASP, ASP.NET, PHP, SQL, HTML, CSS, Javascript, XML, C#, VB, Flash mm.

KODE EKSEMPLER

ASP.net (199)

ASP 3.0 (111)

PHP (30)

HTML (66)

SQL (89)

CSS (46)

XML (7)

JavaScript (78)

Diverse kode (13)

ARTIKLER / RESSURSER

Programmering (22)

System og drift (15)

Trafikk og inntekt (11)

Guider og tips (22)

Nyttig lesestoff (23)

Web forum (604)

Link galleri (565)

KURS / TUTORIALS

ASP.NET kurs(5)

CSS kurs (2)

JQuery kurs (2)

FILM / MEDIA

Øk trafikken (8)

Facebook App. (4)

Microsoft CEO (6)

GRATIS SOFTWARE

Server & web

Internett & epost

Systemverktøy

Sikkerhet

Fildeling

Lyd & media

Diverse software

TJENESTER

Domenesalg

Metagenerator

Websikre farger

WebMail

ANNET

Bli medlem!

Siste innlegg

Gjestebok

Tips en venn

Kontakt oss

Forsiden

INTERNETT HASTIGHET

Enkel butikk i ASP, bruker array og session

av Øyvind A. Isaksen

Dette eksempelet viser hvordan kan lage en meget enkel nettbutikk hja ASP programmering.

Vi trenger 5 filer:

*varer-asp (array med alle varer)
*vareliste.asp (Viser alle varene + "kjøp")
*kjop_prosess.asp (Prosseserer handelen)
*handlekurv.asp (Viser hva som er kjøpt)
*slett.asp (tømmer handlekurv)

---VARER.ASP---------------------------------

<%

'Dimmer Array med varer
Dim arrVareNr(5)
arrVareNr(0)=""
arrVareNr(1)="Brød"
arrVareNr(2)="Spagetti"
arrVareNr(3)="Mel"
arrVareNr(4)="Banan"
arrVareNr(5)="Bærepose"

%>

---VARELISTE.ASP-----------------------------



<HTML>
<HEAD>
</HEAD>
<BODY>

<table border = "1">
<tr>
<td>Varenavn</td>
<td>Velg</td>
</tr>

<%
Dim i
'ubound betyr "hele innholdet", her alle variablene i Array-en.
for i = 1 to ubound(arrVareNr)
Response.Write("<tr>")
Response.Write("<td>" & arrVareNr(i) & "</td>")
Response.Write("<td><a href=""kjop_prosess.asp?varenr="&i&" "">Kjøp</a></td>")
Response.Write("</tr>")
next

%>

</table>

</BODY>
</HTML>

---KJOP_PROSESS.ASP-----------------------------

<%
VareNr=Request.QueryString("varenr")
'For å telle... Antall varer + 1
Session("vare_" & VareNr)= Session("vare_" & VareNr)+1

Response.Redirect("handlekurv.asp")
%>

---HANDLEKURV.ASP-----------------------------


<HTML>
<HEAD>
</HEAD>
<BODY>

<%
dim varInnhold, varAntall, varVarenavn, varVareNr

'Looper igjennom alle session-variablene brukeren har til nå.
For each varInnhold in Session.Contents
if (instr(varInnhold,"vare_")) then 'Kun sessions med varer!
varVareNr = Replace(varInnhold,"vare_","") 'Fjerner "_vare" før nr.
varVareNavn = arrVareNr(varVareNr) 'Finner navnet på varen ut fra varenr i arrayet.
varAntall = Session(varInnhold) 'Antall = verdin av sessionavariabelen (varInnhold)

Response.Write(varVarenavn & varAntall & "<br>")

end if
Next

%>

<p><b><a href = "slett.asp">Tøm handlekurv</a></b></p>

</BODY>
</HTML>

---SLETT.ASP-----------------------------

<%
session.Abandon
Response.Redirect("handlekurv.asp")
%>

WebRessurs.no er utviklet og drives av SoftMaker
Sett som startside: [ ]. Bokmerk denne siden: [ klikk ]. Sitemap. http://twitter.com/webressurs_no/. Antall brukersesjoner: 14120793.
Copyright WebRessurs.no © 2003 - 2018