|
 |
| |
ผู้รู้ช่วยตอบด้วยครับ ต้องการจะแสดงรูปขึ้นมาอีกตารางหนึ่งทำไงครับโดยให้รูปนั้นเปลี่ยนไปตามชื่อนักศึกษา |
| |
 |
|
|
 |
 |
|
ฐานข้อมูลครับ
<%
pageLen = 10
pageNo = request.QueryString("pageNo")
if pageNo="" then pageNo = 1
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("DB/DATA.mdb"),"" , ""
sql ="Select std_48.id, std_48.st_code, std_48.st_name, Major.MajorName, Facalty.FacName, Major.Course FROM Facalty INNER JOIN (Major INNER JOIN std_48 ON Major.MajorCode = std_48.MajID) ON Facalty.FacCode = std_48.FacID"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
Nrecord=RS.recordcount
Rs.pageSize = pageLen
totalPage = Rs.PageCount
Rs.absolutePage = pageNo
If Rs.EOF Then
%>
ไม่มีข้อมูลในตาราง !
<%Else%>
</p>
<table border="1">
<tr bgcolor="Silver">
<td>id</td>
<td>st_code</td>
<td>st_name</td>
<td>MajorName</td>
<td>FacName</td>
<td>Course</td>
</tr>
<%
recNo=1
Do While Not RS.EOF and recNo <= pageLen
%>
<tr>
<td><%= Rs("Id")%></td>
<td><%= Rs("st_code")%></td>
<td><%= Rs("st_name")%></td>
<td><%= Rs("MajorName")%></td>
<td><%= Rs("FacName")%></td>
<td><%= Rs("Course")%></td>
</tr>
<%
recNo=recNo+1
RS.MoveNext
Loop
rs.close
conn.close
%>
</table>
<%
end if
%>
<br>
<br>
จำนวน: <%=Nrecord%> รายการ<br>
ขณะนี้อยู่หน้า <%=pageNo%> ในทั้งหมด <%=totalPage%> หน้า
<%
if cint(pageno) > 1 then %>
<br>
<a href="sample1.asp?pageNo=1">หน้าแรก</a> <a href="sample1.asp?pageNo=<%=pageNo-1%>">ย้อนกลับ</a>
<% end if
if cint(pageno) < totalPage then %>
<a href="sample1.asp?pageNo=<%=pageNo+1%>">หน้าต่อไป</a> <a href="sample1.asp?pageNo=<%=totalPage%>">หน้าสุดท้าย</a>
<%
end if
%>
<br>
กระโดดไปหน้า
<%for idx = 1 to totalPage
%>
<a href="sample1.asp?pageNo=<%=idx%>">
<% if idx=cint(pageno) then%>
<b><%=idx%></b>
<%else %>
<%=idx%>
<%end if%>
</a>
<%
next%>
|
 |
 |
 |
 |
| Date :
31 ธ.ค. 2548 23:27:39 |
By :
kang1234 |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|
| |
|
 Load balance : Server 05
|
