CÁC CHỨC NĂNG CHƯƠNG TRÌNH
Hinh 14. Giao diện tìm kiếm Sản Phẩm CODE tìm kiếm
4.2 Giao diện phần quản trị website
Hình 15. Giao diện đăng nhập
CODE Đăng nhập:
Trang Login.asp:
<script language="javascript">
function Nhap()
{ if(document.frmLogin.txtUserName.value=="") { alert("Bạn chưa nhập User Name")
document.frmLogin.txtUserName.focus() return false;}
if(document.frmLogin.txtPassword.value=="") { alert("Bạn chưa nhập Password")
document.frmLogin.txtPassword.focus() return false; }
return true; }
</script>
<form name="frmLogin" action="Login_Process.asp" method="post"
onSubmit="return Nhap();">
<%=Request.QueryString("error")%>
Tên Đăng Nhập :<input style="width:160px;height:15px; font weight:700" name="txtUserName" />
Mật Khẩu : <input style="width:160px;height:15px; font- weight:700" type="password" name="txtPassword" />
<input style="cursor:pointer" class="Button"
type="submit" value="Đăng Nhập" />
<input style="cursor:pointer" class="Button"
type="reset" value="Nhập Lại" />
</form>
Trang xu ly dang nhap : login_process.asp
<!--#include file ="Connection.asp"-->
<% Admin_Name=request.form("txtUserName") Admin_Password=Request.Form("txtPassword") openConn
sql="select * from T_admin where Admin_Name='"&Admin_Name&"' and Admin_Password='"&Admin_Password&"' "
set rs=server.createobject("adodb.recordset") rs.open sql,conn
if not rs.eof then
session("admin")=rs("Admin_Name") 'Nếu đúng Admin_Name thì đóng kết nối,tạo session và chuyển đến trang Home.asp
rs.close destroyConn
response.redirect "Home.asp"
else
session("admin")="" 'Nếu ko đúng thì hiện thông báo lỗi rs.close
destroyConn
response.redirect "Login.asp?error=Tên Đăng Nhập Hoặc Mật Khẩu Không Đúng"
end if %>
Trang thoat dang nhap : logout.asp <%session.abandon
'session("username")="“ %>
<meta http-equiv="Refresh" content="0; URL=Login.asp"/>
Kiểm trang đăng nhập: kiemtra.asp
<% if session("admin")="" then response.redirect "Login.asp"
end if %>
Hình 16. trang chủ quản trị website
Hình 17. Sửa Sản Phẩm Code Sửa :
Trang hiển thị để sửa: sanpham_edit.asp
<!--#include file ="Connection.asp"-->
<script language="javascript">
function Nhap()
{ if(document.frmGroup.nhomhang.value=="") { alert("Bạn chưa nhập Nhóm Sản Phẩm") document.frmGroup.nhomhang.focus()
return false; }
if(document.frmGroup.txtSanPhamName.value=="") { alert("Bạn chưa nhập Tên Sản Phẩm")
document.frmGroup.txtSanPhamName.focus()
return false; }
if(document.frmGroup.txtKhuyenMai.value=="") { alert("Bạn chưa nhập Khuyến Mại")
document.frmGroup.txtKhuyenMai.focus()
return false; }
if(document.frmGroup.txtTinhTrang.value=="") { alert("Bạn chưa nhập Tình Trạng")
document.frmGroup.txtTinhTrang.focus()
return false; }
if(document.frmGroup.txtChiTiet.value=="") { alert("Bạn chưa nhập Chi Tiết")
document.frmGroup.txtChiTiet.focus()
return false; }
return true; } </script>
<% openConn
set rs = server.createobject("ADODB.Recordset") id=request.queryString("id")
rs.open "SELECT * FROM T_sanpham where SanPham_ID ="&id, conn%>
Sửa Sản Phẩm
<form id="formID" class="formular" name="frmGroup" method="post"
action="SanPham_Edit_Do.asp?id=<%=request.queryString("id")%>"
onSubmit="return Nhap();">
Hiển thị Ảnh <a id="thumb1" href="<%=rs("Images")%>"
class="highslide" onClick="return hs.expand(this)" title="header=[Zoom]
body=[ ] fade=[on]">
<img src="<%=rs("Images")%>" alt="Chưa có ảnh" width="326"
height="222"> </a>
Sửa ảnh : <input type="text" name="txtImages" id="img_upload" value="<
%=rs("Images")%>">
<input type="button" name="image_but" class="button icon-chonanh"
value="Chọn Ảnh" onclick="window.open('Insert_Pic.asp' , 'upload_win' , 'toolbar=0 , location=0 , status=1 , menubar=0, scrollbars=0 , resizable=0 , width=450 , height=200')">
Sửa Tên Sản Phẩm : <div align="center"><font face="Times New Roman">
<input type="text" name="txtSanPhamName" id="txtSanPhamName"
value="<%=rs("SanPham_Name")%>" class="validate[required,length[0,255]]"
size="50"/>
Sửa nhóm hàng : <input type="text" name="txtnhomhang" id="txtnhomhang"
value="<%=rs("nhomhang")%>" class="validate[required]" size="50"/>
Sửa khuyến mại : <input type="text" name="txtKhuyenMai"
id="txtKhuyenMai" value="<%=rs("KhuyenMai")%>" class="validate[required]"
size="50"/>
Sửa tình trạng : <input type="text" name="txtTinhTrang"
id="txtTinhTrang" value="<%=rs("TinhTrang")%>"
class="validate[required,length[0,255]]" size="50"/>
Sửa chi tiết : <textarea name="txtChiTiet" cols="50" rows="5"><
%=rs("ChiTiet")%></textarea>
Ngày sửa : <input name="txtCreateDate" type="text" size="50" value="<
%=now%>"/>
<input type="submit" value="Sửa" class="button icon-submit">
<input type="reset" value="Làm Lại" class="button icon-reser">
<input type="button" value="Quay Lại"
onClick="window.history.go(-1)" class="button icon-back">
Trang thực hiện lệnh sửa : Sanpham_edit_do.asp
<!--#include file ="Connection.asp"-->
<%id=request.QueryString("id") Images=request.form("txtImages") nhomhang=request.form("nhomhang")
SanPham_Name=request.form("txtSanPhamName")
KhuyenMai=request.form("txtKhuyenMai") TinhTrang=request.form("txtTinhTrang") ChiTiet=request.form("txtChiTiet")
DonGia=request.Form("txtDonGia") CreateDate=request.form("txtCreateDate") openConn
sql="UPDATE T_sanpham SET Images = "+" '"+Images+"' , nhomhang =
"+" '"+nhomhang+"' , SanPham_Name = "+" '"+SanPham_Name+"' ,KhuyenMai =
"+" '"+KhuyenMai+"' ,TinhTrang = "+" '"+TinhTrang+"' ,ChiTiet = "+"
'"+ChiTiet+"' , DonGia = "+" '"+DonGia+"' ,CreateDate = "+" '"+CreateDate+"' WHERE SanPham_ID ="&id
conn.execute sql 'Thực Thi Truy Vấn destroyConn
Response.Redirect("SanPham_Add.asp") %>
CODE xóa Sản Phẩm : delete_sanpham.asp
<!--#include file ="Connection.asp"-->
<!--#include file="Kiemtra.asp"-->
<%
openConn
id=request.queryString("id") 'validate id
conn.execute "Delete from T_sanpham where SanPham_ID="&id destroyConn
Response.Redirect("SanPham_Add.asp")
%>
Hình 18. xem liên hệ
Ngoài ra, trang quản trị admin cũng sử dụng các code : kết nốt, xem , chèn vào database, phân trang, ….