Tài liệu Bài thực hành số 6: ADO, Phân trang với Recordseự doc

Thiết kế trang DEFAULT.ASP cho phép hiển thị các thông tin về sinh viên như sau: Chú ý: - Sử dụng kỹ thuật phân trang - Các chức năng ADD, EDIT, DELETE để thực hiên các chức năng thêm mớ

Trang 1

1 Tạo CSDL HOSO.MDB và thiết kế các bảng dữ liệu có cấu trúc như sau:

Tạo quan hệ giữa 2 bảng như sau:

2 Thiết kế trang DEFAULT.ASP cho phép hiển thị các thông tin về sinh viên như sau:

Chú ý:

- Sử dụng kỹ thuật phân trang

- Các chức năng ADD, EDIT, DELETE để thực hiên các chức năng thêm mới, sửa, xóa các bản ghi

- Nhấn vào Mã SV cho phép liên kết đến trang xem tổng hợp thông tin cá nhân về SV đó (Ví dụ: Profile.asp)

Bảng Sinhvien

Bảng Tinh

Trang 2

3 Yêu cầu thiết giao diện các trang thêm mới và sửa như sau:

- Giao diện cập nhật SV mới

- Giao diện thay đổi thông tin cá nhân 1 SV đã nhập

MÃ NGUỒN MẦU

File Connection.inc

<%

FilePath=Server.Mappath("Hoso.mdb")

Set Conn=Server.CreateObject("ADODB.COnnection")

StrConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath

Conn.Open strConn

Set RS=Server.CreateObject("ADODB.Recordset")

%>

File Default.asp

<! #include file=Connection.inc >

<%

'Su dung Query trong Access de tao xau truy van nhu duoi day

StrSQL="SELECT SinhVien.*, [Tinh].[Tentinh] FROM Tinh INNER JOIN SinhVien ON [Tinh]

[MaTinh]=[SinhVien].[MaTinh];"

'Dat thuoc tinh cho RS co kha nang phan trang

RS.CursorLocation=3

RS.Pagesize=3

RS.Open StrSQL,Conn,0,1

'Xac dinh trang hien thoi

Session("CurrenPage")=1

If request("PageID")<>"" then

Session("CurrenPage")=Cint(request("PageID"))

End if

Trang 3

If not(RS.eof or RS.bof) then

RS.Absolutepage=Session("CurrenPage")

End if

%>

<html>

<head>

<title>Phân trang với RS</title>

</head>

<body>

<tr>

<td>Sở thích</td>

</tr>

<%

i=RS.Pagesize*(Session("CurrenPage")-1)

While not RS.eof and RS.AbsolutePage=Session("CurrenPage")

i=i+1

%>

<tr>

<td><input type="radio" value=<%=RS.Fields("MaSV")%> checked name="RdoSua"></td> <td><input type="checkbox" name="chkXoa" value=<%=RS.Fields("MaSV")%>></td>

<td>

<%

If RS.Fields("Gioitinh") then

Response.Write("Nam")

Else

Response.Write("Nu")

End if

%>

</td>

</tr>

Trang 4

RS.MoveNext

Wend

%>

</table>

<tr>

<%If Session("CurrenPage")=1 then

Response.write("Back")

Else%>

<%End if%>

</td>

<%

k1=Session("CurrenPage")-1

k2=Session("CurrenPage")+1

If k1<1 then k1=1

If k2>RS.PageCount then k2=RS.PageCount

For i=k1 to k2

Response.write (" ")

If i=Session("CurrenPage") then

Response.write(i)

Else%>

<%End if Next

%>

</td>

<%If Session("CurrenPage")=RS.PageCount then

Response.write("Next")

Else%>

<a href=Default.asp?PageID=<%=Session("CurrenPage")+1%>>Next</a> <%End if

RS.Close

%>

</td>

</tr>

</table>

</form>

</body>

</html>

File Xuly_Default.asp

<%

if request.form("cmdAdd")<>"" then

response.redirect("Them.asp")

end if

if request.form("cmdEdit")<>"" then

session("MaSV")=request.form("rdoSua")

response.redirect("Sua.asp")

end if

Trang 5

if request.form("cmdDelete")<>"" then

%>

<! #include file=xoa.asp >

<%

end if

%>

File Them.asp

<%

StrSQL="Select * from Tinh Order By Tentinh"

RS.Open StrSQL,Conn

%>

<html>

<head>

</head>

<body>

<tr>

<td><input type="radio" value="Nam" checked name="rdoGT">Nam

<input type="radio" name="rdoGT" value="Nu">Nữ

</td>

</tr> <tr><td>Tuổi</td><td><input type="text" name="txtTuoi" size="12"></td> </tr>

<td>

<%For i=1 to 31%>

<option <%if i=day(date()) then%> selected <%End if%> value=<%=i%>><%=i%></option> <%Next%>

</select>

<%For i=1 to 12%>

<option <%if i=month(date()) then%> selected <%End if%> value=<%=i%>><%=i%></option> <%Next%>

</select>

<%For i=1970 to year(date())%>

<%Next%>

</select></td>

</tr>

<tr>

<td>

<%

While not Rs.eof

Trang 6

%>

<%

RS.MoveNext

Wend

RS.Close

%>

</select></td>

</tr>

<tr>

<td><input type="checkbox" name="chkST" value="Du lich">Du lịch

<input type="checkbox" name="chkST" value="The thao">Thể thao

<input type="checkbox" name="chkST" value="Xem TV">Xem TV

<input type="checkbox" name="chkST" value="Ca nhac">Ca nhạc

</td>

</tr>

</tr>

</table>

</form>

</body>

</html>

File Xuly_them.asp

<%

StrSQL="Select * from Sinhvien"

RS.AddNew

RS.Fields("MaSV")=request.form("txtMaSV")

RS.Fields("Hoten")=request.form("txtHoten")

RS.Fields("MaSV")=request.form("txtMaSV")

If Request.form("rdoGT")="Nam" then

RS.Fields("Gioitinh")=True

else

RS.Fields("Gioitinh")=False

End if

RS.Fields("Tuoi")=request.form("txtTuoi")

ND=request.form("optThang")&"/"&request.form("optNgay")&"/"&request.form("optNam")

RS.Fields("NgayDoan")=Cdate(ND)

RS.Fields("Matinh")=request.form("optTinh")

RS.Fields("Sothich")=request.form("chkST")

RS.Update

RS.Close

response.redirect("Default.asp")

%>

File Sua.asp

<%

StrSQL="Select * from Tinh Order By Tentinh"

RS.Open StrSQL,Conn

StrSQL1="Select * from Sinhvien Where MaSV='" & session("MaSV") & "'"

Set RS1=Server.CreateObject("ADODB.Recordset")

RS1.Open StrSQL1,Conn

%>

Trang 7

<head>

<title>Sửa thông tin SV</title>

</head>

<body>

<b>SUA THÔNG TIN SINH VIÊN</b>

<tr>

<td>

</tr>

<tr>

<td>

<input type="radio" value="Nam" <%if rs1.fields("Gioitinh") then%> checked <%End if%>

name="rdoGT">Nam

<input type="radio" name="rdoGT" <%if Not rs1.fields("Gioitinh") then%> checked <%End if%> value="Nu">Nữ

</td>

</tr>

<tr>

</tr>

<tr>

<td>

<%For i=1 to 31%>

<option <%if i=day(rs1.fields("Ngaydoan")) then%> selected <%End if%> value=<%=i%>><%=i

%></option>

<%Next%>

</select>

<%For i=1 to 12%>

<option <%if i=Month(rs1.fields("Ngaydoan")) then%> selected <%End if%> value=<%=i%>><

%=i%></option>

<%Next%>

</select>

<%For i=1970 to year(date())%>

<option <%if i=year(rs1.fields("Ngaydoan")) then%> selected <%End if%> value=<%=i%>><

%=i%></option>

<%Next%>

</select></td>

</tr>

<td>

Trang 8

<%

While not Rs.eof

%>

<option <%if RS.Fields("Matinh")=RS1.Fields("Matinh") then%> Selected <%End if%> value=<%=RS.Fields("Matinh")%>><%=RS.Fields("TenTinh")%></option>

<%

RS.MoveNext

Wend

%>

</select></td>

</tr>

<tr>

<td>

<input type="checkbox" name="chkST" value="Du lich" <%if

instr(Ucase(rs1.fields("Sothich")),ucase("Du lich"))>0 then%> checked <%End if%>>Du lịch

<input type="checkbox" name="chkST" value="The thao" <%if

instr(Ucase(rs1.fields("Sothich")),ucase("The thao"))>0 then%> checked <%End if%>>Thể thao

<input type="checkbox" name="chkST" value="Xem TV" <%if

instr(ucase(rs1.fields("Sothich")),ucase("Xem TV"))>0 then%> checked <%End if%>>Xem TV

<input type="checkbox" name="chkST" value="Ca nhac" <%if

instr(ucase(rs1.fields("Sothich")),ucase("Ca nhac"))>0 then%> checked <%End if%>>Ca nhạc</td> </tr>

<tr>

</td>

</tr>

</table>

</form>

<%

rs.Close

rs1.Close

%>

</body>

</html>

File Xuly_sua.asp

<%

StrSQL="Select * from Sinhvien Where MaSV='" & session("MaSV") & "'"

RS.Fields("Hoten")=request.form("txtHoten")

If Request.form("rdoGT")="Nam" then

RS.Fields("Gioitinh")=True

else

RS.Fields("Gioitinh")=False

End if

RS.Fields("Tuoi")=request.form("txtTuoi")

ND=request.form("optThang")&"/"&request.form("optNgay")&"/"&request.form("optNam")

RS.Fields("NgayDoan")=Cdate(ND)

RS.Fields("Matinh")=request.form("optTinh")

RS.Fields("Sothich")=request.form("chkST")

RS.Update

RS.Close

response.redirect("Default.asp")

%>

Trang 9

File Xoa.asp

<%

For i=1 to request.form("chkXoa").Count

If request.form("chkXoa")(i)<>"" then

StrSQL="Select * from SinhVien Where MaSV='" & request.form("chkXoa")(i) & "'" RS.Open StrSQL,Conn,1,3

RS.Delete RS.Close end if

%>

File Profile.asp

<%

StrSQL="SELECT SinhVien.*, Tinh.* FROM Tinh INNER JOIN SinhVien ON [Tinh]

[MaTinh]=[SinhVien].[MaTinh] WHERE MaSV=' " & request("MaSV_ID") & " ' “

RS.Open StrSQL,Conn

Response.write "Mã SV: " & RS.fields("MaSV") & "<BR>"

Response.write "Họ tên: " & RS.fields("Hoten") & "<BR>"

Response.write "Giới tính: "

If rs.fields("Gioitinh") then

Response.write "Nam" & "<BR>"

else

Response.write "Nữ" & "<BR>"

end if

Response.write "Tuổi: " & RS.fields("Tuoi") & "<BR>"

Response.write "Ngày vào đoàn: " & RS.fields("Ngaydoan") & "<BR>"

Response.write "Tỉnh/Tp: " & RS.fields("Tentinh") & "<BR>"

Response.write "Sở thích: " & RS.fields("Sothich") & "<BR>"

%>

Yêu cầu SV hoàn thiện các phần thêm, sửa, xoá tỉnh

Tiêu đề	Bài thực hành số 6: ADO, Phân trang với Recordset
Tác giả	Lê Anh Tú
Trường học	Đại Học Thái Nguyên
Chuyên ngành	Mạng & Truyền thông
Thể loại	Bài thực hành
Thành phố	Thái Nguyên

Định dạng
Số trang	9
Dung lượng	417,5 KB