ASP constructs a paging SQL statement for large amounts of data.

Pagination | data | Statements see the Iron fist stored procedure "To achieve TENS data paging display!" "I think it's good, I changed it to ASP code."

<% @LANGUAGE = "VBSCRIPT" codepage= "936"%>
<%
' Paging SQL statement generates code
Function Getpagesql (Tblname,fldname,pagesize,pageindex,ordertype,strwhere)
Dim Strtemp,strsql,strorder

' Generate related code based on sort method
If Ordertype=0 Then
strtemp= "> (select Max ([& Fldname &])"
Strorder= "ORDER BY [" & Fldname & "] ASC"
Else
Strtemp= "< (select min ([& Fldname &])"
Strorder= "ORDER BY [" & Fldname & "] desc"
End If

' on page 1th, there's no need for complicated statements.
If Pageindex=1 Then
Strtemp= ""
If strwhere<> "" Then
strtmp = "where" + strwhere
End If
strSQL = "SELECT Top" & PageSize & "* from [" & Tblname & "]" & strtmp & Strorder
Else ' If it is not the 1th page, construct the SQL statement
Strsql= ' select Top ' & PageSize & ' * from ["& Tblname &"] where ["& Fldname &"] "& Strtem P & _
"From (select Top & (PageIndex-1) *pagesize &" ["& Fldname &"] from ["& Tblname &"] "
If strwhere<> "" Then
Strsql=strsql & "where" & Strwhere
End If
Strsql=strsql & Strorder & ") as Tbltemp)"
If strwhere<> "" Then
Strsql=strsql & "and" & Strwhere
End If
Strsql=strsql & Strorder
End If
Getpagesql=strsql ' returns the SQL statement
End Function
Response.Write (Getpagesql ("message", "MessageID", 10,1,0, ""))
%>