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 5 pps

§Ò ¸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