Đăng nhập

Hãy chọn một cách để đăng nhập

Facebook Google Zalo

Hoặc tiếp tục với email

Nhớ mật khẩu

Chưa có tài khoản? Đăng ký

Phần 3:Đánh giá •Thực hiện ch ơng trình

Một phần của tài liệu XD website QL danh bạ điện thoại cho cty Bưu điện (Trang 26 - 43)

Chơng trình này mới chỉ chạy đợc phần tìm kiếm số điện thoại (nút danhbạ) nút Đăng nhập.

Chơng trình có thể tìm số điện thoại theo địa chỉ, theo mã vùng theo họ tên theo số điện thoại.

Hạn chế của ch• ơng trình

Vì thời gian có hạn nên một số chức năng cha kịp viết nh

các thông tin trên trang chủ chỉ mang tính chất minh hoạ cha đợc xây dựng Chế độ phân quyền trong phần đăng nhập cha hoàn thành

nên mọi ngòi dùng đều có thể can thiệp vào cơ sở dữ liệu của mục này đợc Mục hỏi đáp khách hàng cha đợc xây dựng(cả phần cơ sở dữ liệu) Mục ý kiến khách hàng cũng cha đợc xây dựng(cả phần CSDL) mong các bạn xây dựng thêm

•Hớng dẫn cài đặt

Chơng trình này nếu chạy thử ngiệm trên máy PC thì cần cấu hình nh sau CPU 100 Mhz

Ram : 16Mb HDD: 2.1Gb VGA: 1Mb

Cách cài đặt :

•Máy PC của bạn cài đặt hệ điều hành Win98/95 Cài đặt Internetexflower 4.0

Dùng ODBC 32bit (trong Control panel)để kết nối đến cơ sở dữ liệu

Cài trình sever ảo: personalWebsever(PWS) hayInternet informationserver Sauđó phải copy chơng trình vào mục InetPublic\WWWroot.Nếu là PWS gọi trình duyệt Internetexflower ra và gõ đờng dẫn tên server và trang Home

Ví dụ: khi cài PWS thì sever tên là thuan gọi trang homepage nh sau http\\thuan\home.html

Phụ Lục :Code chơng trình Các hàm sử dụng trong chơng trình <% Sub Header() %> <html> <head>

<title>New Page 1</title>

<meta name="GENERATOR" content="Microsoft FrontPage 3.0"> <style type="text/css">

BODY,H1,H2,H3,H4,UL,LI,INPUT,A,B,TEXTAREA,select { font- family: .Vntime }

P { font-family: .Vntime; }

h5 {font-family: .VnArial Narrow; color: #222222;size:4pt;} A { color: #3300FF;text-decoration: underline; }

A:visited { color: #3300FF }

A:hover { text-decoration:none ;color: #3300FF; background-color: #FFFFF2 }

tr { font-family: .Vntime,size:4pt;} </style>

</head> <body>

<table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr>

<td width="100%"><img src="Images/bannernew.bmp" width="775" height="129"

alt="banner.jpg (43099 bytes)"></td> </tr>

<tr>

<td width="100%" bgcolor="#FF9D6F" height="20"><marquee

border="0"><FONT face=".VnArial" size="2">Bu điện thành phố Hà Nội - Địa chỉ: 94 Đinh Tiên Hoàng - Email: http://www.Buudienhn.com.vn - Tel: 8234567 - Fax: 8235467</FONT></marquee></td>

</tr> <tr>

<td width="100%"><img src="Images/banner21.jpg" width="775" height="25"

alt="banner21.jpg (3135 bytes)"></td> </tr>

<tr>

<td width="100%"><table border="0" width="100%" cellspacing="0" cellpadding="0">

<tr>

<td width="18%" valign="top"><table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="185%"><a href="#" onMouseOver="window.document.nut1.src='Images/mucchon12.bmp';" onMouseOut="window.document.nut1.src='Images/mucchon11.bmp';" onClick="return false;"><img

name="nut1" src="Images/mucchon11.bmp" width="150" height="27" alt="mucchon11.bmp (12258 bytes)" boder="0"

style="background-color: rgb(255,255,255); color: rgb(255,255,255); border: medium none rgb(255,255,255)"></a></td>

</tr> <tr> <td width="185%"><a href="#" onMouseOver="window.document.nut2.src='Images/mucchon22.bmp';" onMouseOut="window.document.nut2.src='Images/mucchon21.bmp';" onClick="return false;"><img

name="nut2" src="Images/mucchon21.bmp" width="150" height="27" alt="mucchon11.bmp (12258 bytes)" boder="0"

style="background-color: rgb(255,255,255); color: rgb(255,255,255); border: medium none rgb(255,255,255)"></a></td>

</tr> <tr> <td width="185%"><a href="TimKiem.asp" onMouseOver="window.document.nut3.src='Images/mucchon52.bmp';" onMouseOut="window.document.nut3.src='Images/mucchon51.bmp';"> <img name="nut3"

src="Images/mucchon51.bmp" width="150" height="27" alt="mucchon11.bmp (12258 bytes)"

boder="0"

style="background-color: rgb(255,255,255); color: rgb(255,255,255); border: medium none rgb(255,255,255)"></a></td>

</tr> <tr> <td width="185%"><a href="#" onMouseOver="window.document.nut4.src='Images/mucchon32.bmp';" onMouseOut="window.document.nut4.src='Images/mucchon31.bmp';" onClick="return false;"><img

name="nut4" src="Images/mucchon31.bmp" width="150" height="27" alt="mucchon31.bmp (12258 bytes)" boder="0"

style="background-color: rgb(255,255,255); color: rgb(255,255,255); border: medium none rgb(255,255,255)"></a></td>

</tr> <tr> <td width="185%"><a href="#" onMouseOver="window.document.nut5.src='Images/mucchon42.bmp';" onMouseOut="window.document.nut5.src='Images/mucchon41.bmp';" onClick="return false;"><img

name="nut5" src="Images/mucchon41.bmp" width="150" height="27" alt="mucchon41.bmp (12258 bytes)" boder="0"

style="background-color: rgb(255,255,255); color: rgb(255,255,255); border: medium none rgb(255,255,255)"></a></td>

</tr> <tr> <td width="185%"><a href="NhapSoDienThoai.asp" onMouseOver="window.document.nut6.src='Images/mucchon72.bmp';" onMouseOut="window.document.nut6.src='Images/mucchon71.bmp';"> <img name="nut6"

src="Images/mucchon71.bmp" width="150" height="43" alt="mucchon11.bmp (12258 bytes)"

boder="0"

style="background-color: rgb(255,255,255); color: rgb(255,255,255); border: medium none rgb(255,255,255)"></a></td>

</tr> </table> </td>

<td width="76%" valign="top"><table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="100%"> <% End Sub '''''''''''''''''''''''''''''''''''''''''' Sub Footer() %> </tr> </table> </td> </tr> </table> </td> </tr> </table> </body> </html> <% End Sub '''''''''''''''''''''''''''''''''''''''''' Sub FormNhapLieu(SDT,MV,Ho,Ten,DiaChi,TenNut) %>

<form name="NhapLieu" method="POST" action="NhapSoDienThoai.asp"> <div

align="center"><div align="center"><center><table border="1" width="100%" cellspacing="1"

height="277"> <tr>

<td width="100%" align="center" height="29"

background="Images/topbg.gif"><strong><FONT face=".VnArialH">Nhập thuê bao mới</FONT></strong></td>

</tr> <tr>

<td width="100%" align="center" height="236" background="Images/g.gif"><table border="0"

width="100%" cellspacing="0" cellpadding="0"> <tr>

<td width="100%" align="center"><table border="0" width="90%" height="186" cellspacing="0"

cellpadding="0"> <tr>

<td width="16%" height="24">Số điện thoại :</td> <td width="41%" height="24"><input type="text"

name="SoDienThoai" size="18" value='<%=SDT%>' tabindex="1"></td> <td width="12%" height="24">Mã vùng: </td>

<td width="31%" height="24"> <%

Call ListBox("MaVung","MaVung","TenTinh","Select * From Tinh",MV)

%></td> </tr>

<tr>

<td width="16%" height="23">Họ : </td>

<td width="41%" height="23"><input type="text" name="Ho" size="18" value='<%=Ho%>' tabindex="3"></td>

<td width="12%" height="23">Tên:</td>

<td width="31%" height="23"><input type="text" name="Ten" size="15" value='<%=Ten%>' tabindex="4"></td>

</tr> <tr>

<td width="16%" height="121" valign="top">Địa chỉ :</td> <td width="84%" colspan="3" height="121" valign="top" align="left"><textarea rows="5"

name="DiaChi" cols="51" tabindex="5"><%=DiaChi %></textarea></td> </tr> </table> </td> </tr> <tr>

<td width="100%" align="center"><input type="submit" value='< %=TenNut%>' name="MySubmit"

tabindex="6"> <input type="reset" value="Nhập Lại" name="B2" tabindex="7"> <input

type="button" value="Tìm kiếm" name="TimKiem" tabindex="8"></td> </tr> <tr> <td width="100%"></td> </tr> </table> </td> </tr> </table> </center></div> <dd align="center"><br> </dd>

</div><div align="center"><center><table border="1" width="100%" cellspacing="0"

cellpadding="0"> <tr>

<td width="6%" align="center" bgcolor="#008080"><font color="#FFFFFF"><strong>STT</strong></font></td>

<td width="11%" align="center" bgcolor="#008080"><font color="#FFFFFF"><strong>Chọn Xóa</strong></font></td> <td width="11%" align="center" bgcolor="#008080"><font color="#FFFFFF"><strong>Chọn Sửa</strong></font></td> <td width="40%" align="center" bgcolor="#008080"><font color="#FFFFFF"><strong>Họ và tên</strong></font></td> <td width="19%" align="center" bgcolor="#008080"><font color="#FFFFFF"><strong>Số điện

thoại</strong></font></td>

<td width="13%" align="center" bgcolor="#008080"><font color="#FFFFFF"><strong>Mã vùng<strong></font></td> </tr> <% End Sub '''''''''''''''''''''''''''''''''''''''''' Sub FormTimKiem() %>

<form method="POST" action="KetQuaTK.asp">

<p> </p>

<div align="center"><center><table border="0" width="70%" bgcolor="#346969"

cellspacing="0" cellpadding="0"> <tr>

<td width="100%"><table border="0" width="100%" cellspacing="1" height="74">

<tr>

<td width="100%" height="21"><font

color="#FFFFFF"><strong>Tìm kiếm chi tiết</strong></font></td> </tr>

<tr>

<td width="100%" bgcolor="#99CCCC" height="20"><div align="center"><center><table

border="0" width="90%" cellspacing="0" cellpadding="0"> <tr> <td width="22%"> </td> <td width="78%"> </td> </tr> <tr> <td width="22%">Địa bàn</td> <td width="78%"> <% Call ListBox("DiaBan","MaVung","TenTinh","Select * From Tinh",0) %> </td> </tr> <tr> <td width="22%">Họ </td>

<td width="78%"><input type="text" name="Ho" size="40"></td>

</tr> <tr>

<td width="22%">Tên</td>

<td width="78%"><input type="text" name="Ten" size="40"></td>

</tr>

<tr>

<td width="22%">Địa chỉ</td>

<td width="78%"><input type="text" name="DiaChi" size="40"></td>

</tr> <tr>

<td width="22%">Điện Thoại</td>

<td width="78%"><input type="text" name="DienThoai" size="40"></td> </tr> <tr> <td width="22%"> </td> <td width="78%"> </td> </tr> </table> </center></div></td> </tr> <tr>

<td width="100%" bgcolor="#99CCCC" height="21" align="center"><input type="submit"

value="Tìm kiếm" name="MySubmit">  <input type="reset" value="Nhập Lại" name="B2"></td>

</tr> </table> </td> </tr> </table> </center></div><p> </p> </form> <% End Sub '''''''''''''''''''''''''''''''''''''''''' Sub ListBox(Name,Ma,Ten,SQL,Cur) Cur=Cstr(Cur) rs.Open SQL,Conn

%><select name='<%=Name%>'><option value=''></option><% Do While not rs.Eof

%><option value='<%=rs(Ma)%>'<%

if rs(Ma)=Cur Then Response.write(" Selected") End if %>><%=rs(Ma)%>: <%=rs(Ten)%></option><% rs.MoveNext Loop Response.write("</select>") rs.close End Sub '''''''''''''''''''''''''''''''''''''''''' Sub ListBoxTrang(Name,num,cur,Submit) Dim i

%><select name='<%=Name%>' style='font-family: .VnTime; font- size=12pt'<% If Submit Then Response.write(" onChange='submit()'>") Else Response.write(">") End if

For i=1 to num

%><option value='<%=i%>'<% If i=cur Then Response.write(" selected") End if %>><%=i%></option><% Next ResPonse.write("</select>") End Sub '''''''''''''''''''''''''''''''''''''''''' Function MyFilter(vMaVung,vHo,vTen,vDiaChi,vSDT) Dim strTemp strTemp="" if vMaVung<>"" then

strTemp=strTemp+" And MaVung='"+vMaVung+"'" end if

if vHo<>"" then

strTemp=strTemp+" And InStr(Ho,'"+vHo+"')" end if

if vTen<>"" then

strTemp=strTemp+" And Ten='"+vTen+"'" end if

if vDiaChi<>"" then

strTemp=strTemp+" And InStr(DiaChi,'"+vDiaChi+"')" end if

if vSDT<>"" then

strTemp=strTemp+" And SoDienThoai='"+vSDT+"'" end if MyFilter=strTemp end Function '''''''''''''''''''''''''''''''''''''''''' Function ShowData(Query,CurrentPage,Selected) Dim i

set RsTemp= server.CreateObject("ADODB.recordset") 'RsTemp.CursorLocation=3 'RsTemp.PageSize=2 RsTemp.open Query,Conn 'i=0+CurrentPage 'CurrentPage=1 'CurrentPage=i 'RsTemp.AbsolutePage = CurrentPage i=0

Do while Not RsTemp.Eof 'And RsTemp.AbsolutePage=CLng(CurrentPage) i=i+1

%><tr><td align=center><%=i%></td><%

%><td align='center'><input type='checkbox' name='Cb(< %=RsTemp.Fields("Id")%>)' value='1'></td><%

if Cint(Selected)=RsTemp.Fields("Id") then

%><td align='center'><input type='radio' name='Rb' value='< %=RsTemp.Fields("Id")%>' onclick='submit()' checked></td><%

else

%><td align='center'><input type='radio' name='Rb' value='< %=RsTemp.Fields("Id")%>' onclick='submit()'></td><%

end if

%><td align='left'><%=RsTemp.Fields("Ho")+" "+ RsTemp.Fields("Ten")%></td>

<td align='left'><%=RsTemp.Fields("SoDienThoai")%></td>

<td align='left'><%=RsTemp.Fields("MaVung")%></td><% RsTemp.MoveNext Loop Response.write("</table>") ShowData=RsTemp.PageCount RsTemp.close Set RsClose=nothing End Function %>

Mã nguồn trang tìm kiếm

<% Header FormTimKiem() Footer %>

Mã nguồn trang in kết quả tìm kiếm  <% 'Dim CurrentPage DiaBan=Trim(Request("DiaBan")) Ho=Trim(Request("Ho")) Ten=Trim(Request("Ten")) DiaChi=Trim(Request("DiaChi")) DienThoai=Trim(Request("DienThoai")) Query="Select * from SoDanhBa Where True"

Query=Query+MyFilter(DiaBan,Ho,Ten,Diachi,DienThoai) 'Response.write Query

rs.CursorLocation=3 'rs.PageSize=2

rs.open Query, Conn 'NumPage= rs.PageCount Header()

'Response.write rs.RecordCount %>

<blockquote>

<p><font face=".VnArialH" size="5" color="#000080"><strong>Kết quả tìm kiếm</strong></font></p>

</blockquote> <%

if rs.RecordCount>0 then %>

<FORM METHOD=POST ACTION="">

<table border="0" width="100%" bgcolor="#008080" cellspacing="0" cellpadding="0"

height="34"> <tr>

<td width="80%" height="34"><font color="#FFFFFF"><strong>  Tìm thấy <%=rs.RecordCount%> kết quả </strong></font></td>

</tr> </table>

<table border="0" width="100%" bgcolor="#008080" cellspacing="0" cellpadding="0">

<tr>

<td width="100%">

<table border="0" width="100%" cellspacing="1"> <%

rs.MoveFirst i=0

'rs.AbsolutePage=CLng(Page1)

Do While not rs.Eof 'And rs.AbsolutePage=CLng("1") i=i+1

%> <tr>

<td width="5%" bgcolor="#FFFFFF" align="center"><font color="#800000"><%=i%></font></td>

<td width="75%" bgcolor="#FFFFFF"><font color="#0000FF"><strong> <%=rs("Ho")%><%=" "%><%=rs("Ten")%></strong></font><br>     <%=rs("DiaChi")%></td>

<td width="21%" bgcolor="#FFFFFF" align="center"><font color="#FF0000"><strong>(<%=rs("MaVung")%>)<%=rs("SoDienThoai") %></strong> </font></td> </tr> <% rs.MoveNext Loop %> </table> </td> </tr> </table>

<table border="0" width="100%" bgcolor="#008080" cellspacing="0" cellpadding="0"

height="34"> <tr>

<td width="80%" height="34"><font color="#FFFFFF"><strong>  Tìm thấy <%=rs.RecordCount%> kết quả </strong></font></td>

</tr> </table> </FORM> <% else %> <br><br><center>

<b><font face="VnArial" size="5" color="#FF0000">Không tìm thấy kết quả</font></b> <center> <% end if Footer() rs.Close %>

Mã nguồn form thêm  <% SoDienThoai=Trim(Request("SoDienThoai")) MaVung=Request("MaVung") Ho=Trim(Request("Ho")) Ten=Trim(Request("Ten")) DiaChi=Trim(Request("DiaChi")) Page=Int(Request("Page")) NameButton="Nhập mới" ErrorStr=""

if Trim(Request("MySubmit"))="Nhập mới" then

if SoDienThoai<>"" and MaVung<>"" and Ho<>"" and Ten<>"" and DiaChi<>"" then

Query="INSERT INTO

SoDanhBa(SoDienThoai,Ho,Ten,DiaChi,MaVung) VALUES('" & _

+SoDienThoai+"','"+ Ho + "','"+ Ten +"','"+ DiaChi +"','"+ MaVung +"')" Conn.Execute Query 'Response.write(Query) SoDienThoai="" MaVung="" Ho="" Ten="" DiaChi="" else

ErrorStr="Bạn cha nhập đủ thông tin"

end if

end if

if Trim(Request("MySubmit"))="Ghi Sửa" then

if SoDienThoai<>"" and MaVung<>"" and Ho<>"" and Ten<>"" and DiaChi<>"" then

Query="Update SoDanhBa Set

SoDienThoai='"+SoDienThoai+"',Ho='"+Ho+

"',Ten='"+Ten+"',DiaChi='"+DiaChi+"',MaVung='"+MaVung+"' Where Id="+Request("Rb")

Conn.Execute Query 'Response.write(Query) SoDienThoai="" MaVung="" Ho="" Ten="" DiaChi="" NameButton="Nhập Mới" else

ErrorStr="Bạn cha nhập đủ thông tin" end if

end if

if Trim(Request("MySubmit"))="Xóa" then rs.Open "Select Id From SoDanhBa", Conn rs.MoveFirst

Do while not rs.Eof

CheckBox="Cb(" + CStr(rs("Id")) + ")" if not Strcomp(Request(CheckBox),"1") then

Conn.Execute "Delete From SoDanhBa Where Id="+CStr(rs("Id")) end if rs.MoveNext Loop rs.Close SoDienThoai="" MaVung="" Ho="" Ten="" DiaChi="" NameButton="Nhập Mới" end if

if Request("MySubmit")="" and Request("Rb")<>"" Then NameButton="Ghi Sửa"

rs.Open "Select * From SoDanhBa Where Id="+Request("Rb"), Conn rs.MoveFirst

SoDienThoai=rs("SoDienThoai") MaVung=rs("MaVung")

Ho=rs("Ho") Ten=rs("Ten") DiaChi=rs("DiaChi") rs.close End if Header() %>

<font face='Arial' size="3" color="#FF3300"><%=ErrorStr%></font> <%

Call FormNhapLieu(SoDienThoai,MaVung,Ho,Ten,DiaChi,NameButton) NumPage= ShowData("Select * from SoDanhBa",1,Request("Rb")) response.write(Rb)

%>

<TABLE table width=100% cellspacing=0> <TR bgcolor='#FFCC00'>

<TD width=50% height=30 align='center'>Tong so trang: 1 </TD>

<TD align='right'>Trang: <% Call ListBoxTrang("page",1,1,True) %></TD> </TR>

</TABLE>

</center></div><div align="center"><center><p><input type="submit" value=" Xóa "

name="MySubmit" tabindex="9"> <input type="button" value="Thoát" name="MySubmit" tabindex="10"></p> </center></div><p> </p> </form> <% Footer() %>

Tài liệu tham khảo

1. Hệ thông thông tin Tác giả TS.Trong Văn Tú 2. Ngôn Ngữ HTML Tác giả VNGuide

3. Lập trình ASP Tác giả SaigonBook

4. ASP Database Tác giả SaigonBook

5. ASP và ASP.Net Tác giả Nhà Sách Minh Khai 6. Thơng Mại điện tử Tác giả KS.Bùi thế Ngũ

7. DHTML Tác giả VNGuide

Một phần của tài liệu XD website QL danh bạ điện thoại cho cty Bưu điện (Trang 26 - 43)

Mục lục

Phần 3:Đánh giá •Thực hiện ch ơng trình (Bạn đang ở đây)

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

(52 trang)