Φυσικά, ορίστε:
web.config<?xml version="1.0"?>
<configuration>
<appSettings/>
<connectionStrings>
<add name="productsConnectionString" connectionString="Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\products.mdf;Integrated Security=True;User Instance=True"
providerName="System.Data.SqlClient" />
</connectionStrings>
<system.web>
<compilation debug="true" strict="false" explicit="true"/>
<pages>
<namespaces>
<clear/>
<add namespace="System"/>
<add namespace="System.Collections"/>
<add namespace="System.Collections.Specialized"/>
<add namespace="System.Configuration"/>
<add namespace="System.Text"/>
<add namespace="System.Text.RegularExpressions"/>
<add namespace="System.Web"/>
<add namespace="System.Web.Caching"/>
<add namespace="System.Web.SessionState"/>
<add namespace="System.Web.Security"/>
<add namespace="System.Web.Profile"/>
<add namespace="System.Web.UI"/>
<add namespace="System.Web.UI.WebControls"/>
<add namespace="System.Web.UI.WebControls.WebParts"/>
<add namespace="System.Web.UI.HtmlControls"/>
</namespaces>
</pages>
<authentication mode="Windows"/>
</system.web>
</configuration>
cart.aspx<%@ Page debug="true" Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-7"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>Καλάθι</title>
<script runat="server">
Dim objDT As System.Data.DataTable
Dim objDR As System.Data.DataRow
Private Sub Page_Load(s As Object, e As EventArgs) Handles MyBase.Load
If Not IsPostBack Then
makeCart()
End If
End Sub
Function makeCart()
objDT = New System.Data.DataTable("Cart")
objDT.Columns.Add("ID", GetType(Integer))
objDT.Columns("ID").AutoIncrement = True
objDT.Columns("ID").AutoIncrementSeed = 1
objDT.Columns.Add("Quantity", GetType(Integer))
objDT.Columns.Add("Product", GetType(String))
objDT.Columns.Add("Cost", GetType(Decimal))
Session("Cart") = objDT
End Function
Sub AddToCart(s As Object,e As EventArgs) Handles MyBase.Load
objDT = Session("Cart")
Dim Product As String = Request.QueryString("name")
Dim Cost As Decimal = Request.QueryString("value")
Dim blnMatch As Boolean = False
For Each objDR In objDT.Rows
If objDR("Product") = Product Then
objDR("Quantity") += 1
blnMatch = True
Exit For
End If
Next
If Not blnMatch Then
objDR = objDT.NewRow
objDR("Quantity") = 1
objDR("Product") = Product
objDR("Cost") = Cost 'Decimal.Parse(Cost)
objDT.Rows.Add(objDR)
End If
Session("Cart") = objDT
dg.DataSource = objDT
dg.DataBind()
lblTotal.Text = "$" & GetItemTotal()
End Sub
Function GetItemTotal() As Decimal
Dim intCounter As Integer
Dim decRunningTotal As Decimal
For intCounter = 0 To objDT.Rows.Count - 1
objDR = objDT.Rows(intCounter)
decRunningTotal += (objDR("Cost") * objDR("Quantity"))
Next
Return decRunningTotal
End Function
Sub Delete_Item(s As Object,e As DataGridCommandEventArgs)
objDT = Session("Cart")
objDT.Rows(e.Item.ItemIndex).Delete()
Session("cart") = objDT
dg.DataSource = objDT
dg.DataBind()
lblTotal.Text = "$" & GetItemTotal()
End Sub
</script>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:DataGrid ID="dg" runat="server" OnDeleteCommand="Delete_item">
<columns>
<asp:buttoncolumn ButtonType="Linkbutton" CommandName="delete" Text="remove item" />
</columns>
</asp:DataGrid>
<br />
<br />
Total:
<asp:Label ID="lblTotal" runat="server" />
<a href="Default.aspx">
<br />
Default.aspx</div>
</form>
</body>
</html>Αυτό είναι ένα καλάθι που βρήκα στο ίντερνετ και με λίγες τροποποίησεις μπορεί να το φέρει ο καθένας στα μέτρα του.
Από την σελίδα default.aspx στέλνονται τα δεδομένα στη σελίδα cart.aspx, το πρόβλημα είναι ότι όταν γυρνάω πίσω στην default.aspx και στέλνω κάτι καινούριο τότε στο καλάθι μπαίνει μόνο το καινούριο προϊόν,προφανώς για κάποιο λόγο όταν φεύγω από τη σελίδα το session διαγράφεται,εγώ θέλω να μην διαγράφεται έτσι ώστε όταν ξανατρέχει η σελίδα απλά να προστήθεται το καινούριο προϊόν στο καλάθι.
Υ.Γ. αυτό με το application δεν ξέρω πως γίνεται, είχα δοκιμάσει να αντικαταστήσω όπου session->application αλλά το ίδιο αποτέλεσμα είχα.
"...κάπου μακριά οι άνθρωποι θα νομίζουν πως είναι ακόμα ζωντανοί..."