推奨：FilesystemObjectサンプルコードこのセクションで説明したサンプルコードでは、FilesystemObjectオブジェクトパターンで利用可能な多くの機能を説明するために、実際の例を示しています。このコードは、オブジェクトパターンを一緒に使用する方法のすべての機能と、独自のコードで効果的に使用する方法を示しています
まず、アクセスデータベースを作成します。ライブラリにurlindexテーブルがあり、次のように、URLとキーワードフィールドがそれぞれインデックス化されています。
| 以下は引用されたコンテンツです。 URLテキスト（インデックス：（重複なし）） タイトルテキスト 説明テキスト 要約テキスト キーワードテキスト（インデックス：（重複なし）） |
プログラムファイルdoquery.asp、code：
| 以下は引用されたコンテンツです。 <html> <head> <title>シンプルな検索エンジン</title> </head> <body bgcolor =＃ffffff marginwidth = 0 marginheight = 0 leftmargin = 0 topmargin = 0> <form method = post action = doquery.asp？act = search> クエリ：<入力タイプ=テキスト名= QueryString> <br> <入力タイプ=送信値=送信> </form> </center> <％ 薄暗い行為 act = request（act） if（act = search）then queryString = request.form（querystring） querywords = split（querystring） strindent = 「検索が空の場合は、返品してください queryString = thenの場合 Response.redirect（default.asp） ifを終了します session.timeout = 2 ifisobject（session（sitesearch_conn））then set conn = session（sitesearch_conn） それ以外 conn = server.createObject（adodb.connection）を設定します conn.open driver = {microsoftアクセスドライバー（*.mdb）}; dbq =＆server.mappath（database/sitesearch.mdb）,, セットセッション（sitesearch_conn）= conn ifを終了します 'クエリステートメント sql = select * from [urlindex] where '説明フィールドを検索します sql = sql＆（[説明] '％＆querywords（0）＆％' ' i = lbound（querywords）1からubound（querywords）の場合 querywords（i）<> and ucase（querywords（i））<>またはand ucase（querywords（i））<> ucase（querywords（i-1））=またはthenの場合 sql = sql＆または[description] like '％＆querywords（i）＆％' それ以外 sql = sql＆and [description] like '％＆querywords（i）＆％' ifを終了します ifを終了します 次 'キーワードフィールドを検索します sql = sql＆）または（[keywords] like '％＆querywords（0）＆％' i = lbound（querywords）1からubound（querywords）の場合 querywords（i）<> and ucase（querywords（i））<>またはand ucase（querywords（i））<> ucase（querywords（i-1））=またはthenの場合 sql = sql＆または[キーワード] '％＆querywords（i）＆％' それ以外 sql = sql＆and [keywords] fike '％＆querywords（i）＆％' ifを終了します ifを終了します 次 'タイトルフィールドを検索します sql = sql＆）または（[title] like '％＆querywords（0）＆％' i = lbound（querywords）1からubound（querywords）の場合 querywords（i）<> and ucase（querywords（i））<>またはand ucase（querywords（i））<> ucase（querywords（i-1））=またはthenの場合 sql = sql＆または[title] like '％＆querywords（i）＆％' それ以外 sql = sql＆and [title] like '％＆querywords（i）＆％' ifを終了します ifを終了します 次 '概要フィールドを検索します sql = sql＆）または（[summary] like '％＆querywords（0）＆％' i = lbound（querywords）1からubound（querywords）の場合 querywords（i）<> and ucase（querywords（i））<>またはand ucase（querywords（i））<> ucase（querywords（i-1））=またはthenの場合 sql = sql＆または[summary] like '％＆querywords（i）＆％' それ以外 sql = sql＆and [summary] like '％＆querywords（i）＆％' ifを終了します ifを終了します 次 sql = sql＆） ' rs = server.createObject（adodb.Recordset）を設定します rs.open sql、conn、3、3 respons.write <br> <b>検索：</b>＆querstringを検索しています Response.Write <br> <b>キーワードの検索：</b> i = lbound（querywords）からubound（querywords）の場合 Response.Write <br>＆strindent＆i＆：＆querywords（i） 次 'SQL文字列を印刷します Response.Write <br> <b> sqlステートメント：</b>＆sql '結果を印刷します Response.Write <br> <b>結果：</b> <ul> エラーの再開時に次に再開します rs.MoveFirst rs.eofではありません respons.write <br>＆<a href = 'openpage.asp？indexurl =＆rs.fields（url）.value＆'>＆rs.fields（title）＆</a> - Response.Write Rs.Fields（説明）＆<br> Response.write <font size = 2> url：＆rs.fields（url）＆</font> Response.Write <hr size = 1 width = 200 align = left> rs.movenext ループ Response.Write </ul> ifを終了します ％> </body> </html> |
共有：ログイン検証ページを作成する方法ユーザーログイン検証スクリプト、chkpwd.asp以下は参照されているコンテンツです：％ '========ユーザーログイン検証スクリプト======'渡されたオブジェクトがまだ定義されていない場合、それはfalseとして定義され、