asp的offset的一个go to page第1/2页

答案：
 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> 
<!--#include file="Connections/conn.asp" --> 
<% 
Dim Recordset1 
Dim Recordset1_cmd 
Dim Recordset1_numRows 
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") 
Recordset1_cmd.ActiveConnection = MM_conn_STRING 
Recordset1_cmd.CommandText = "SELECT * FROM list" 
Recordset1_cmd.Prepared = true 
Set Recordset1 = Recordset1_cmd.Execute 
Recordset1_numRows = 0 
%> 
<% 
Dim Repeat1__numRows 
Dim Repeat1__index 
Repeat1__numRows = 2 
Repeat1__index = 0 
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows 
%> 
<% 
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables 
Dim Recordset1_total 
Dim Recordset1_first 
Dim Recordset1_last 
' set the record count 
Recordset1_total = Recordset1.RecordCount 
' set the number of rows displayed on this page 
If (Recordset1_numRows < 0) Then 
  Recordset1_numRows = Recordset1_total 
Elseif (Recordset1_numRows = 0) Then 
  Recordset1_numRows = 1 
End If 
' set the first and last displayed record 
Recordset1_first = 1 
Recordset1_last  = Recordset1_first + Recordset1_numRows - 1 
' if we have the correct record count, check the other stats 
If (Recordset1_total <> -1) Then 
  If (Recordset1_first > Recordset1_total) Then 
    Recordset1_first = Recordset1_total 
  End If 
  If (Recordset1_last > Recordset1_total) Then 
    Recordset1_last = Recordset1_total 
  End If 
  If (Recordset1_numRows > Recordset1_total) Then 
    Recordset1_numRows = Recordset1_total 
  End If 
End If 
%> 
<% 
' *** Recordset Stats: if we don't know the record count, manually count them 
If (Recordset1_total = -1) Then 
  ' count the total records by iterating through the recordset 
  Recordset1_total=0 
  While (Not Recordset1.EOF) 
    Recordset1_total = Recordset1_total + 1 
    Recordset1.MoveNext 
  Wend 
  ' reset the cursor to the beginning 
  If (Recordset1.CursorType > 0) Then 
    Recordset1.MoveFirst 
  Else 
    Recordset1.Requery 
  End If 
  ' set the number of rows displayed on this page 
  If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then 
    Recordset1_numRows = Recordset1_total 
  End If 
  ' set the first and last displayed record 
  Recordset1_first = 1 
  Recordset1_last = Recordset1_first + Recordset1_numRows - 1 
  If (Recordset1_first > Recordset1_total) Then 
    Recordset1_first = Recordset1_total 
  End If 
  If (Recordset1_last > Recordset1_total) Then 
    Recordset1_last = Recordset1_total 
  End If 
End If 
%> 
<% 
Dim MM_paramName 
%> 
<% 
' *** Move To Record and Go To Record: declare variables 
Dim MM_rs 
Dim MM_rsCount 
Dim MM_size 
Dim MM_uniqueCol 
Dim MM_offset 
Dim MM_atTotal 
Dim MM_paramIsDefined 
Dim MM_param 
Dim MM_index 
Set MM_rs    = Recordset1 
MM_rsCount   = Recordset1_total 
MM_size      = Recordset1_numRows 
MM_uniqueCol = "id" 
MM_paramName = "page" 
MM_offset = 0 
MM_atTotal = false 
MM_paramIsDefined = false 
If (MM_paramName <> "") Then 
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") 
End If 
%> 
<% 
' *** Move To Record: handle 'index' or 'offset' parameter 
if (Not MM_paramIsDefined And MM_rsCount <> 0) then 
  ' use index parameter if defined, otherwise use offset parameter 
  MM_param = Request.QueryString("index") 
  If (MM_param = "") Then 
    MM_param = Request.QueryString("offset") 
  End If 
  If (MM_param <> "") Then 
    MM_offset = Int(MM_param) 
  End If 
  ' if we have a record count, check if we are past the end of the recordset 
  If (MM_rsCount <> -1) Then 
    If (MM_offset >= MM_rsCount Or MM_offset = -1) Then  ' past end or move last 
      If ((MM_rsCount Mod MM_size) > 0) Then         ' last page not a full repeat region 
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) 
      Else 
        MM_offset = MM_rsCount - MM_size 
      End If 
    End If 
  End If 
  ' move the cursor to the selected record 
  MM_index = 0 
  While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1)) 
    MM_rs.MoveNext 
    MM_index = MM_index + 1 
  Wend 
  If (MM_rs.EOF) Then 
    MM_offset = MM_index  ' set MM_offset to the last possible record 
  End If 
End If 
%> 
<% 
' *** Move To Specific Record: handle detail parameter 
If (MM_paramIsDefined And MM_rsCount <> 0) Then 
  ' get the value of the parameter 
  MM_param = Request.QueryString(MM_paramName) 
  ' find the record with the unique column value equal to the parameter value 
  MM_offset = 0 
  Do While (Not MM_rs.EOF) 
    If (CStr(MM_rs.Fields.Item(MM_uniqueCol).Value) = MM_param) Then 
      Exit Do 
    End If 
    MM_offset = MM_offset + 1 
    MM_rs.MoveNext 
  Loop 
  ' if not found, set the number of records and reset the cursor 
  If (MM_rs.EOF) Then 
    If (MM_rsCount < 0) Then 
      MM_rsCount = MM_offset 
    End If 
    If (MM_size < 0 Or MM_size > MM_offset) Then 
      MM_size = MM_offset 
    End If 
    MM_offset = 0 
    ' reset the cursor to the beginning 
    If (MM_rs.CursorType > 0) Then 
      MM_rs.MoveFirst 
    Else 
      MM_rs.Close 
      MM_rs.Open 
    End If 
  End If 
End If 
%> 
<% 
' *** Move To Record: if we dont know the record count, check the display range 
If (MM_rsCount = -1) Then 
  ' walk to the end of the display range for this page 
  MM_index = MM_offset 
  While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size)) 
    MM_rs.MoveNext 
    MM_index = MM_index + 1 
  Wend 
  ' if we walked off the end of the recordset, set MM_rsCount and MM_size 
  If (MM_rs.EOF) Then 
    MM_rsCount = MM_index 
    If (MM_size < 0 Or MM_size > MM_rsCount) Then 
      MM_size = MM_rsCount 
    End If 
  End If 
  ' if we walked off the end, set the offset based on page size 
  If (MM_rs.EOF And Not MM_paramIsDefined) Then 
    If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then 
      If ((MM_rsCount Mod MM_size) > 0) Then 
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) 
      Else 
        MM_offset = MM_rsCount - MM_size 
      End If 
    End If 
  End If 
  ' reset the cursor to the beginning 
  If (MM_rs.CursorType > 0) Then 
    MM_rs.MoveFirst 
  Else 
    MM_rs.Requery 
  End If 
  ' move the cursor to the selected record 
  MM_index = 0 
  While (Not MM_rs.EOF And MM_index < MM_offset) 
    MM_rs.MoveNext 
    MM_index = MM_index + 1 
  Wend 
End If 
%> 
<% 
' *** Move To Record: update recordset stats 
' set the first and last displayed record 
Recordset1_first = MM_offset + 1 
Recordset1_last  = MM_offset + MM_size 
If (MM_rsCount <> -1) Then 
  If (Recordset1_first > MM_rsCount) Then 
    Recordset1_first = MM_rsCount 
  End If 
  If (Recordset1_last > MM_rsCount) Then 
    Recordset1_last = MM_rsCount 
  End If 
End If 
' set the boolean used by hide region to check if we are on the last record 
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) 
%> 

上一个：asp中command的在单条记录时,有些字段显示为空的问题
下一个：提高SQL的执行效率的ASP的五种做法