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.

Join the forum, it's quick and easy

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.
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Đơn vị cung cấp sản phẩm giá cạnh tranh với nhiều loại mặt hàng.Là đơn vị tài trợ hàng đầu của Forum. Liên kết: https://thanhnguyenstore.com/
Latest topics
Lắp máy chiếu phòng họp văn phòng tại Hà NộiWed May 24, 2023 3:00 pmmaychieumanchieu
Cách chọn màn chiếu treo tường phù hợp nhu cầuSat May 06, 2023 4:22 pmmaychieumanchieu
Cho thuê máy chiếu tại Hà Nội giá rẻ uy tínSun Apr 16, 2023 4:36 pmmaychieumanchieu
Dịch vụ cho thuê máy chiếu loa mic tại Hà NộiFri Mar 24, 2023 3:03 pmmaychieumanchieu
Địa chỉ bán máy chiếu cũ giá rẻ tại Hà NộiMon Mar 20, 2023 5:43 pmmaychieumanchieu
Dịch vụ cho thuê máy chiếu tại Hà NộiSun Mar 12, 2023 3:43 pmmaychieumanchieu
Sửa chữa máy chiếu uy tín tại Hà NộiMon Feb 27, 2023 5:16 pmmaychieumanchieu
Máy chiếu cũ giá rẻ từ 2 triệu tại Hà NộiFri Feb 17, 2023 5:28 pmmaychieumanchieu
Cho thuê máy chiếu hội thảo tại Hà NộiWed Feb 15, 2023 11:06 ammaychieumanchieu
Sửa máy chiếu tại Cầu Giấy Sat Feb 04, 2023 5:06 pmmaychieumanchieu
Tạo thiệp giáng sinh gửi tặng bạn bèWed Nov 09, 2022 7:16 amisabellanguyen
CÔNG BỐ WEBSITE THANH NGUYÊN STOREWed Apr 06, 2022 10:21 pmThanh Nguyên
Thích Bài viết này
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

View the whole list


Go down
Thanh Nguyên
Thanh Nguyên
Admin
Admin
Tổng số bài gửi : 527
Được Cảm Ơn : 59
Join date : 11/10/2012
Age : 31
Đến từ : Bà Rịa-Vũng Tàu
https://thanhnguyenstore.com/

Quản Lý Trang Giỏ Hàng (VB.NET + Access Database) Empty 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

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

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
Về Đầu Trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết