Giáo trình quan chế cấu trúc chuyên môn trong hệ thống xử lý thông tin với cấp độ xử lý giao dịch p5 pps

§Ò ¸n M«n häc
Sinh Viªn : TrÇn Trung ThuËn
</tr>
<tr>
<td width="100%" bgcolor="#99CCCC"
height="20"><div align="center"><center><table
border="0" width="90%" cellspacing="0"
cellpadding="0">
<tr>
<td width="22%">&nbsp;</td>
<td width="78%">&nbsp;</td>
</tr>
<tr>
<td width="22%">Địa bàn</td>
<td width="78%">
<%
Call
ListBox("DiaBan","MaVung","TenTinh","Select * From Tinh",0)
%>
</td>
</tr>
<tr>
<td width="22%">Họ </td>
<td width="78%"><input type="text" name="Ho"
size="40"></td>
</tr>
<tr>
<td width="22%">Tên</td>
<td width="78%"><input type="text" name="Ten"
size="40"></td>
</tr>

<tr>
<td width="22%">Địa chỉ</td>
§Ò ¸n M«n häc
Sinh Viªn : TrÇn Trung ThuËn
<td width="78%"><input type="text"
name="DiaChi" size="40"></td>
</tr>
<tr>
<td width="22%">Điện Thoại</td>
<td width="78%"><input type="text"
name="DienThoai" size="40"></td>
</tr>
<tr>
<td width="22%">&nbsp;</td>
<td width="78%">&nbsp;</td>
</tr>
</table>
</center></div></td>
</tr>
<tr>
<td width="100%" bgcolor="#99CCCC" height="21"
align="center"><input type="submit"
value="Tìm kiếm" name="MySubmit">&nbsp; <input
type="reset" value="Nhập Lại" name="B2"></td>
</tr>
</table>
</td>
</tr>
</table>
</center></div><p>&nbsp;</p>

</form>
<%
End Sub
''''''''''''''''''''''''''''''''''''''''''
Sub ListBox(Name,Ma,Ten,SQL,Cur)
Cur=Cstr(Cur)
§Ò ¸n M«n häc
Sinh Viªn : TrÇn Trung ThuËn
rs.Open SQL,Conn
%><select name='<%=Name%>'><option value=''></option><%
Do While not rs.Eof
%><option value='<%=rs(Ma)%>'<%
if rs(Ma)=Cur Then
Response.write(" Selected")
End if
%>><%=rs(Ma)%>: <%=rs(Ten)%></option><%
rs.MoveNext
Loop
Response.write("</select>")
rs.close
End Sub
''''''''''''''''''''''''''''''''''''''''''
Sub ListBoxTrang(Name,num,cur,Submit)
Dim i
%><select name='<%=Name%>' style='font-family: .VnTime;
font-size=12pt'<%
If Submit Then
Response.write(" onChange='submit()'>")
Else
Response.write(">")

End if
For i=1 to num
%><option value='<%=i%>'<%
If i=cur Then
Response.write(" selected")
End if
%>><%=i%></option><%
Next
ResPonse.write("</select>")
End Sub
§Ò ¸n M«n häc
Sinh Viªn : TrÇn Trung ThuËn
''''''''''''''''''''''''''''''''''''''''''
Function MyFilter(vMaVung,vHo,vTen,vDiaChi,vSDT)
Dim strTemp
strTemp=""
if vMaVung<>"" then
strTemp=strTemp+" And MaVung='"+vMaVung+"'"
end if
if vHo<>"" then
strTemp=strTemp+" And InStr(Ho,'"+vHo+"')"
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
§Ò ¸n M«n häc
Sinh Viªn : TrÇn Trung ThuËn
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><%

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 >
§Ò ¸n M«n häc
Sinh Viªn : TrÇn Trung ThuËn
<%
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
'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>
§Ò ¸n M«n häc
Sinh Viªn : TrÇn Trung ThuËn
</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>
<td width="5%" bgcolor="#FFFFFF" align="center"><font
color="#800000"><%=i%></font></td>
<td width="75%" bgcolor="#FFFFFF"><font
color="#0000FF"><strong>
§Ò ¸n M«n häc
Sinh Viªn : TrÇn Trung ThuËn
<%=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("SoDien
Thoai")%></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>

§Ò ¸n M«n häc
Sinh Viªn : TrÇn Trung ThuËn
<b><font face="VnArial" size="5" color="#FF0000">Không tìm
thấy kết quả</font></b>
<center>
<%
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)
§Ò ¸n M«n häc
Sinh Viªn : TrÇn Trung ThuËn
SoDienThoai=""
MaVung=""
Ho=""
Ten=""
DiaChi=""
else
ErrorStr="Bạn cha nhập đủ thông tin"
end if
end if

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

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()
%>