Giáo trình hướng dẫn tầm quan trọng và thực trạng hiện nay của ngành truyền thống phần 9 pot

Đề án Môn học
Sinh Viên : Trần Trung Thuận
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

§Ò ¸n M«n häc
Sinh Viªn : TrÇn Trung ThuËn
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
§Ò ¸n M«n häc
Sinh Viªn : TrÇn Trung ThuËn

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>&nbsp;</p>
</form>
<%
Footer()
%>
<! #include file=Lib.asp >
Đề án Môn học

Sinh Viên : Trần Trung Thuận


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