推奨:Parse ASPインスタンス:スライドニュースコード参照されるコンテンツは次のとおりです。! - これはホームページファイルです - > HTML> head>メタhttp-equiv = content-type content =
1。レコードセットオブジェクトを作成します
| 以下は引用されたコンテンツです。 Dim objmyrst objmyrst = server.createObject(adodb.Recordset)を設定します objmyrst.cursorlocation = aduseclientBatch 'クライアントはバッチ処理できます objmyrst.cursortype = adopenstatic 'カーソルタイプは静的です |
注:set objmyrst = connection.excute strsqlのステートメントを使用してRecordSetオブジェクトを作成できません。これが作成したレコードセットオブジェクトは、採用されたレコードセットページネーションをサポートしていないためです。
2。レコードセットオブジェクトを開きます
| 以下は引用されたコンテンツです。 dim strsql strsql = select * from ietable objmyrst.oepn strsql、activeconnection、adcmdtext 3. Recordsetのページサイズプロパティを設定します objmyrst.pagesize = 20 デフォルトのページサイズは10です |
3. RecordSetのAbsoluatePageプロパティを設定します
| 以下は引用されたコンテンツです。 dim intcurrentPage intcurrentPage = 1 objmyrst.absolutepage = intcurrentpage AbsoluTepageはレコードセットオブジェクトのPageCount値の1です |
4.データを表示します
| 以下は引用されたコンテンツです。 Response.Write(<table>) printfieldname(objmyrst) i = 1からobjmyrst.pagesizeの場合 printfieldvalue(objmyrst) objmyrst.movenext objmyrst.eofの場合は、enedを終了します 次 respons.write(</table>) |
説明:
1.採用、adusecilentBatch、adcmdtextは、adovbs.incによって定義された定数です。使用する場合は、Adovbs.incを現在のディレクトリにコピーして、プログラムに含めてください。
| 以下は引用されたコンテンツです。 <! - #file = adovbs.incを含める - > 2。PrintFielNameおよびPrintFieldValue関数のコードは次のとおりです。 <% function printfieldname(objmyrst) 'パラメーターobjmyrstはレコードセットオブジェクトです 'カウントを定義します dim objfld Response.Write <TR BGCOLOR = '#CCCCCC'> objmyrst.fieldsの各objfldについて respons.write <td>&objfld.name&</td> 次 respons.write(</tr>) エンド関数 function printfieldvalue(objmyrst) 'パラメーターobjmyrstはレコードセットオブジェクトです 'カウントを定義します dim objfld respons.write(<tr>) objmyrst.fieldsの各objfldについて 'Response.Write <TD>&objmyrst.Fields(intloop).Value&</td> respons.write <td>&objfld.value&</td> 次 respons.write(<tr>) エンド関数 %> |
共有:マルチキーワードクエリのコードを解釈しますWeb開発では、私はしばしば単一のフィールドクエリの複数のキーワードペアに遭遇します。これは通常、動的配列を通じて実装します。もちろん、複数のキーワードは通常、スペースで区切られています。複数のキーワードがスペースで区切られ、キーワード文字列はキーストリーで、特定のコードは