Giáo trình hướng dẫn những khó khăn của ngành truyền thống trong thời kỳ KH-KT ngày nay phần 4 doc

§Ò ¸n M«n häc Sinh Viªn : TrÇn Trung ThuËn 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 §Ò ¸n M«n häc Sinh Viªn : TrÇn Trung ThuËn 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="#" §Ò ¸n M«n häc Sinh Viªn : TrÇn Trung ThuËn 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() §Ò ¸n M«n häc Sinh Viªn : TrÇn Trung ThuËn %> </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> Đề án Môn học Sinh Viên : Trần Trung Thuận <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> Đề án Môn học Sinh Viên : Trần Trung Thuận <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>&nbsp;</p> <div align="center"><center><table border="0" width="70%" bgcolor="#346969" Đề án Môn học Sinh Viên : Trần Trung Thuận 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%">&nbsp;</td> <td width="78%">&nbsp;</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> Đề án Môn học Sinh Viên : Trần Trung Thuận <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%">&nbsp;</td> <td width="78%">&nbsp;</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">&nbsp; <input type="reset" value="Nhập Lại" name="B2"></td> </tr> </table> </td> </tr> </table> </center></div><p>&nbsp;</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)%>'<% §Ò ¸n M«n häc Sinh Viªn : TrÇn Trung ThuËn 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+"')" . href="#" onMouseOver="window.document.nut4.src='Images/mucchon32.bmp'; " onMouseOut="window.document.nut4.src='Images/mucchon31.bmp';" onClick="return. ThuËn onMouseOver="window.document.nut5.src='Images/mucchon42.bmp'; " onMouseOut="window.document.nut5.src='Images/mucchon41.bmp';" onClick="return. Trung Thuận <td width="16%" height=" 24& quot;>Số điện thoại :</td> <td width=" ;41 %" height=" 24& quot;><input type="text" name="SoDienThoai"