Codango: ASP Code Snippet

JSP

Share The Love

You are 1 of 20 Active ASP Visitors

ASP Home | Resources | Write a Review | My Favor-Its | Login

Prev & Next Paging documentCode Snippet

Read Reviews | Report Errors

[+][+]

0
Reviews

1
Favor-It

How can we break a large article page into different pages? I'm going to tell you how can we create a << Previous | Next >> Paging capibility in a large article page. Code: ASP 3.0 & VBScript


		Code Snippet

Code Written By: Zeeshan Arshad

A Problem
How can we break a large article page into different pages?

Solution
I'm going to tell you how can we create a << Previous | Next >> Paging capibility in 
a large article page. I'm just writing full code to do that. You will need to set the 
MYBODY variable & ID variable to your Database Recordset. If you need any further 
help for this article feel free to contact me.


****************************************************
Example Text:
My name is Zeeshan. @NEWPAGE 
I'm a Internet Programmer. I love @NEWPAGE Programming.

OUTPUT:

Page 1;
=======

My name is Zeeshan.
            Next Page >>

Page 2;
=======

I'm a Internet Programmer. I love

 << PREVIOUS PAGE        NEXT PAGE >>

PAGE 3:

Programming.

<< PREVIOUS PAGE

****************************************************


Title: PREVIOUS & NEXT PAGING

ASP Coding

<%
'''''''''''''''''
'START OF PAGING
'''''''''''''''''

'First declare our variables
Dim Temp	'Temp Array
Dim PageAction	'Less / Add
Dim PageNo	'Increase or Decrease in page
Dim ID		'Unique ID of our Article/Document 
Dim Body	'This is our Article/Document


PageAction	= Request.QueryString ("PageAction")
PageNo		= Request.QueryString ("PageNo")

Response.Write ("<p>")

'If Page Number contain some value
If PageNo <> "" Then 


'Check is it increasing or decreasing
 If PageNo = 0 OR PageNo > 0 Then 'So do Less or Add into 0
  SELECT CASE PageAction
 Case "Less"  
  PageNo = PageNo-1

 Case "Add"
  PageNo = PageNo+1
  END SELECT

 End If

'If Page No is EMPTY so make Default Page = 0 means First Page
Else 
 PageNo = 0
End If

'Set this Variable to your Article's Body
MyBody = rs("MyBody")

'This sign [@NEWPAGE] is important becz its a breaker for our article
'I'm using SPLIT function of VBScript that breaks a variable into pieces by matching
'an argument. its [@NEWPAGE].
'You can set your own while writing an article

    Temp = Split(MyBody,"@NEWPAGE")
 
 Response.Write (Temp(PageNo))

 Response.Write ("</p> <p align='center'>")

'If page number is greater then show Previous Link
If PageNo > 0 Then
%>
<A href="mypage.asp?PageAction=Less&PageNo<%=PageNo%>&ID=<%=ID%>"> &lt;&lt; Previous 

Page</A>


<%
'Some Spcaces between << PREVIOUS      NEXT>>
Response.Write ("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")

'If page number is not equal to last page then there are more pages
If PageNo <> UBound(Temp) Then
%>

<A href="mypage.asp?PageAction=Add&PageNo<%=PageNo%>&ID=<%=ID%>">Next Page 

&gt;&gt;</A>

<%
 Response.Write ("</p>")

''''''''''''''
END OF PAGING
''''''''''''''
%>

To use the code above, click and drag your mouse over the code to highlight it. Then right click on the highlighted code and click "Copy." Now you may paste it into your code editor.

Submit Your Own Code to Codango


Link to Us \| About Us		Advertise \| Contact Us \| Website Help
Write a User Review Today! Its Fun, Fast, and Easy!	Codango Home \| PHP \| ASP.NET \| ASP \| JSP Advertise With Us \| About Us \| Terms of Use \| Privacy Policy


� 2013 ezd.com, All rights reserved