<%@ LANGUAGE="VBSCRIPT" %>
<!-- #include file="Samples_DSN.asp" -->
<html>
<head>
<META HTTP-EQUIV="Content-Type" content="text/html; charset=windows-1255">
</head>
<body bgColor=LightSteelBlue>
<BASEFONT Face=Arial>
<BR>
<table Width=90% Align=Center border=0>
<%
set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "select * from notice" 'אם היינו עושים חיפוש המשפט היה שונה
PAGE = Request.QueryString("page")
if PAGE = "" Then PAGE = 1 'לבדוק שבאמת נשלח מספר הדף הנוכחי
NumOfRecInPage = Request.QueryString("numofrec")
if NumOfRecInPage = "" Then NumOfRecInPage = 5 'לבדוק שבאמת נשלח מספר הרשומות בדף
rs.CacheSize = rs.PageSize
rs.PageSize = NumOfRecInPage
rs.Open SQL,Samples_DSN,3,1
NumOfRec = rs.RecordCount
'if Cint(NumofRecInPage) > Cint(NumOfRec) Then NumOfRecInPage = NumOfRec 'לא לאפשר חריגה
NumOfPages = rs.PageCount
CurrentPage = PAGE
rs.AbsolutePage = CurrentPage
RSa = rs.GetRows()
rs.Close
Set rs = Nothing
Response.Write "<TR BGColor=#87bad3>"
Response.Write "<TH>" & NumOfRec & ": סה"כ רשומות</TH>"
Response.Write "<TH>" & NumOfPages & ": מספר הדפים</TH>"
Response.Write "<TH>" & CurrentPage & ": דף נוכחי</TH>"
Response.Write "<TH>" & NumOfRecInPage & ": מספר רשומות בדף</TH>"
Response.Write "</TR>"
Response.Write "<TR><TH Height=40></TH></TR>"
Response.Write "<TR><TH Colspan=4><TABLE Width=50% Border=1>"
Leng = Ubound(RSa,2)
For i = 0 to NumOfRecInPage-1 'לעבור על הסט רשומות כמספר הרשומות שבדף אחד
Response.Write "<TR>"
Response.Write "<th colspan=2>" & rsa(3,I) & "</td>"
Response.Write "<th colspan=2>" & rsa(2,I) & "</td>"
Response.Write "</tr>"
if i = Leng Then i = NumOfRecInPage-1 'לוודא שאין חריגה מהמערך
Next
Response.Write "</TABLE></TH></TR>"
Response.Write "<TR><TH Height=40></TH></TR>"
Pages = ""
For i = 1 to NumOfPages 'קישורים לשינוי הדף הנוכחי
Pages = Pages & " [<A Href=?page=" & i & "&numofrec=" & NumOfRecInPage & ">" & i & "</A>] "
Next
Response.Write "<TR><TH Colspan=4>" & Pages & ": דף נוכחי</TH></TR>"
RecNum = ""
For i = 1 to 10 'קישורים לשינוי מספר הרשומות בדף
RecNum = RecNum & " [<A Href=?page=1&numofrec=" & i & ">" & i & "</A>] "
Next
Response.Write "<TR><TH Colspan=4>" & RecNum & ": מספר רשומות בדף</TH></TR>"
%>
</TABLE>
</CENTER>
</body>
</html>
ראשי
צ'אט
09-07-2005, 12:30
מצב כלאיים
