§Ò ¸n M«n häc Sinh Viªn : TrÇn Trung ThuËn end if if vTen<>"" then strTemp=strTemp+" And Ten='"+vTen+"'" end if if vDiaChi<>"" then strTemp=strTemp+" And InStr(DiaChi,'"+vDiaChi+"')" end if if vSDT<>"" then strTemp=strTemp+" And SoDienThoai='"+vSDT+"'" end if MyFilter=strTemp end Function '''''''''''''''''''''''''''''''''''''''''' Function ShowData(Query,CurrentPage,Selected) Dim i set RsTemp= server.CreateObject("ADODB.recordset") 'RsTemp.CursorLocation=3 'RsTemp.PageSize=2 RsTemp.open Query,Conn 'i=0+CurrentPage 'CurrentPage=1 'CurrentPage=i 'RsTemp.AbsolutePage = CurrentPage i=0 Do while Not RsTemp.Eof 'And RsTemp.AbsolutePage=CLng(CurrentPage) i=i+1 %><tr><td align=center><%=i%></td><% %><td align='center'><input type='checkbox' name='Cb(<%=RsTemp.Fields("Id")%>)' value='1'></td><% if Cint(Selected)=RsTemp.Fields("Id") then %><td align='center'><input type='radio' name='Rb' value='<%=RsTemp.Fields("Id")%>' onclick='submit()' checked></td><% else %><td align='center'><input type='radio' name='Rb' value='<%=RsTemp.Fields("Id")%>' onclick='submit()'></td><% Đề án Môn học Sinh Viên : Trần Trung Thuận end if %><td align='left'><%=RsTemp.Fields("Ho")+" "+ RsTemp.Fields("Ten")%></td> <td align='left'><%=RsTemp.Fields("SoDienThoai")%></td> <td align='left'><%=RsTemp.Fields("MaVung")%></td><% RsTemp.MoveNext Loop Response.write("</table>") ShowData=RsTemp.PageCount RsTemp.close Set RsClose=nothing End Function %> Mã nguồn trang tìm kiếm <! #include file=Connection.inc > <% Header FormTimKiem() Footer %> <! #include file=Lib.asp > Mã nguồn trang in kết quả tìm kiếm <! #include file=Connection.inc > <% 'Dim CurrentPage DiaBan=Trim(Request("DiaBan")) Ho=Trim(Request("Ho")) Ten=Trim(Request("Ten")) DiaChi=Trim(Request("DiaChi")) DienThoai=Trim(Request("DienThoai")) Query="Select * from SoDanhBa Where True" Query=Query+MyFilter(DiaBan,Ho,Ten,Diachi,DienThoai) 'Response.write Query rs.CursorLocation=3 §Ò ¸n M«n häc Sinh Viªn : TrÇn Trung ThuËn 'rs.PageSize=2 rs.open Query, Conn 'NumPage= rs.PageCount Header() 'Response.write rs.RecordCount %> <blockquote> <p><font face=".VnArialH" size="5" color="#000080"><strong>KÕt qu¶ t×m kiÕm</strong></font></p> </blockquote> <% if rs.RecordCount>0 then %> <FORM METHOD=POST ACTION=""> <table border="0" width="100%" bgcolor="#008080" cellspacing="0" cellpadding="0" height="34"> <tr> <td width="80%" height="34"><font color="#FFFFFF"><strong>&nbsp; T×m thÊy <%=rs.RecordCount%> kÕt qu¶ </strong></font></td> </tr> </table> <table border="0" width="100%" bgcolor="#008080" cellspacing="0" cellpadding="0"> <tr> <td width="100%"> <table border="0" width="100%" cellspacing="1"> <% rs.MoveFirst i=0 'rs.AbsolutePage=CLng(Page1) Do While not rs.Eof 'And rs.AbsolutePage=CLng("1") i=i+1 %> <tr> §Ò ¸n M«n häc Sinh Viªn : TrÇn Trung ThuËn <td width="5%" bgcolor="#FFFFFF" align="center"><font color="#800000"><%=i%></font></td> <td width="75%" bgcolor="#FFFFFF"><font color="#0000FF"><strong> <%=rs("Ho")%><%=" "%><%=rs("Ten")%></strong></font><br> &nbsp;&nbsp;&nbsp; <%=rs("DiaChi")%></td> <td width="21%" bgcolor="#FFFFFF" align="center"><font color="#FF0000"><strong>(<%=rs("MaVung")%>)<%=rs("SoDienThoai")% ></strong> </font></td> </tr> <% rs.MoveNext Loop %> </table> </td> </tr> </table> <table border="0" width="100%" bgcolor="#008080" cellspacing="0" cellpadding="0" height="34"> <tr> <td width="80%" height="34"><font color="#FFFFFF"><strong>&nbsp; T×m thÊy <%=rs.RecordCount%> kÕt qu¶ </strong></font></td> </tr> </table> </FORM> <% else %> <br><br><center> <b><font face="VnArial" size="5" color="#FF0000">Kh«ng t×m thÊy kÕt qu¶</font></b> <center> <% Đề á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 . <p><font face=".VnArialH" size=" ;5& quot; color="#000080"><strong>KÕt qu¶ t×m kiÕm</strong></font></p> </blockquote> <%. 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. <td width=" ;5% " bgcolor="#FFFFFF" align="center"><font color="#800000"><%=i%></font></td> <td width=" 75% " bgcolor="#FFFFFF"><font