地址簿定位按鈕

地址簿定位按鈕

地址簿應用程序在 Web 頁的底部顯示定位按鈕。通過選定數據的第一行或最后一行，或者通過選定與當前所選行相鄰的行，可以使用定位按鈕在網格顯示中給數據定位。

下列代碼定義定位按鈕。這些 HTML 語句出現在程序的 VBScript 節(jié)之前。請復制并粘貼這些控件到引用它們的注釋標記的后面。

<INPUT TYPE=BUTTON NAME="First"       VALUE="First">

<INPUT TYPE=BUTTON NAME="Prev"       VALUE="Previous">

<INPUT TYPE=BUTTON NAME="Next"      VALUE="Next">

<INPUT TYPE=BUTTON NAME="Last"      VALUE="Last">

HTML 使用標記 INPUT 定義窗體元素，例如按鈕、選項按鈕、復選框或文本。參數 TYPE 指定窗體元素的類型，在這里即是按鈕。參數 NAME 定義代碼中按鈕被調用的內容。參數 VALUE 指定與頁面中顯示的按鈕(“第一”、“上一個”、“下一個”和“最后”)關聯的標簽。

用戶單擊按鈕時，生成事件，VBScript 激活相應的定位子過程。

定位子過程

地址簿應用程序包含若干過程，使用戶可以單擊“第一”、“下一個”、“上一個”和“最后”按鈕以便在數據中移動。要啟用移動，可指定 RDS.DataControl 對象 (Scontrol) 的方法為所需的移動類型。定位按鈕的方法各不相同。

例如，單擊“第一”按鈕激活 VBScript First_OnClick 子過程。該過程調用 MoveFirst 方法，使數據的第一行成為當前行。單擊“最后”按鈕激活 Last_OnClick 子過程，該過程調用 MoveLast 方法，使數據的最后行成為當前行。其余的定位按鈕類似。請復制并粘貼該代碼到標記 SCRIPT 和 /SCRIPT 之間。

' 在綁定的記錄集中移動到第一個記錄。

Sub First_OnClick

   SControl.Recordset.MoveFirst

End Sub

' 在綁定的記錄集中從當前位置移動到下一個記錄。

Sub Next_OnClick

   If SControl.Recordset.EOF Then   'cannot move beyond bottom record

      SControl.Recordset.MoveFirst

      SControl.Recordset.MoveNext

      Exit Sub

   End If

   SControl.Recordset.MoveNext

End Sub

' 在綁定的記錄集中從當前位置移動到前一個記錄。

Sub Prev_OnClick

   If SControl.Recordset.BOF Then   '移動無法超出頂端記錄

      SControl.Recordset.MoveLast   '移出 BOF 緩沖區(qū)

      SControl.Recordset.MovePrevious

      Exit Sub

   End If

   SControl.Recordset.MovePrevious

End Sub

' 移動到綁定記錄集的最后一個記錄。

   SControl.Recordset.MoveLast

End Sub