INTECH
Chào Mừng Bạn Đã Ghé Thăm Diễn Đàn Intech.forumvi.com của chúng tôi.

Mong rằng tại đây bạn sẽ nhận được những thông tin hữu ích,, và đáp ứng được nhu cầu của bạn.

Tuy ít nhiều chúng tôi vẫn còn khá nhiều thiếu sót về nội dung và hình thức, mong nhận được ý kiến đóng góp từ các bạn để chúng tôi tự hoàn thiện.

Hiện tại, bạn có thể đăng nhập Intech thông qua Open ID Facebook, hết sức nhanh chóng và tiện lợi.

Xin lưu ý: Thông tin bạn đăng kí về Giới tính và Ngày sinh, chúng tôi khảo sát nhằm thống kê và kịp gửi lời chúc mừng đến các bạn trong các dịp lễ, sinh hoạt,...trong Diễn Đàn.

Quyền Lợi: Được tham gia giao lưu, chia sẻ kinh nghiệm cùng các thành viên, được tải các tài liệu, phần mềm hỗ trợ cần thiết,...

Các đường Link chỉ sử dụng được khi đã đăng nhập.

Xin Cảm Ơn và gửi đến các bạn lời chào Thân Ái từ Intech.forumvi.com.



 
Trang ChínhPortalTìm kiếmĐăng kýĐăng Nhập
Mua thẻ Điện thoại, thẻ Game
Latest topics
» Địa chỉ công ty cho thuê máy chiếu giá rẻ uy tín tại Hà Nội
Tue Apr 17, 2018 9:53 am by thueamthanh

»  Bán phụ kiện máy chiếu, màn chiếu giá rẻ chất lượng tốt 024 3918 5666
Wed Apr 11, 2018 6:24 pm by maychieumanchieu

» Công ty bán màn chiếu giá rẻ lắp đặt tận nơi, phụ kiện máy chiếu chính hãng
Fri Apr 06, 2018 10:11 am by maychieumanchieu

» Trung tâm sửa máy chiếu uy tín chuyên nghiệp, thay bóng đèn máy chiếu các hãng
Thu Apr 05, 2018 2:46 pm by maychieumanchieu

» Báo giá sửa chữa máy chiếu, thay bóng đèn, linh kiện máy chiếu 024 3918 5666
Tue Mar 20, 2018 3:17 pm by maychieumanchieu

» Tạo thiệp giáng sinh gửi tặng bạn bè
Mon Dec 19, 2016 8:50 pm by hohoangnhat1108

» Bàn chải du lịch
Thu Jan 07, 2016 4:21 am by zxc1234

» Màn chiếu giá rẻ tại Siêu thị máy chiếu MINH PHÁT
Mon Jan 04, 2016 1:55 pm by maychieumanchieu

» Tư vấn mua máy chiếu Projector trọn bộ lớp học giảng dạy
Tue Jul 14, 2015 11:09 am by maychieumanchieu

» Địa chỉ sửa chữa máy chiếu Projector uy tín lấy ngay
Thu Jul 09, 2015 11:43 am by maychieumanchieu

» Cửa hàng mua bán máy chiếu cũ, máy chiếu thanh lý giá cao
Sat Jul 04, 2015 2:09 pm by maychieumanchieu

» [Đột Kích 2] Ngày Vàng cuối tuần cùng báu vật lạ
Fri May 29, 2015 11:41 pm by maisao

» MU EX 501 ra mắt máy chủ mới EX501 - Chính thức Open lúc 10h 30/05/2015
Wed May 27, 2015 8:19 pm by Dolce

» MU Mới ra MUPHOXUA.COM - Server QUYỀN LỰC Season 2 - Alpha 28/5, Open 1/6
Wed May 27, 2015 3:39 pm by fury

» [Đột Kích 2] Ngày điều kiện cần để rước AK-47 vĩnh viễn về nhà
Tue May 26, 2015 12:39 pm by maisao

» [Đột kích 2.0] Bạn có đủ đô để đối mặt
Mon May 25, 2015 11:42 pm by maisao

» Đột Kích phá vỡ qui tắc 8 đấu 8 với chế độ chơi mới cực ‘cân não’
Mon May 25, 2015 8:55 pm by maisao

» Tuần lễ Thử thách Special Event - CF 2.0
Mon May 25, 2015 4:10 pm by maisao

» Trân Sunny - Mang nắng tới HalloStar
Sun May 24, 2015 4:45 pm by maisao

» Huyền Lazy - Lê la từ quán này tới quán khác
Sat May 23, 2015 3:40 pm by maisao

» Địa chỉ sửa điện thoại thay màn hình uy tín tại Hà Nội
Sat May 23, 2015 11:01 am by maychieumanchieu

» Wendy - Đẳng cấp là mãi mãi
Fri May 22, 2015 2:53 am by maisao

» Hani Hân Hân - Idol mới tại HalloStar
Fri May 22, 2015 1:20 am by maisao

» Code hay Cho Chatbox
Thu May 21, 2015 9:59 pm by naruto101

» ................................
Thu May 21, 2015 9:21 pm by migpi

» [Đột kích]Tuần lễ Thử thách Special Event
Thu May 21, 2015 8:50 pm by maisao

» [Đột Kích 2]Đại Chiến GC – Tuần thứ 2 nóng dần đều
Thu May 21, 2015 4:26 pm by maisao

» [Update 1184] Chiến trường Đối kháng tháng 5
Thu May 21, 2015 3:39 pm by maisao

» Chuyên cung cấp lắp đặt máy chiếu văn phòng, phòng họp hội trường
Thu May 21, 2015 10:59 am by maychieumanchieu

» Công ty bán màn chiếu, phụ kiện máy chiếu giá rẻ
Thu May 21, 2015 10:04 am by maychieumanchieu

Calendar
Admin

Admin

Thích Bài viết này
Most Viewed Topics
Plant vs Zombies Crack và Hack
Sửa Lỗi Không Like, Comment...facebook
Khắc phục "The command prompt has been disabled by your administrator"
List bài hát Karaoke hay được nhiều người yêu thích
HP Probook 4430s trọn Bộ Driver
Struct-Quản Lí Sinh Viên.
Kết Nối CSDL và Winform trong VB.NET 2008
Phần Mềm Lịch Công Giáo 1/2013
Hướng Dẫn Cài Đặt Tubor C++ trên Win7 32bit
Facebook: Trang Trí Profile bằng ứng dụng Social Extras
Intech facebook welcome
Keywords
Lượt Truy Cập
Bộ Đếm
Thống Kê
Hiện có 2 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 2 Khách viếng thăm

Không

Số người truy cập cùng lúc nhiều nhất là 61 người, vào ngày Sat Aug 26, 2017 8:58 pm

Share | .
 

 Quản Lý Trang Giỏ Hàng (VB.NET + Access Database)

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Thanh Nguyên
Admin
Admin
avatar

Tổng số bài gửi : 526
Được Cảm Ơn : 59
Join date : 11/10/2012
Age : 25
Đến từ : Bà Rịa-Vũng Tàu

Bài gửiTiêu đề: Quản Lý Trang Giỏ Hàng (VB.NET + Access Database)   Tue Feb 26, 2013 5:48 pm

Trong các website shopping online, ta thường dùng một cấu trúc dữ liệu để lưu trữ những hàng hóa mà người dùng chọn mua trong phiên của họ, gọi là giỏ hàng (tương tự như giỏ hàng khi chúng ta đi mua hàng trong siêu thị). Về dữ liệu, giỏ hàng lưu trữ danh sách những hàng hóa người dùng chọn mua bao gồm những thông tin như ProductID, ProductName, ProductCategory, Quantity, Price, …(những thông tin này có trong bảng Product và Category trong DB)

Để mô phỏng giỏ hàng, ta có thể dùng 1 số cấu trúc như Dictionary hoặc mảng 2 chiều.
Giỏ hàng được lưu trong 1 biến kiểu session để theo dõi quá trình khách hàng mua hàng trong phiên


Sau đây chúng ta xem qua cách xây dựng một giỏ hàng bằng mảng 2 chiều.

Giả thiết thông tin về Product bao gồm (ProductID, ProductName,ProductCategory, Quantity, Price, TotalPrice), và giỏ hàng chứa được tối đa
15 sản phẩm. Vậy ta có thể dùng mảng 2 chiều kích thước (6,15) để mô phỏng giỏ hàng. Mảng này được lưu theo kiểu biến session để có tác dụng trong toàn phiên của người dùng. Ta cần thêm 1 biến Count để đếm số sản phẩm hiện có trong giỏ hàng. Biến này cũng có kiểu session.

Các hàm thao tác:

AddProductToCart(ProductID): Thêm 1 sản phẩm vào giỏ hàng, nếu sản phẩm đã có thì tăng số lượng thêm 1
UpdateQuantity(ProductID,Quantity): Cập nhật số lượng của 1 sản phẩm trong giỏ hàng
RemoveProductFromCart(ProductID): Xóa 1 sản phẩm khỏi giỏ hàng
RemoveAll: Xóa rỗng giỏ hàng
ListProduct: Liệt kê các mặt hàng trong giỏ hàng

File Global.asa

Code:
<Script language=VBScript  RUNAT=Server>
SUB Session_OnStart
ReDim arrProduct(6,15) ‘mảng 2 chiều  mô phỏng giỏ hàng
Session("arrProduct")=arrProduct ‘giỏ hàng chứa trong  session
Session("Count")=0 ‘số sản phẩm hiện có trong giỏ
END  SUB
</Script>

ShoppingCart.asp

Code:
<%
'thêm sản phẩm vào giỏ hàng, nếu đã  có thì tăng số lượng lên 1

Sub  AddProductToCart(ProductID)
arrProduct=Session("ArrProduct")
Count=Session("Count")
ProductExist=false  ‘biến này dùng đánh dấu xem hàng đã có
trong giỏ chưa
For i=1 to  Count
if arrProduct(1,i)=ProductID then
ProductExist=true ‘hàng đã có  trong giỏ
arrProduct(4,i)=arrProduct(4,i)+1 ‘tăng số lượng lên 1
exit  For
End if
Next
If not ProductExist then
If Count<15  then
Count=Count+1
‘dùng Recordset lấy các thông tin ProductName,  CategoryName,
‘ Price từ  DB
‘…
arrProduct(1,Count)=ProductID
arrProduct(2,Count)=ProductName
arrProduct(3,Count)=CategoryName
arrProduct(4,Count)=1
arrProduct(5,Count)=CLng(Price)
arrProduct(6,Count)=0
End  if
session("ArrProduct")=arrProduct
session("Count")=Count
end  sub
Sub RemoveProductFromCart(ProductID) 'xoa san pham trong gio  hang
ArrProduct=Session("ArrProduct")
Count=Session("Count")
ProductExist=false
For  i=1 to Count
if arrProduct(1,i)=ProductID then ‘tìm thấy hàng cần
xóa ở vị  trí i
ProductExist=true
exit For
End if
Next
If ProductExist  then
Count=Count-1
For x=1 to 6 ‘xóa rỗng mặt hàng  i
arrProduct(x,i)=""
Next
n=i
while n<15 ‘dồn mặt hàng i+1 về i  bắt đầu từ mặt hàng i đến cuối
giỏ
For x=1 to  6
arrProduct(x,n)=ArrProduct(x,n+1)
arrProduct(x,n+1)=""
Next
n=n+1
Wend
End  if
Session("ArrProduct")=ArrProduct
Session("Count")=Count
end  Sub
Sub RemoveAll 'xoa tat ca cac mat hang trong gio  hang
session("ArrProduct")=""
session("ArrCount")=""
end Sub
Sub  UpdateQuantity(ProductID,Quantity) ‘cap nhat lai so luong 1 san pham
da co  trong gio  hang
ArrProduct=Session("ArrProduct")
Count=Session("Count")
For i=1 to  Count
if arrProduct(1,i)=ProductID then
arrProduct(4,i)=Quantity
exit  For
End  if
Next
Session("ArrProduct")=ArrProduct
Session("Count")=Count
end  Sub
%>

SinhvienIT

_________________
Cộng Đồng It Vũng Tàu
Kinh Nghiệm-Học Hỏi-Chia Sẻ

[You must be registered and logged in to see this link.]
Về Đầu Trang Go down
http://www.jndev.cf
 

Quản Lý Trang Giỏ Hàng (VB.NET + Access Database)

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
 :: Ngôn Ngữ Lập trình :: ASP.NET-