CÁC CHỨC NĂNG CHƯƠNG TRÌNH
4.1. Thiết kế giao diện phần khách hàng
Hình 8. Màn hình giao diện Trang chủ (trang index)
Hình 9. giao diện trang Giới thiệu Sản Phẩm Code được sử dụng
<!--#include file="Connection.asp"-->
<% openConn
set rs = server.createobject(“ADODB.Recordset”) x= Request.QueryString(“IdPr”)
rs.open “SELECT * FROM T_sanpham where SanPham_ID”, conn,3,3
<div align=”center”><a id=”thumb1” href=”Admin/<%=rs(“Images”)%>”
class=”highslide” onClick=”return hs.expand(this)” title=”click phóng to ảnh
“><img src=”Admin/<%=rs(“Images”)%>” width=”216” height=”200” alt=”Chưa có ảnh” title=”” border=”0” /></a> </div>
Tên SP: <%=rs(“SanPham_Name”)%>
Giá: <%=rs(“DonGia”)%> VNĐ Khuyến Mại: <%=rs(“KhuyenMai”)%>
Tình Trạng : <%=rs(“TinhTrang”)%>
Chi Tiết: <%=rs(“Chitiet”)%></div>
<form method=”post” name=”frmHangHoaChiTiet” action=”Giohang.asp”>
<input type=”hidden” name=”txtSanPham_ID” value=”<
%=rs(“SanPham_ID”)%>”>
<input type=”hidden” name=”txtSanPham_Name” value=”<
%=rs(“SanPham_Name”)%>”>
<input type=”hidden” name=”txtPrice” value=”<%=rs(“DonGia”)%>”>
<input type=”submit” class=”button icon-giohang” value=”Add To Cart”
title=”[Cho Vào Giỏ Hàng]”>
<p>___________________________________ </p>
</form>%>
<%
if dem mod 2 =0 then
response.Write(“</tr><tr>”) end if
rs.movenext wend
%>
Hình 10. Giao diện trang tin tức
CODE :
<!--#include file="Connection.asp"-->
<!--#include file="sec.asp"-->
<% openConn
set rs = server.createobject("ADODB.Recordset")
rs.open "select * from T_tintuc order by TinTuc_ID desc", conn,3,3 'Khi mở Recordset đòi hỏi phải thêm các tham số CursorType và LockType
<a id="thumb1" href="Admin/<%=rs("Images")%>" class="highslide"
onClick="return hs.expand(this)" title="header=[Zoom] body=[ ]
fade=[on]"><img src="Admin/<%=rs("Images")%>" width="176" height="200"
alt="Chưa Có Ảnh" title="" border="0" /></a>
<%=rs("TinTuc_Name")%>
<%=rs("TinTuc_MoTa")%>
Ngày viết: <%=rs("CreateDate")%>
<ahref="Tin_Tuc_Detail.asp?action=ViewTinTuc&IdPr=<
%=rs("TinTuc_ID")%>">
<input type="button" class="button icon-chitiet" value="Chi Tiết"> </a><br> ________________________________________<br>%>
<%
if dem mod 2 =0 then
response.Write("</tr><tr>") end if
rs.movenext wend %>
<% openConn
set rs11 = server.createobject("ADODB.Recordset")
rs11.open "select Top 5 * from T_tintuc ORDER BY TinTuc_ID DESC", conn%>
Các Tin Mới Nhất: <% do while not rs11.EOF %>
<ahref="Tin_Tuc_Detail.asp?action=ViewTinTuc&IdPr=<
%=rs11("TinTuc_ID")%>"><%=rs11("TinTuc_Name")%> (<
%=rs11("CreateDate")%>)</a>
<% rs11.movenext 'di chuyen recordset xuong hang tiep theo Loop
rs11.close destroyConn %>
Hình 11. Giao diện trang liên hệ
CODE :
<!--#include file = "Connection.asp"-->
<script language="javascript">
function Nhap(){if(document.frmLienHe.txtUserName.value=="") {alert("Bạn chưa nhập Tên")
document.frmLienHe.txtUserName.focus() return false;}
if(document.frmLienHe.txtEmail.value=="") {alert("Bạn chưa nhập Email")
document.frmLienHe.txtEmail.focus() return false;}
if(document.frmLienHe.txtDienThoai.value=="") {alert("Bạn chưa nhập Điện Thoại")
document.frmLienHe.txtDienThoai.focus() return false;}
if(document.frmLienHe.txtDiaChi.value=="") {alert("Bạn chưa nhập Địa Chỉ")
document.frmLienHe.txtDiaChi.focus() return false;}
if(document.frmLienHe.txtNoiDung.value=="") {alert("Bạn chưa nhập Nội Dung")
document.frmLienHe.txtNoiDung.focus() return false;}
if(document.frmLienHe.txtCaptcha.value!="<%=secureCode%>") {alert("Bạn Nhập Sai Mã Kiểm Tra")
document.frmLienHe.txtCaptcha.focus() return false;}
return true;}
</script>
<form id="formID" class="formular" method="post" name="frmLienHe"
action="Lienhe_Do.asp" onSubmit="return Nhap();">
Name: <input type="text" name="txtUserName"
id="txtUserName" value="" class="validate[required,length[0,255]]"
size="46"/>
Email :<input value="" class="validate[required,custom[email]]
text-input" type="text" name="txtEmail" id="txtEmail" size="46"/>
Điện Thoại :<input name="txtDienThoai" type="text"
class="validate[required,custom[telephone]] text-input" id="txtDienThoai"
value="" size="46" />
Địa Chỉ : <label class="contact"><input type="text"
name="txtDiaChi" id="txtDiaChi" value=""
class="validate[required,length[0,255]]" size="46"/></label>
<p class="style36">Nội dung : </p>
<label class="contact"></label>
<label class="contact">
<textarea value=""
class="validate[required,length[6,1200]] text-input" name="txtNoiDung"
id="txtNoiDung" cols="45" rows="10"/>
</textarea> </label>
<label class="style36"><strong>Mã Kiểm Tra:</strong></label>
<input type="button" class="button icon-doimatkhau" value="<
%=secureCode%>">
<input type="text" name="txtCaptcha"/>
<input type="hidden" name="txtCreateDate" value="<%=now%>"
class="contact_input">
<input type="submit" class="button icon-send" value="Gửi Phản Hồi">
<input type="reset" value="Làm Lại" class="button icon-reser"></form>
CODE CHÈN LIÊN HỆ VÀO DATABASE :
<!--#include file ="Connection.asp"-->
<%
openConn
set rs = server.createobject("ADODB.Recordset") username=request.form("txtUserName")
email=request.form("txtEmail")
DienThoai=request.form("txtDienThoai") address=request.form("txtDiaChi")
NoiDung=request.form("txtNoiDung") CreateDate=request.form("txtCreateDate") Sql="insert into T_lienhe
(username,email,DienThoai,address,NoiDung,CreateDate) values ('"+username+"'
"+",'"+email+"' "+",'"+DienThoai+"' "+",'"+address+"' "+", '"+NoiDung+ "' "+", '"+CreateDate+ "') "
conn.execute Sql 'Thực thi câu truy vấn
Response.Redirect("Thong_Bao_Lien_He.asp")%>
Hình 12. Giao diện giỏ hàng
<!--#include file ="Connection.asp"-->
<%const cartpID=0
const cartpName=1 const cartpPrice=2 const cartpquantity=3
if not isArray (session("cart")) then dim localCart(4,100)
else
localCart=Session("cart") end if
inMasanpham=Request.Form("txtSanPham_ID") 'lấy ở các file sản phẩm (aothun.asp,...)
nvTensanpham=Request.Form("txtSanPham_Name") gia=Request.Form("txtPrice")
if inMasanpham<>"" then
fountd=false
for i=0 to ubound(localCart,2)
if localCart(cartpID,i)=inMasanpham then localCart(cartpquantity,i)=localCart(cartpquantity,i)+1
fountd=true exit for end if
next end if
if not fountd then
for i=0 to ubound(localCart,2)
if localCart(cartpID,i)="" then
localCart(cartpID,i)=inMasanpham localCart(cartpName,i)=nvTensanpham
localCart(cartpPrice,i)=gia localCart(cartpquantity,i)=1 exit for
end if next
end if
If Request.Form("updateQ") = 1 Then For i=0 To UBOUND(localcart,2)
newQ=Trim(Request.Form("fq"&localcart(cartpID,i))) delF=Trim(Request.Form("fd"&localcart(cartpID,i))) If newQ = "" Or newQ = "0" or delF <> "" Then
localcart(cartpID,i) = ""
Else
If isNumeric(newQ) Then temp=Cint(newQ) if temp>0 then
localcart(cartpquantity,i) = newQ End If
end if End If
Next End If
'Tang tgian song cho session card
session("cart")=localCart%>
<form action="" method="post">
<%
for i=0 to ubound(localCart,2)
if localCart(cartpID,i)<>"" then
orderTotal=orderTotal+(localCart(cartpPrice,i)*localCart(cartpquantity,i)) %>
tên hàng :<%=localcart(cartpName,i)%>
đơn giá :<%=localcart(cartpPrice,i)%> VNd >
số lượng đặt: <inputname="fq<%=localcart(cartpID,i)%>"
type="text" size="2" value="<%=localcart( cartpquantity,i)%>" style="font-weight:
bold" maxlength="2" class="form6">
xóa: <input name="fd<%=localcart(cartpID,i)%>"
type="checkbox" value="1">
<% end if next
session("TongTien")=orderTotal%>
<%IF session("TongTien")=0 then%>
Chưa có trong giỏ hàng <%else%>
;TONG TIEN<%=(orderTotal)%> VNd <%end if%>
<input type="image" src="_notes/Software-update-64.png"
title="header=[Cập Nhập Giỏ Hàng] body=[ ] fade=[on]">
</form>
<form method="post" name="frm" action="Dathang.asp">
<input type="submit" class="button icon-submit" value="Đặt Hàng">
<input type="button" value="Quay Lại" onClick="window.history.go(-1)"
class="button icon-back"> </form>
Hình 13. Giao diện tìm kiếm tin tức