To be dynamic or static. Let me give you the news first. This problem I have been for a long time, you are lucky to have ready-made to you, the following written function
' Manual Paging by identity
function Manualpage (str)
Pages=request. QueryString ("page")
Contentstr=split (str, "{$page $}")
Response.Write (CONTENTSTR (pages))
Response.Write ("Response.Write ("For i = 0 To UBound (CONTENTSTR)
Response.Write ("Next
Response.Write ("End Function
' Paging by length
function
Sub AutoPage ()
Dim Maxpagelen,page,content,pagenumber,articleid
Dim Contentlen
Dim beginpoint,endpoint
maxpagelen=1000
Content=ubbcode (RS ("content"))
Articleid=rs ("ArticleID")
Contentlen=len (content)
Page=request. QueryString ("page")
If Contentlen
Response. Write Content
Else
If page= "" Then
Page=1
Else
Page=cint (page)
End If
If Pagenumber*maxpagelen
Pagenumberpagenumber=pagenumber+1
End If
Page
A jQuery-based full-screen advertising image focus chart, jquery full-screen
I have previously shared many jQuery focus graph plug-ins. The jQuery full-screen ad image focus graph plug-in we will introduce today is also very good, and the image switching has a fade-out animation effect, and it is also quite smooth. As follows:
Download Online Preview source code
Implementation code.
Html code:
Js Code:
$(document).ready(function () { $(".prev,.next").hover(function () {
that performs the effect must be an ID object!) )
Illustrations >>
Titcell
1.0
". HD Li"
Navigation Element Object
Illustrations >>
Maincell
1.0
". BD"
Toggle element's Wrap Layer object
Illustrations >>
AutoPage
1.0
False
System automatic paging, to be used in conjunction with Titcell, if true, then titcell as the navigation element of the wrap-laye
4.0 syntax to implement automatic paging requires only two methods, skip ()----Skip the specified element in the sequence, take ()-----Return the specified number of elements from the beginning of the sequence.The general use of automatic paging is no refresh, you can display the data, with the local page encapsulation, each time the paging is asynchronous to obtain a partial page.Shopbackdatacontextsc =New Shopbackdatacontext();//linq to SQL class/// ///Automatic Paging/// /// T
%
Sub AutoPage ()
Dim Maxpagelen,page,content,pagenumber,articleid
Dim Contentlen
Dim beginpoint,endpoint
Maxpagelen=1000
content=Ubbcode(rs ("content"))
ArticleID=rs("ArticleID")
contentlen=len (content)
page=request. QueryString ("page")
If Contentlen=maxpagelen Then
Response. Write Content
Else
If page="" Then
page=1
Else
page=Cint(page)
End If
If Pagenumber*maxpagelenContentlen Then
pagenumber pagen
The following is the content of several articles over the long implementation of the page source code.
' Manual Paging by identityfunction Manualpage (str)Pages=request. QueryString ("page")Contentstr=split (str, "{$page $}")Response.Write (CONTENTSTR (pages))Response.Write ("Response.Write ("For i = 0 To UBound (CONTENTSTR)Response.Write ("NextResponse.Write ("End Function
' Paging by lengthfunction AutoPage (st
The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion;
products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the
content of the page makes you feel confusing, please write us an email, we will handle the problem
within 5 days after receiving your email.
If you find any instances of plagiarism from the community, please send an email to:
info-contact@alibabacloud.com
and provide relevant evidence. A staff member will contact you within 5 working days.