Hướng phát triển của đề tà

- Cho phép khách hàng mua và thanh toán trực tiếp qua mạng. - Hỗ trợ thực hiện in ấn trên Web.

- Xây dựng hệ thống cho phép công ty mua hàng trực tiếp qua mạng. - Hỗ trợ nhiều hình thức thanh toán.

- Phát triển phục vụ mua bán trực tuyến trên mạng thanh toán bằng tất cả các loại thẻ tín dụng.

- Bảo mật hệ thống.

Đề tài: Xây dựng Website bán hàng qua mạng

KẾT LUẬN

Sau một thời gian tìm hiểu tại Công ty TNHH Đại Cát, xem những trang Web bán hàng, đồng thời tham khảo thêm những tài liệu thiết kế Web và thương mại điện tử đề tài đã được thực hiện tương đối hoàn thiện. Đề tài này đã tập trung được vào những khía cạnh sau :

- Nghiên cứu lý thuyết về thương mại điện tử.

- Ứng dụng những lý thuyết học được tại trường lớp cũng như những kiến thức thực tiễn về thương mại để xây dựng mô hình kinh doanh tương đối mới hiện rất được quan tâm ở nước ta.

- Đưa ra một số giải pháp hoàn thiện hơn trong công tác quản lý cửa hàng còn khá lạc hậu ở nước ta hiện nay.

- Tạo ra một môi trường thân thiện giữa khách hàng và chủ cửa hàng thông qua giao diện người dùng (trang web) trên mạng Internet.

- Tạo được độ bảo mật nhất định về việc truyền dữ liệu cũng như lưu trữ dữ liệu trên mạng Internet.

Vì thời gian nghiên cứu không nhiều, điều kiện không cho phép và khả năng còn nhiều hạn chế nên kết quả thu được còn nhiều thiếu sót, như : thống kê, thanh toán, phân quyền truy cập, …

Đề tài: Xây dựng Website bán hàng qua mạng

PHỤ LỤC MÃ LỆNH CHƯƠNG TRÌNH a. Mã lệnh trang “Trang chủ” <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>    <%Session.Timeout=30 Session.CodePage=65001%> <HTML> <HEAD>

<TITLE>Dai Cat company, Ltd - Mobile ShopOnline</TITLE>

function openpopup(url,status) {

popupWin = window.open(url,'new_page',status);

Đề tài: Xây dựng Website bán hàng qua mạng

} function ltrim(s) { return s.replace( /^\s*/, "" ); } function rtrim(s) { return s.replace( /\s*$/, "" ); } function trim ( s ) { return rtrim(ltrim(s)); } function isemail(s) { var str="abcdefghikjlmnopqrstuvwxyz-@._0123456789"; s=trim(s); if (s=="") return false;

if(s.indexOf(" ")>0) return false; if(s.indexOf("@")==-1) return false; //if (s.indexOf(".")==-1) return false; if (s.indexOf("..")!=-1) return false;

if (s.indexOf("@")!=s.lastIndexOf("@")) return false; if (s.lastIndexOf(".")==s.length-1) return false;

for(i=0;i<s.length;i++) if(str.indexOf(s.charAt(i))==-1) return false; return true;

}

function checkmail() {

Đề tài: Xây dựng Website bán hàng qua mạng

if (trim(document.frmMailList.txtName.value)=="") { alert("Ban chua nhap Ten.");

document.frmMailList.txtName.focus(); return false; (adsbygoogle = window.adsbygoogle || []).push({});

}

if (!isemail(document.frmMailList.txtMail.value)) { alert("Dia chi E-Mail khong hop le.");

document.frmMailList.txtMail.focus(); return false; } return true; } </SCRIPT> </HEAD>

Đề tài: Xây dựng Website bán hàng qua mạng

<TD WIDTH="60" HEIGHT="26"

BACKGROUND="Images/top1.gif" CLASS="topBar"> Trang chủ</TD> <TD WIDTH="26" HEIGHT="26"><IMG

BORDER="0" WIDTH="26" HEIGHT="26" SRC="Images/top2.gif"></TD> <TD WIDTH="338" HEIGHT="26"

BACKGROUND="Images/top3.gif"> </TD>

<TD WIDTH="5" HEIGHT="26"><IMG

BORDER="0" WIDTH="5" HEIGHT="26" SRC="Images/top4.gif"></TD></TR> <TR><TD COLSPAN="5">

<TD WIDTH="5"

BACKGROUND="Images/blank.gif"><IMG BORDER="0" WIDTH="5" HEIGHT="5" SRC="Images/blank.gif"></TD>

<P align="center" style=" font- family:Verdana, Arial, Helvetica, sans-serif; font-size:15; font-weight:bolder; color:#AE0000">Chúc quý khách một năm mới An khang và Thịnh vượng</P>

<P align="justify"

class="NormalText">   Trong năm mới 2005, chúng tôi sẽ bắt đầu đưa vào sử dụng hệ thống mua bán Điện thoại di động online trên website <A

Đề tài: Xây dựng Website bán hàng qua mạng (adsbygoogle = window.adsbygoogle || []).push({});

href="http://www.daicat.net" title="Dai Cat Mobile ShopOnline" class="SmallNewsLink">http://www.daicat.net</A>.</P>

<P align="justify"

class="NormalText">   Với hệ thống này, quý khách hàng sẽ không phải đến tạn Công ty của chúng tôi để mua hàng mà có thể tham quan và đặt hàng ngay trên chiếc máy tính cá nhân của mình. <STRONG>Hy vọng hình thức kinh doanh mới này sẽ đem lại sự tiện dụng cho quý khách.</STRONG></P>

</TD>

<TD WIDTH="5"

BACKGROUND="Images/blank.gif"><IMG BORDER="0" WIDTH="5" HEIGHT="5" SRC="Images/blank.gif"></TD>

<TD WIDTH="1"

BACKGROUND="Images/dot.gif"><IMG BORDER="0" WIDTH="1" HEIGHT="1" SRC="Images/dot.gif"></TD></TR>

<TD WIDTH="432" HEIGHT="5" COLSPAN="3"><IMG BORDER="0" WIDTH="5" HEIGHT="5"

SRC="Images/blank.gif"></TD>

<TD WIDTH="1"

BACKGROUND="Images/dot.gif"><IMG BORDER="0" WIDTH="1" HEIGHT="1" SRC="Images/got.gif"></TD></TR>

</TABLE> </TD></TR>

</TABLE>

Đề tài: Xây dựng Website bán hàng qua mạng

<% Dim objAdv

Dim strNewProduct1, strNewProduct2

Set objAdv=Server.CreateObject("MSWC.Adrotator") objAdv.Border=0 strNewProduct1=LCase(objAdv.GetAdvertisement("NewProduct1.txt")) strNewProduct1=Left(strNewProduct1, Instr(1,strNewProduct1,"&")-1) strNewProduct1=Mid(strNewProduct1,InStr(1,strNewProduct1,"url=") +Len("url")+1) strNewProduct2=LCase(objAdv.GetAdvertisement("NewProduct2.txt")) strNewProduct2=Left(strNewProduct2, Instr(1,strNewProduct2,"&")-1) strNewProduct2=Mid(strNewProduct2,InStr(1,strNewProduct2,"url=") +Len("url")+1) %>

<TD WIDTH="90" HEIGHT="26"

BACKGROUND="Images/top1.gif" CLASS="topBar"> Sản phẩm mới</TD>

Đề tài: Xây dựng Website bán hàng qua mạng

<TD WIDTH="26" HEIGHT="26"><IMG

BORDER="0" WIDTH="26" HEIGHT="26" SRC="Images/top2.gif"></TD> <TD WIDTH="308" HEIGHT="26"

BACKGROUND="Images/top3.gif"> </TD> (adsbygoogle = window.adsbygoogle || []).push({});

<TD WIDTH="5" HEIGHT="26"><IMG

BORDER="0" WIDTH="5" HEIGHT="26" SRC="Images/top4.gif"></TD></TR> <TR><TD COLSPAN="5">

<TR><TD WIDTH="1"

BACKGROUND="Images/DOT.gif"><IMG BORDER="0" WIDTH="1" HEIGHT="1" SRC="Images/DOT.gif"></TD> <TD WIDTH="434" ALIGN="CENTER"> <% strSQL="SELECT SanPhamID, " strSQL=strSQL & "NhomID, " strSQL=strSQL & "TenSanPham, " strSQL=strSQL & "KichThuoc, " strSQL=strSQL & "TrongLuong, " strSQL=strSQL & "BaoHanh, " strSQL=strSQL & "GiaBan, " strSQL=strSQL & "GiamGia, " strSQL=strSQL & "AnhMinhHoa " strSQL=strSQL & "FROM tblSanPham " strSQL=strSQL & "WHERE SanPhamID In (" & strNewProduct1 & ", " & strNewProduct2 & ");"

Reco.Open strSQL, Conn, adOpenForwardOnly, adLockReadOnly%>

Đề tài: Xây dựng Website bán hàng qua mạng

<TABLE BORDER="0" BGCOLOR="#BDD8F2" CELLPADDING="3"

CELLSPACING="1" WIDTH="100%">

</TD></TR> <TR><TD BGCOLOR="#FFFFFF" ALIGN="CENTER" HEIGHT="257" WIDTH="200"><A HREF="ShowItem.asp?ID=<%=Reco("SanPhamID")%>">

<IMG ALT="Xem chi tiết" BORDER="0" SRC="Images/Products/<

%=Reco("AnhMinhHoa")%>">

</A></TD></TR>

<TR><TD BGCOLOR="#FFFFFF" CLASS="NormalText">Kích thước: <

%=Reco("KichThuoc")%></TD></TR>

<TR><TD BGCOLOR="#FFFFFF" CLASS="NormalText">Trọng lượng: <

%=Reco("TrongLuong")%></TD></TR>

<TR><TD BGCOLOR="#FFFFFF" CLASS="NormalText">Bảo hành: <

%=Reco("BaoHanh")%></TD></TR>

<TR><TD BGCOLOR="#FFFFFF" CLASS="NormalText">Giá bán: 

Đề tài: Xây dựng Website bán hàng qua mạng

<% If Reco("GiamGia")<>0 Then

OUT("<SPAN CLASS=""Discount"">" & FixCurrency(Reco("GiaBan")) & " VNĐ</SPAN><BR>")

OUT("<FONT COLOR=""#FFFFFF"">Giá bán:  </FONT>")

OUT("<FONT CLASS=""Price"">" & FixCurrency(Reco("GiaBan")- Reco("GiamGia")) & " VND</FONT>")

Else (adsbygoogle = window.adsbygoogle || []).push({});

OUT("<FONT CLASS=""Price"">" & FixCurrency(Reco("GiaBan")) & " VNĐ</FONT><BR> ")

End If%> </TD></TR> <TR><TD BGCOLOR="#FFFFFF" ALIGN="CENTER" VALIGN="MIDDLE">

<A HREF="AddToCart.asp?ID=<%=Reco("SanPhamID")%>&CID=<

%=Reco("NhomID")%>"><IMG BORDER="0" HEIGHT="19" WIDTH="94" SRC="Images/AddToCart.gif"></A>  

</TD></TR> </TABLE>

</TD><TD WIDTH="50%">

<% Reco.MoveNext%>

Đề tài: Xây dựng Website bán hàng qua mạng

<TABLE BORDER="0" BGCOLOR="#BDD8F2" CELLPADDING="3"

CELLSPACING="1" WIDTH="100%">

</TD></TR> <TR><TD BGCOLOR="#FFFFFF" ALIGN="CENTER" HEIGHT="257" WIDTH="190"><A HREF="ShowItem.asp?ID=<%=Reco("SanPhamID")%>">

<IMG ALT="Xem chi tiết" BORDER="0" SRC="Images/Products/<

%=Reco("AnhMinhHoa")%>">

</A></TD></TR>

<TR><TD BGCOLOR="#FFFFFF" CLASS="NormalText">Kích thước: <

%=Reco("KichThuoc")%></TD></TR>

<TR><TD BGCOLOR="#FFFFFF" CLASS="NormalText">Trọng lượng: <

%=Reco("TrongLuong")%></TD></TR>

<TR><TD BGCOLOR="#FFFFFF" CLASS="NormalText">Bảo hành: <

%=Reco("BaoHanh")%></TD></TR>

<TR><TD BGCOLOR="#FFFFFF" CLASS="NormalText">Giá bán: 

<% If

Reco("GiamGia")<>0 Then

OUT("<SPAN CLASS=""Discount"">" & FixCurrency(Reco("GiaBan")) & " VNĐ</SPAN><BR>")

Đề tài: Xây dựng Website bán hàng qua mạng

OUT("<FONT COLOR=""#FFFFFF"">Giá bán:  </FONT>")

OUT("<FONT CLASS=""Price"">" & FixCurrency(Reco("GiaBan")- Reco("GiamGia")) & " VND</FONT>") (adsbygoogle = window.adsbygoogle || []).push({});

Else

OUT("<FONT CLASS=""Price"">" & FixCurrency(Reco("GiaBan")) & " VNĐ</FONT><BR> ")

End If%> </TD></TR> <TR><TD BGCOLOR="#FFFFFF" ALIGN="CENTER" VALIGN="MIDDLE">

<A HREF="AddToCart.asp?ID=<%=Reco("SanPhamID")%>&CID=<

%=Reco("NhomID")%>"><IMG BORDER="0" HEIGHT="19" WIDTH="94" SRC="Images/AddToCart.gif"></A>  

</TD></TR> <% Reco.Close%> </TABLE> </TD></TR> </TABLE> </TD> <TD WIDTH="1"

BACKGROUND="Images/DOT.gif"><IMG BORDER="0" WIDTH="1" HEIGHT="1" SRC="Images/DOT.gif"></TD></TR>

Đề tài: Xây dựng Website bán hàng qua mạng

<TR><TD COLSPAN="3"

WIDTH="100%" BACKGROUND="Images/DOT.gif"><IMG BORDER="0" WIDTH="1" HEIGHT="1" SRC="Images/DOT.gif"></TD></TR>

</TABLE> </TD></TR> </TABLE>

</TD>

<TD><IMG BORDER="0" HEIGHT="5" WIDTH="5" SRC="Images/blank.gif"></TD> <TD WIDTH="168" VALIGN="TOP"></TD> </TR> <TR><TD COLSPAN="5">   <%Session.Timeout=30 Session.CodePage=65001 Dim intID intID=Request.QueryString("ID")

Đề tài: Xây dựng Website bán hàng qua mạng

If (Not IsNumeric(intID)) Or IsEmpty(intID) Then If (Not IsNumeric(Request.QueryString("url"))) Or IsNull(Request.QueryString("url")) Then intID=0 Else intID=Request.QueryString("url") End If End If%> <HTML> <HEAD>

<TITLE>Dai Cat company, Ltd - Mobile ShopOnline</TITLE>

Đề tài: Xây dựng Website bán hàng qua mạng

<TR><TD WIDTH="5" HEIGHT="26"><IMG BORDER="0" WIDTH="5" HEIGHT="26" SRC="Images/top0.gif"></TD> (adsbygoogle = window.adsbygoogle || []).push({});

<TD WIDTH="110" HEIGHT="26"

BACKGROUND="Images/top1.gif" CLASS="topBar"> Chi tiết sản phẩm</TD>

<TD WIDTH="26" HEIGHT="26"><IMG

BORDER="0" WIDTH="26" HEIGHT="26" SRC="Images/top2.gif"></TD> <TD WIDTH="461" HEIGHT="26"

BACKGROUND="Images/top3.gif"> </TD>

<TD WIDTH="5" HEIGHT="26"><IMG

BORDER="0" WIDTH="5" HEIGHT="26" SRC="Images/top4.gif"></TD></TR> <TR><TD COLSPAN="5">

<TR><TD WIDTH="1"

BACKGROUND="Images/DOT.gif"><IMG BORDER="0" WIDTH="1" HEIGHT="1" SRC="Images/DOT.gif"></TD>

<TD WIDTH="1"

BACKGROUND="Images/DOT.gif"><IMG BORDER="0" WIDTH="1" HEIGHT="1" SRC="Images/DOT.gif"></TD></TR>

<TR><TD WIDTH="1"

BACKGROUND="Images/DOT.gif"><IMG BORDER="0" WIDTH="1" HEIGHT="1" SRC="Images/DOT.gif"></TD>

Đề tài: Xây dựng Website bán hàng qua mạng

<TD WIDTH="5"

BACKGROUND="Images/blank.gif"><IMG BORDER="0" WIDTH="5" HEIGHT="5" SRC="Images/blank.gif"></TD> <TD WIDTH="605"> <% strSQL="SELECT SanPhamID, " strSQL=strSQL & "NhomID, " strSQL=strSQL & "TenSanPham, " strSQL=strSQL & "KichThuoc, " strSQL=strSQL & "TrongLuong, " strSQL=strSQL & "BaoHanh, " strSQL=strSQL & "PhuKien, " strSQL=strSQL & "GiaBan, " strSQL=strSQL & "GiamGia, " strSQL=strSQL & "GioiThieu, " strSQL=strSQL & "TinhNang, " strSQL=strSQL & "AnhMinhHoa " strSQL=strSQL & "FROM tblSanPham " strSQL=strSQL & "WHERE

SanPhamID=" & intID & ";"

Reco.Open strSQL, Conn, adOpenForwardOnly, adLockReadOnly

If Not Reco.EOF Then%>

<TABLE ALIGN="CENTER" BORDER="0" CELLPADDING="10" CELLSPACING="1"

BGCOLOR="#BDD8F2" WIDTH="590">

<TR

VALIGN="MIDDLE"><TD ROWSPAN="6" BGCOLOR="#FFFFFF" WIDTH="190" HEIGHT="258" ALIGN="CENTER" VALIGN="MIDDLE">

Đề tài: Xây dựng Website bán hàng qua mạng

<IMG

ALIGN="MIDDLE" ALT="<%=Reco("TenSanPham")%>" BORDER="0" SRC="Images/Products/<%=Reco("AnhMinhHoa")%>">

</TD>

<TD VALIGN="MIDDLE" CLASS="NormalText" WIDTH="350" HEIGHT="43" BGCOLOR="#FFFFFF"> (adsbygoogle = window.adsbygoogle || []).push({});

Tên sản phẩm: <B>< %=Reco("TenSanPham")%></B></TD></TR>

<TR

VALIGN="MIDDLE"><TD VALIGN="MIDDLE" CLASS="NormalText" WIDTH="400" HEIGHT="43" BGCOLOR="#FFFFFF">

Kích thước: < %=Reco("KichThuoc")%></TD></TR>

<TR

VALIGN="MIDDLE"><TD VALIGN="MIDDLE" CLASS="NormalText" WIDTH="400" HEIGHT="43" BGCOLOR="#FFFFFF">

Trọng lượng: < %=Reco("TrongLuong")%></TD></TR>

<TR

VALIGN="MIDDLE"><TD VALIGN="MIDDLE" CLASS="NormalText" WIDTH="400" HEIGHT="43" BGCOLOR="#FFFFFF">

Bảo hành: < %=Reco("BaoHanh")%></TD></TR>

<TR

VALIGN="MIDDLE"><TD VALIGN="MIDDLE" CLASS="NormalText" WIDTH="400" HEIGHT="43" BGCOLOR="#FFFFFF">

Phụ kiện đi kèm: < %=Reco("PhuKien")%></TD></TR>

<TR

VALIGN="MIDDLE"><TD VALIGN="MIDDLE" CLASS="NormalText" WIDTH="400" HEIGHT="43" BGCOLOR="#FFFFFF">

Giá bán: 

Đề tài: Xây dựng Website bán hàng qua mạng

<% If Reco("GiamGia")<>0 Then

OUT("<SPAN CLASS=""Discount"">" & FixCurrency(Reco("GiaBan")) & "

VNĐ</SPAN><BR>")

OUT("<FONT COLOR=""#FFFFFF"">Giá bán:  </FONT>")

OUT("<FONT CLASS=""Price"">" & FixCurrency(Reco("GiaBan")-Reco("GiamGia")) & " VND</FONT>")

Else

OUT("<FONT CLASS=""Price"">" & FixCurrency(Reco("GiaBan")) & "

VNĐ</FONT><BR> ")

End If%> </TD></TR>

<B><u>Giới thiệu:</u></B> <BLOCKQUOTE CLASS="NormalText"><%=FormatMessage(Reco("GioiThieu")) %></BLOCKQUOTE> <B><u>Tính năng khác:</u></B> <BLOCKQUOTE CLASS="NormalText"><%=FormatMessage(Reco("TinhNang")) %></BLOCKQUOTE> </TD></TR> </TABLE> <% Else

Đề tài: Xây dựng Website bán hàng qua mạng

OUT("<BR><P (adsbygoogle = window.adsbygoogle || []).push({});

CLASS=""NormalText"" ALIGN=""CENTER"">Không tìm thấy sản phẩm nào thỏa mãn yêu cầu trên.</P><BR>")

End If%> </TD>

<TD WIDTH="5"

BACKGROUND="Images/blank.gif"><IMG BORDER="0" WIDTH="5" HEIGHT="5" SRC="Images/blank.gif"></TD>

<TD WIDTH="1"

BACKGROUND="Images/DOT.gif"><IMG BORDER="0" WIDTH="1" HEIGHT="1" SRC="Images/DOT.gif"></TD></TR>

<TR><TD WIDTH="1"

BACKGROUND="Images/DOT.gif"><IMG BORDER="0" WIDTH="1" HEIGHT="1" SRC="Images/DOT.gif"></TD>

<TD WIDTH="5"

BACKGROUND="Images/blank.gif"><IMG BORDER="0" WIDTH="5" HEIGHT="5" SRC="Images/blank.gif"></TD>

<INPUT TYPE="BUTTON" CLASS="InputText" VALUE=" Quay lại "

onClick="javascript:history.back(1)">   

<INPUT TYPE="BUTTON" CLASS="InputText" VALUE=" Thêm vào giỏ hàng "

onClick="javascript:window.location='AddToCart.asp?ID=<

%=Reco("SanPhamID")%>&CID=<%=Reco("NhomID")%>'"></TD> <TD WIDTH="5"

BACKGROUND="Images/blank.gif"><IMG BORDER="0" WIDTH="5" HEIGHT="5" SRC="Images/blank.gif"></TD>

<TD WIDTH="1"

BACKGROUND="Images/DOT.gif"><IMG BORDER="0" WIDTH="1" HEIGHT="1" SRC="Images/DOT.gif"></TD></TR>

Đề tài: Xây dựng Website bán hàng qua mạng

<TR><TD WIDTH="1"

BACKGROUND="Images/DOT.gif"><IMG BORDER="0" WIDTH="1" HEIGHT="1" SRC="Images/DOT.gif"></TD>

<TD WIDTH="1"

BACKGROUND="Images/DOT.gif"><IMG BORDER="0" WIDTH="1" HEIGHT="1" SRC="Images/DOT.gif"></TD></TR>

c. Mã lệnh trang “Tài khoản”

o File Show_myAccount

Đề tài: Xây dựng Website bán hàng qua mạng (adsbygoogle = window.adsbygoogle || []).push({});

</TR>

Đề tài: Xây dựng Website bán hàng qua mạng

<TR>

<BR>

Mục lục