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
- 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+"')"