Đề á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=""


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

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