•Thực hiện chơng trình
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>
</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="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><%
%><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
<!--#include file=Connection.inc--> <% Header FormTimKiem() Footer %> <!--#include file=Lib.asp-->
Mã nguồn trang in kết quả tìm kiếm
<!--#include file=Connection.inc--> <% '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
'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>
<%=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 %>
<!--#include file=Lib.asp-->
Mã nguồn form thêm
<!--#include file=Connection.inc --> <% 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
"',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() %> <!--#include file=Lib.asp -->
Tài liệu tham khảo
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ũ