DREAMWEAVER分页算法实现：ASP实例详解

<%
'分页算法 结合了Dreamweaver的分页算法
dim PageRecordCount,TotalRecordsetCount
 PageRecordCount=10                     '**************设置
 TotalRecordsetCount=Recordset1_total   '**************设置
''''''''''''''''''''''''''''''''''''''' 
dim gPageCount,gCurPage,CurOffset

gPageCount=int((TotalRecordsetCount+PageRecordCount-1)/PageRecordCount)
CurOffset=trim(request("offset") & "")
if CurOffset="-1" then    CurOffset=(gPageCount-1)*10
gCurPage=CurOffset/PageRecordCount  + 1
if gCurPage>gPageCount then gCurPage=gPageCount

function gPageSelectList
 for i=1 to gPageCount
   s=""
   if i=gCurPage then s=" selected=""selected"" " 
  gPageSelectList= gPageSelectList & "<option value="""& i & """  " & s &">" & i & "</option>" & vbcrlf
 next
end function

nowoffset= "offset=" &request.QueryString("offset")
response.Write " <script>" & vbcrlf
response.Write " function goPage(PageId){//1为首页，0或-1为最后页" & vbcrlf
response.Write "  var gPageCount="&gPageCount&"; " & vbcrlf
response.Write "  if (PageId<=0){PageId=gPageCount};"& vbcrlf
response.Write "  var aurl=window.location.href+''; " & vbcrlf
response.Write "  var tooffset='offset='+(PageId-1)*10; " & vbcrlf