File cấu hình khởi động Global.asa

Một phần của tài liệu website giới thiệu và bán máy tính qua mạng (Trang 35 - 53)

- Ứng dụng Web là một tập các trang Web, asp và html trong một thư mục Web và các thư mục con.

- Tập tin global.asa xác định khởi đầu và kết thúc của một ứng dụng Web cũng như của các phiên làm việc (session) thuộc từng người dùng đối với ứng dụng.

- ASP cung cấp file cấu hình global.asa, nơi có thể đặt các đoạn mã script xử lý sự kiện hay triệu họp các hàm, thủ tục, biến mang tính toàn cục. File

globle.asa được đặt trong thư mục gốc của ứng dụng. Mỗi ứng dụng Web chỉ có duy nhất một file global.asa . Khi lần đầu tiên trang ASP của ứng dụng được yêu cầu, trình chủ IIS sẽ đọc và nạp thông tin trong file global.asa, phát sinh và xử lý các sự kiện được cài đặt trong file global.asa sau đó chuyển giao quyền xử lý lalị cho trang ASP.

File global.asa cho phép cài đặt và xử lý các sự kiện :

* Application_OnStart : Sự kiện này phát sinh khi người dùng đầu tiên triệu gọi bất kỳ trang nào trong ứng dụng Web. Khi trình củ IIS khởi động lại hoặc khi nội dung file global.asa bị hiệu chỉnh thì sự kiện này sẽ được phát sinh trở lại. Sau khi sự kiện này kết thúc quá trình xử lý, trình chủ IIS sẽ bắt đầu thực thi đến sự kiên Session_OnStart chuẩn bị cho phiên kết nối. Các biến Application thường được khởi tạo bên trong sự kiện này.

* Session_OnStart : Sự kiện này phát sinh mỗi khi có một người dùng mới yêu cấu trang ASP của ứng dụng Web lần đầu tiên.

* Session_OnEnd : Sự kiện này được gọi khi phiên làm việc Session của người dùng chấm dứt. Phiên làm việc được xem là chấm dứt khi nó hết hạn mặc định cho thời gian hết hạn của Session là 20 phút.

* Application_OnEnd : Sự kiện này phát sinh khi không cũn người dùng nào tương tác với ứng dụng Web của chúng ta nữa. Thông thường sự kiện này được gọi khi trình chủ IIS ngừng hoạt động. Sự kiện này giúp ứng dụng Web lưu các thông tin trạng thái cần thiết xuống đĩa cứng phục vụ cho quá trình hoạt động trở lại của trình chủ sau đó.

Thủ tục xử lý các sự kiện này trong file global.asa được cài đặt theo mẫu sau : <script language = “vbscript” runat = “server”>

...Code end sub sub Application_OnEnd ...Code end sub sub Session_OnStart ...Code end sub sub Session_OnEnd ...Code end sub </script>

- Khai bái biến trong global.asa: các biến phải ở dạng biến Application hoặc biến Session. Có thể đặt vào một đoạn bất kỳ hoặc trong các thủ tục

Application_OnStart, Session_OnStart, giải phóng biên ở Application_OnEnd , Session_OnEnd.

3.5 ASP với cơ sở dữ liệu MS Acces 2000

Để tương tác giữa kịch bản ASP và cơ sở dữ liệu MS Access 2000, chúng ta sử dụng đối tượng ADO.Vậy ADO là gì?

• ADO là công nghệ của hóng Microsoft.

• ADO là ActiveX Data Object.

• ADO là thành phần một Active-X của Microsoft.

• ADO tự động cài đặt khai cài đặt Microsoft IIS.

• ADO chương trình giao tiếp để truy cập dữ liệu trong cơ sở dữ liệu Để kết nối vào cơ sở dữ liệu từ trang ASP, chúng ta có những bước sau:

• Tạo đối tượng ADO.Connection vào cơ sở dữ liệu

• Mở kết nối cơ sở dữ liệu.

• Tạo đối tượng ADO.Recordset

• Mở đối tượng Recordset.

• Xử lý dữ liệu từ Recordset.

• Đóng Recordset.

• Đóng kết nối cơ sở dữ liệu.

Ví dụ : Để kết nối đên cở sở dữ liệu có tên là LuanVanBau ta khai báo như sau:

<%

set kn=server.createobject("ADODB.connection")

dd="Provider=SQLOLEDB.1;Persist Security info=false ; UID=sa; PWD=12345678 ; initial catalog=LuanVanBau;server=localhost" kn.open dd

%>

- Trong khai báo trên :

Provider=SQLOLEDB.1; là trình điều khiển kết nối cơ sở dữ liệu SQL server, UID=sa;PWD=12345678; tài khoản và mật khẩu kết nối cơ sở dữ liệu có tên là LuanVanBau.

Sau khi kết thúc quá trình làm việc với cơ sở dữ liệu , nếu muốn đóng kết nối dữ liệu và có thể mở lại kết nối cơ sỏ dữ liệu khác,thì khai báo :

Kn.Close

Trong trường hợp không mở kết nối trở lại trong ASP, bạn có thể sử dụng phát biểu sau để giải phóng bộ nhớ của biến đối tượng kết nôi

Set Kn=Nothing

Kết chương:

Trong chương này tôi đã trình bầy cách khai báo và sử dụng các đối tượng như Request, Response, Session, Application, … và các đối tượng

FileSystemObject cũng như trình bầy về tập tin Global.asa , và cách kết nối từ ASP đến cơ sở dữ liệu MS Access 2000.

PHẦN III CÀI ĐẶT HỆ THỐNG

CHƯƠNG I YÊU CẦU HỆ THỐNG VÀ CÀI ĐẶT CHƯƠNG TRÌNH 1.1 Yêu cầu hệ thống

Chương trình được cài đặt trờn mỏy Server. Các phần mềm cần thiết cho chương trình hoạt động:

+ Hệ điều hành Window 2000 hoặc Window XP

+ Internet Information Server (IIS) đóng vai trò làm Web Server. + Trình duyệt Web Internet Explorer 4.0 trở lên.

+ Hệ quản trị cơ sở dữ liệu MS Access 2000. + Vietkey.

1.2 Cài đặt chương trình

Hệ thống cài đặt gồm có hai phần: + Phần thứ nhất hỗ trợ cho khách hàng:

Phần này nhằm giới thiệu cho khách hàng về công ty, các mặt hàng kinh doanh của công ty và hỗ trợ cho việc đặt hàng qua mạng khi khách hàng có nhu cầu. Phần này gồm có các chức năng xử lý sau:

- Đăng nhập

- Đăng ký thông tin khách hàng - Tra cứu hàng hóa theo yêu cầu

Nhập: Tên mặt hàng hoặc tên loại mặt hàng hoặc mã mặt hàng hoặc thông tin khác.

Xuất: Danh sách các mặt hàng cần tìm hoặc thông tin không tìm thấy. - Chọn hàng đưa vào giỏ hàng

- Xử lý mặt hàng đã chọn: Xóa , cập nhật số lượng, tính số tiền mà khách hàng cần thanh toán

- Thành tiền của một mặt hàng = Số lượng * Đơn giá bán

- Tổng số tiền mà khách hàng phải thanh toán = Thành tiền - Kiểm tra đặt hàng và lập đơn đặt hàng.

+ Phần thứ hai hỗ trợ cho nhà quản lý: Phần này chủ yếu hỗ trợ cho việc quản lý, cập nhật, thống kê các thông tin cần thiết như: mặt hàng, loại mặt hàng, khách hàng, nhà cung cấp, đơn đặt hàng,…Gồm cú cỏc xử lý sau:

- Cập nhật mặt hàng: Thờm, Xóa , Sửa

- Cập nhật loại mặt hàng: Thờm, Xóa, Sửa - Cập nhật đơn đặt hàng: Xóa, Sửa

- Cập nhật nhà cung cấp: Thờm, Xóa, Sửa - Cập nhật khách hàng: Xóa, Sửa

- Xử lý đơn hàng

- Thống kê hàng tồn, khách hàng, đơn đặt hàng - Thống kê doanh thu theo tháng, năm

- Thống kê mặt hàng bán trong tháng, năm

CHƯƠNG II: THIẾT KẾ GIAO DIỆN VÀ HƯỚNG DẪN SỬ DỤNG 2.1 Một số giao diện chính

Mã nguồn Tin tức: <%

set banghi_tintuc=server.createobject("ADODB.recordset")

banghi_tintuc.open "select * from tintuc where show=1 order by uutien asc",kn,1,3 %>

<%

banghi_tintuc.movefirst for i=1 to 4

if banghi_tintuc.eof=true then exit for %>

<tr>

<td width="100%" valign="top"><span lang="en-us">

<a href="noidung.asp?mid=<%=banghi_tintuc.fields("id")%>" style="text- decoration: none"><img src="images/icon_news.gif"><b><font color="#339966" size="3"><%=banghi_tintuc.fields("tieude")%></b>

[<font size="2"><%=banghi_tintuc.fields("ngaydang")%></font>]</font> </a>

</td>

</tr> <tr>

<td width="100%" valign="top"><span lang="en-us"> <%if banghi_tintuc.fields("ddanh")="" then %>

<b><%=banghi_tintuc.fields("gioithieu")%></b> <%else%>

<img src ="<%=banghi_tintuc.fields("ddanh")%>" width="25%" align="left" ><b><%=banghi_tintuc.fields("gioithieu")%></b> <%end if%> </span>&nbsp;</td> </tr> <tr> <td width="100%" valign="top">

<p align="right"><span lang="en-us"><a href="noidung.asp?mid=< %=banghi_tintuc.fields("id")%>">Xem tiếp</a></span></td> </tr> <% banghi_tintuc.movenext next %> </table> </font> <p>

<b><u>Cỏc tin khỏc<span lang="en-us">:</span></u></b> </p>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2"> <tr> <td width="100%" valign="top">

<%

if not banghi_tintuc.eof then banghi_tintuc.movenext %>

<%

for j=1 to 6

if banghi_tintuc.eof =true then exit for %>

<img src="images/muiten.gif" hspace="0">

<a href="noidung.asp?mid=<%=banghi_tintuc.fields("id")%>" style="text- decoration: none"><font color="#0000ff" size="3"> <

%=banghi_tintuc.fields("tieude")%>[<%=banghi_tintuc.fields("ngaydang") %>]</font></a>

<br> <%

banghi_tintuc.movenext next %> </td> </tr> </table> 2.1.2 Giới thiệu: 2.1.3 Sản phẩm 43

Mã nguồn Sản phẩm: <%

set banghi_menu =server.createobject("ADODB.recordset")

banghi_menu.open "select * from menutrai where show =1 order by uutien desc",kn,1,3 %> <% banghi_menu.movefirst do until banghi_menu.eof %> <tr> <td width="100%" height="17"> <p align="center"><span lang="en-us"> <a href="chuyenhuong.asp?mid_chuyenhuong=<%=banghi_menu.fields("id")%>" style="text-decoration:none"><%=banghi_menu.fields("ten")%><br></a> </span></td> </tr>

<tr> <% dim chiso chiso=cint(banghi_menu.fields("id")) %> <%

set banghi_new =server.createobject("ADODB.recordset")

banghi_new.open "select * from linhkien where tenloai =" & chiso & " and show =1 and new = 1 order by id desc" ,kn,1,3

%>

<td width="100%" height="19"> <%

if not banghi_new.eof="" then %>

<table border="2" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#808000" width="100%" id="AutoNumber3"

height="68"> <tr>

<td width="70%" height="16" background="images/banner.gif"><span lang="en-us">

<img src="images/new.gif" align="right"><font color="#ffffff">< %=banghi_new.fields("tenlinhkien")%></FONT>

</span></td>

<td width="30%" height="16" bgcolor="#C0C0C0"><font color="#0000FF"><span lang="en-us">Giỏ bán : <

%=banghi_new.fields("giaban")%> $</span></font></td> </tr>

<tr>

<td width="70%" height="19"><span lang="en-us"> <%

if not banghi_new.fields("hinhanh")="" then %>

<img src="<%=banghi_new.fields("hinhanh")%>" align="left" width="30%"> <%=banghi_new.fields("mota")%> <% else %> <%=banghi_new.fields("mota")%> <%end if%> </span></td> 45

<td width="30%" height="19" bgcolor="#C0C0C0"><font color="#0000FF"><span lang="en-us">Bảo hành : <

%=banghi_new.fields("baohanh")%> thỏng</span></font></td> </tr>

<tr>

<td width="70%" height="31" bgcolor="#FFFFFF"

bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF"><img src="images/giohang.gif" align="right"></td>

<td width="30%" height="31" bgcolor="#FFFFFF"

bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF"><font color="#0000FF"><span lang="en-us">

<a href="xlgiohang.asp?mid=<%=banghi_new.fields("id")%>" style="text- decoration:none">Giỏ hàng</a> </span></font></td> </tr> </table> <% else

response.write ("Khong co san pham nao moi !...") end if %> </td> </tr> <tr> <td width="100%" height="19"> <p align="right"><span lang="en-us"> <a href="chuyenhuong.asp?mid_chuyenhuong=<%=banghi_menu.fields("id") %>" style="text-decoration:none">Hiện toàn bộ </a> </span></td> </tr> </td> <td width="1%">&nbsp;</td> </tr> <% banghi_menu.movenext loop %> </table> 2.1.4 Hỗ trợ

Mã nguồn Hỗ trợ: function check(){

if (document.frmhotro.ten.value=="") {

alert("Bạn chưa nhập họ tên"); document.frmhotro.ten.focus(); return false;

}

if (document.frmhotro.tieude.value=="") {

alert("Bạn chưa nhập tiêu đề"); document.frmhotro.tieude.focus(); return false;

}

if (document.frmhotro.noidung.value=="") {

alert("Bạn chưa nhập nội dung"); document.frmhotro.noidung.focus();

return false; }

return true; }

<p><b><span lang="en-us">&nbsp;&nbsp;&nbsp; CÁC CÂU HỎI ĐÃ TRẢ LỜI</span></b></p>

<%set banghi_cauhoi=server.createobject("ADODB.recordset") banghi_cauhoi.open "select * from hotro where show=1",kn,1,3 %>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3"> <%for i=1 to 5

if banghi_cauhoi.eof=true then exit for %>

<tr>

<td width="2%" valign="top">&nbsp;</td> <td width="96%" valign="top">

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber4"

height="20"> <tr>

<td width="80%" height="20"><span lang="en-us">

<a href="traloi.asp?mid=<%=banghi_cauhoi.fields("id")%>" style="text- decoration:none">

-<%=banghi_cauhoi.fields("tieude")%> </a>

</span></td>

<td width="20%" height="20">

<p align="right"><font color="#0000FF"><span lang="en-us"> <a href="traloi.asp?mid=<%=banghi_cauhoi.fields("id")%>" > <font color="#008080">Trả lời </font> </a>

</span></font></td> </tr> </table> </td> <td width="2%" valign="top">&nbsp;</td> </tr> <%banghi_cauhoi.movenext next %> </table>

<p align="center"><b><span lang="en-us">Hoăc bạn có thể <a href="lienhe.asp">

liên hệ</a> trực tiếp với chỳng tụi</span></b></p>

<p align="center"><b><span lang="en-us">Xin trân thành cảm ơn</span></b></p> 2.1.5 Đăng nhập Mã nguồn Đăng nhập: function check(){ if (document.frmdangnhap.ten.value=="") {

alert("Bạn chưa nhập username"); document.frmdangnhap.ten.focus(); return false;

}

if (document.frmdangnhap.matkhau.value=="") {

alert("Bạn chưa nhập password");

document.frmdangnhap.matkhau.focus(); return false; } return true; } </script>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1"> <tr>

<td width="1%">&nbsp;</td> <td width="98%">

<p align="center"><span lang="en-us"><b><font color="#FF0000" size="4">TRANG

ĐĂNG NHẬP<br></font></b><br> <font color="#0000FF" size="4">

<b>Nếu bạn muốn mua hàng của công ty xin mời đăng nhập hoặc đăng ký mới</b></font></span></p>

<form name="frmdangnhap" method="POST" action="xldangnhap.asp" onsubmit="return check();">

<p align="center">

<span lang="en-us">User name </span>

<input type="text" name="ten" size="20"></p> <p align="center"></p>

<p align="center"><span lang="en-us">Password&nbsp; </span> <input type="password" name="matkhau" size="20"></p>

<p align="center"><input type="submit" value="OK" name="B1"></p> </form>

<p align="right"><font color="#0000FF"><span lang="en-us"> <a href="dangkymoi.asp">Đăng ký mới</a>

</span></font></p> </td>

KẾT LUẬN

I. Đánh giá kết quả

Qua quá trình xõy dựng, hoàn thành đồ án, chạy thử nghiệm chương trình, so với mục tiêu, phạm vi cũng như những hạn chế của hệ thống đã đề ra thì có thể đánh giá như sau:

1.1 Ưu điểm:

- Nhìn chung hệ thống đã bám sát mục tiêu đề ra, các vấn đề cơ bản đưa ra đã được giải quyết, chương trình chạy thử nghiệm đảm bảo tớnh khả thi.

- Chương trình thiết kế dễ sử dụng, người dùng chỉ cần hướng dẫn một số kĩ thuật qui định là có thể thao tác tốt, giao diện thõn thiện dễ hiểu bằng tiếng Việt.

- Các thông tin nghiệp vụ được xử lý theo đúng quy tắc quản lý hiện hành một cách chớnh xác, kịp thời và đáp ứng được yêu cầu của người sử dụng.

1.2 Nhược điểm:

- Chưa xõy dựng được phần quản trị (Administrators) - Chưa xõy dựng được kế hoạch bảo trì hề thống

- Chưa thiết lập được phần hướng dẫn (Help) cho người sử dụng

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

- Xõy dựng phần quản trị (Administrators) - Xõy dựng được kế hoạch bảo trì hề thống

- Thiết lập được phần hướng dẫn (Help) cho người sử dụng

- Mở rộng các tớnh năng của Website theo yêu cầu của ban giám đốc

III. Kết luận

Tóm lại, với tốc độ phát triển ngày càng tăng của mạng máy tính thì việc thiết kế và cài đặt các ứng dụng cho người dùng là rất cần thiết. Vì vậy ý tưởng giới thiệu và bán hàng điện máy qua mạng tuy không phải là mới nhưng phần nào cũng giúp cho khách hàng thuận tiện trong việc lựa chọn và mua hàng.

Hiện nay việc ứng dụng thương mại điện tử ở Việt Nam chỉ đáp ứng được một số vấn đề cơ bản về mua bán, chưa được linh hoạt. Việc ứng dụng này đòi hỏi phải tốn nhiều thời gian và tiền bạc.

Với kiến thức nền tảng đã được học ở trường và bằng sự nỗ lực của mình, em đã hoàn thành luận văn thiết kế “Website giới thiệu và bán máy tính qua mạng” cho công ty Cổ phần thương mại Công nghệ Khai Trí. Mặc dù đã cố gắng và đầu tư rất nhiều nhưng do thời gian có hạn và không được thực hiện trên Internet nên luận văn còn nhiều hạn chế. Em rất mong nhận được sự thông cảm và góp ý của quớ Thầy cô cựng cỏc bạn để chương trình ngày càng hoàn thiện hơn.

Một lần nữa em xin chân thành cảm ơn GS Trẩn Anh Bảo đã tận tình giúp đỡ em trong suốt thời gian thực hiện đồ án tốt nghiệp. Em xin chân thành cảm ơn Thầy.

DANH MỤC TÀI LIỆU THAM KHẢO

1. Xây dựng và triển khai ứng dụng thương mại điện tử 2. ASP những bài thực hành cơ bản và nâng cao

3. Trang web thương mại điện tử ( http://www.thuongmaidientu.com ) 4. Trang website vec( http://www.vecvn.com.vn)

5. Trang Web thương mại (http://www.vnbizcenter.com) 6. Trang web manguon (http://www.manguon.com)

Một phần của tài liệu website giới thiệu và bán máy tính qua mạng (Trang 35 - 53)

Tải bản đầy đủ (DOC)

(53 trang)
w