Imitation PHP Pagination written ASP
Related Tags:
'Paging procedures
'Total_records total number of records
'Everypage_records per page of the few
'Current_page current page
'Url to convey the url to convey here can contain variables, such as "list.asp?" Or "list.asp? & Key = keyword"
'Calling a relatively simple procedure, but was higher than the trouble of PHP to continue efforts
Sub show_page (total_records, everypage_records, current_page, url)
If IsNumeric (total_records) then
Total_records = Int (total_records)
Else
Total_records = 0
End if
If IsNumeric (everypage_records) then
Everypage_records = Int (everypage_records)
If everypage_records <= 0 then
Everypage_records = 10
End if
Else
Everypage_records = 10
End if
If IsNumeric (current_page) then
Current_page = Int (current_page)
Else
Current_page = 1
End if
'From the total number of pages, the final one
If total_records mod everypage_records = 0 then
Last_page = Int (total_records / everypage_records)
Else
Last_page = Int (total_records / everypage_records) 1
End if
'Judgement current_page compliance with the standard, with value to the page
If current_page> = last_page then
Page = last_page
Elseif current_page <= 1 then
Page = 1
Else
Page = current_page
End if
'Back
If page <= 0 then
Prepg = 0
Else
Prepg = page-1
End if
'Next
If page = last_page then
Nextpg = 0
Else
Nextpg page = 1
End if
'Page record
* = Prepg firstcount everypage_records
'Records of the end of this page
If nextpg> = 1 then
Lastcount = (nextpg-1) * everypage_records
Else
Lastcount = total_records
End if
'Began paging navigation of the code
Pagenav = ""
Pagenav1 = ""
Pagenav pagenav & = "revealed that the first <b>" & & firstcount &"-"& lastcount "</ b> records were <b>" & & total_records "</ b> Records"
Pagenav1 & pagenav1 = "revealed that the first <b>" & & firstcount &"-"& lastcount "</ b> records were <b>" & & total_records "</ b> Records"
If last_page> 1 then
'When a page before and after
Pagenav pagenav & = "<a href='"&url&"page=1'> Home </ a>"
Pagenav1 = pagenav1 & "<a href='"&url&"page=1'> Home </ a>"
If prepg> = 1 then
Pagenav pagenav & = "<a href='"&url&"page="&prepg&"'> Previous </ a>"
Pagenav1 = pagenav1 & "<a href='"&url&"page="&prepg&"'> Previous </ a>"
Else
Pagenav pagenav & = "Previous"
Pagenav1 = pagenav1 & "Previous"
End if
If nextpg> = 1 then
Pagenav pagenav & = "<a href='"&url&"page="&nextpg&"'> after page </ a>"
Pagenav1 = pagenav1 & "<a href='"&url&"page="&nextpg&"'> after page </ a>"
Else
Pagenav pagenav & = "page"
Pagenav1 & pagenav1 = "page"
End if
Pagenav pagenav & = "<a href='"&url&"page="&last_page&"'> Last </ a>"
Pagenav1 = pagenav1 & "<a href='"&url&"page="&last_page&"'> Last </ a>"
Pagenav pagenav & = "to the section <input type = text name = text100 id = text100 value =" & & page "size = 3> page <input type button name = = = button100 value go onclick = 'window.location ="""& & url" page = "" text100.value '> "
Pagenav pagenav & = "total" last_page & & "page"
Pagenav1 = pagenav1 & "to the section <input type = text name = text101 id = text101 value =" & & page "size = 3> page <input type button name = = = button101 value go onclick = 'window.location ="""& & url" page = "" text101.value '> "
Pagenav1 = pagenav1 & "of" & & last_page "page"
End if
End sub
%>
- WAP technology in the ASP V.
- Flash in the use of ASP technology
- Dreamweaver ASP produced two dynamic menu
- FLASH database applications with ASP
- Multifunctional only provide a SQL statement can be printed, CSS page-function control of the ASP
- Use Dreamweaver ASP paging technology to achieve the reference
- Imitation PHP Pagination written ASP
- PHP and ASP call in Dreamweaver 8 IE preview
- DHTML ASP + + XML + CSS = directory tree
- Using ASP + CSS realize website random background
- WAP technology in the ASP 6
- Flash and the integration of database applications Asp
- HTML pages of the parameters to achieve (similar to ASP)
- HTML pages to accept the same parameters as the asp
- Flash and ASP communications experiment
- FrontPage to create HTML / ASP pages mixed
- Asp and simple AJAX applications
- All commonly used language reference manual for manual HTML | CSS manuals | JScript Manual | VbScript Manual | ASP Manual | PHP Manual | SQL manual | Site effects | ADO Manual
- Using ASP + CSS Random background
- Flash asp xml messages this tutorial
[Original] css style tips: on the links-style settings!
We often use the following mode links css style: A: link ( Color: # 2D8002; Text-decoration: underline; ) A: hover ( Color: # FF0000; Text-decoration: none; ) A: visi...
Fireworks 8 Fulfill Your Dream Tour (9): Produced pop-up menus
On one: Making realistic water 6, CSS format pop-up menus derived production The pop-up menu making, and we have not focused on this part of the teaching, local control of the CSS format is the need our attention. Therefore, this section through a sim...
On the point on Ajax responseText
For a period of time before encountered such a problem, Ajax received from the background information how the Chinese are empty. Later, information found online, mostly by the following. GET used AJAX to back a page, RESPONSETEXT inside the Chinese will likely be a...
Price on how to FLASH
FLASH from the current three years ago a network animation lovers' small workshop 'hobbies, and today's development into a new art form and business practices. As we all know, the merits or demerits of a complete FLASH can be affected by the overall network business ...