Single-page paging code

 

 Sub getcontent (content, num)

Content = Replace (content ,"'","")
Rs. Open "select * from content where c_name = '" & content & "'", Conn, 1, 1
If not Rs. EOF then
If num> 0 then
Temp = RS ("c_content ")
If isnull (temp) Then temp = ""
Response. Write (left (replace (temp, "[pagebreak]", ""), num ))
Else
Temp = RS ("c_content ")
If instr (temp, "[pagebreak]")> 0 then
If request ("page") = "" then
Page = 1
Else
Page = clng (Request ("page "))
End if
Temp = Split (temp, "[pagebreak]")
Response. Write (temp (page-1 ))
Strnext = "<a href = '? "& Filterurl &" & page = "& page + 1 &" '> next page </a>"
Strprev = "<a href = '? "& Filterurl &" & page = "& page-1 &" '> previous page </a>"
Response. Write ("<Div align = center> ")
If page = 1 then
Response. Write (strnext)
Elseif page = ubound (temp) + 1 then
Response. Write (strprev)
Else
Response. Write (strprev)
Response. Write ("& nbsp ;")
Response. Write (strnext)
End if
Response. Write ("</div> ")
Else
Response. Write (RS ("c_content "))
End if
End if
End if
Rs. Close
End sub
Function filterurl
Dim Q
Q = request. querystring
Set Re = new Regexp
Re. pattern = "page = [^ &] *"
Re. Global = true
Re. ignorecase = true
Re. multiline = true
Q = Re. Replace (Q ,"")
Q = Replace (Q ,"? &","? ") 'Remove the first &
If right (Q, 1) = "&" then q = left (Q, Len (q)-1) 'remove the last one &
Filterurl = Q
End Function