| | |
| |
vbscript active server pages ASP vbscript SQL database informix oracle SQL Server Perl CGI Delphi PHP source code code sample samples program CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
Array session problem |
|
From: |
kuanhoong |
|
Date: |
8/3/2000 10:06:13 AM |
|
IP: |
161.142.78.83 |
ASP code page 1
===============
<%
Dim prodid, quantity, arrCart, edagangItem
prodid = Request.Form("fproductid")
quantity = Request.Form("fquantity")
arrCart=Session("bakul")
edagangItem = Session("cartItem")
If edagangItem = "" Then
Response.Redirect "http://127.0.0.1/edagang/error.asp?msg=" &
Server.URLEncode ("Sila membenarkan cookie pada pelayar anda untuk berurusan
e-dagang.")
End If
If prodid <> "" Then
If edagangItem < maxCartItems Then
edagangItem = edagangItem + 1
End If
Session("cartItem") = edagangItem
Dim rsItem
Set rsItem = Server.CreateObject("ADODB.Recordset")
rsItem.Open "products", dbc, adOpenForwardOnly,adLockReadOnly,adCmdTable
rsItem.Filter = "catalogID = " & prodid
If Not rsItem.EOF Then
arrCart(cProductid,edagangItem) = rsItem("catID")
arrCart(cProductCode,edagangItem) = rsItem("kod")
arrCart(cProductname,edagangItem) = rsItem("name")
arrCart(cQuantity,edagangItem) = CInt(quantity)
arrCart(cUnitPrice,edagangItem) = rsItem("price")
Session("bakul") = arrCart
rsItem.Close
dbc.Close
End If
Else
Dim strAction
strAction = UCase(Left(Request.Form("action"),5))
Select Case strAction
case "SAMBU"
response.redirect "http://127.0.0.1/edagang/edagang.asp"
Case "HAPUS"
response.redirect "http://127.0.0.1/edagang/hapus.asp"
Case "SIAP "
Response.Redirect "http://127.0.0. |
|
|
|
|
|
|
