Bài tập Thực hành Thương mại điện tử
Bài tập thực hành số 5
+ Tổng số buổi thực hành là 1 buổi, mỗi buổi 2 tiết
+ Hình thức báo cáo sau các buổi thực hành: Sinh viên làm bài trên máy và nộp cho giáo
viên hướng dẫn ở buổi thứ 2, trong thư mục mang tên sinh viên
+ Nghiêm cấm mọi sao chép bài làm của nhau, nếu bị phát hiện sẽ được KHÔNG được thi
Bài số 1.
Ôn tập:
- Cài đặt webserver và kiểm tra IIS.
- Truyền dữ liệu từ form
- Truyền dữ liệu từ CSDL
- Tạo tập tin danh mục sản phẩm
- Tạo tập tin sản phẩm
Bài số 2.
Mỗi khi người mua muốn đưa sản phẩm vào giỏ hàng (“add item to Cart”) họ sẽ chuyển đến
“addprod.asp”
Tập tin “addprod.asp”
Thêm sản phẩm vào giỏ hàng:
<%@ LANGUAGE = "VBScript" %>
<! #include file="db.inc" >
<! #include file="config.inc" >
<! #include file="functions.inc" >
<%
productid=request.querystring("productid")
stage=request.form("stage")
if stage="" or stage=null then
else
'thêm vào giỏ hàng
'khởi tạo giỏ hàng
If IsArray(Session("cart")) = false Then
Dim acart(19,1)
</head>
<body bgcolor="<%= bgcolor %>" topmargin="0" leftmargin="0" marginwidth="0"
marginheight="0" text="<%= text %>" >
<font face="arial">
<% header %>
<table>
<td valign=top align=right>
<font face="helvetica" size="3" ><B><%= rsprod("catname") %></B></font>
<br>
<%
'Hiển thị danh sách các sản phẩm trong loại
if not rscatlist.eof then
rscatlist.movefirst
while not rscatlist.eof
%>
<font size="1" face="helvetica" >
<a href="product.asp?productid=<%= rscatlist("productid")%>"><
%=rscatlist("name")%></a>
<br>
<%
rscatlist.movenext
wend
end if
%>
</td>
<td>
<% = rsprod("image") %>
</td>
<%
if stage="" or stage=null then
</SELECT>
<input type="hidden" name="stage" value="2">
<br><br>
<input type=image </form>
</td>
<%
else
%>
<td width=180 align="left">
<font size="3" face="helvetica" color="<%= text %>">
<b><%= rsprod("name") %></b>
<br>
<table width=180 border=0>
<td align="left">
<font size="2" face="helvetica" >
<b>Price:</b>
</td>
<td align="right">
<font size="2" face="helvetica" color="<%= text %>">
<%= cursymbol & formatnumber(rsprod("price")) %>
</td>
</table>
<br>
<% if incart then %>
<font size="1">
<%= request.form("qty") %>
chiếc đã được thêm vào giỏ hàng của bạn. Nếu muốn mua thêm sản phẩm này <a
href="addprod.asp?productid=<%=productid%>">hãy bấm vào đây</a>.
<br><br>
Để tiếp tục mua sắm, hãy chọn danh mục phía trái hoặc phía trên.
hàng.
Copyright: Tài liệu đại học ©