Đề á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> </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 . 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. align="center"><center><p><input type="submit" value=" Xãa " name="MySubmit" tabindex=" ;9& quot;> <input type="button" value="Tho¸t" name="MySubmit"