サンプルコードで学ぶASP

文字を含むかチェックする

admin — Tue, 13 Apr 2010 02:25:06 +0000

特定の文字を含むかチェックする方法を説明します。

特定の文字列が含まれるかチェックするにはInStrかInStrRevを使用します。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

<%

Dim data
data = Request.Form("data")

Dim checkData
checkData = "サンプル"

If InStr(data,checkData) > 0 Then
Response.Write data & "に" & checkData & "は含まれています"
Else
Response.Write data & "に" & checkData & "は含まれています"
End If

If InStrRev(data,checkData) > 0 Then
Response.Write data & "に" & checkData & "は含まれています"
Else
Response.Write data & "に" & checkData & "は含まれています"
End If
%>

InStrRev

admin — Mon, 12 Apr 2010 13:24:15 +0000

InStrRev — ある文字列の中から指定した文字列を最後から検索し、最初に見つかった文字列の開始位置を返します。

構文

InStr (haystack, needle, [,start] [,mode])

パラメータ

haystack: 入力文字列
needle: 検索する文字列
start: 検索する開始位置を指定します。
この引数を省略した場合は文字列の最後から検索します
mode: 省略可能です。文字列比較モードを指定します。”vbBinaryCompare” 又は “0″ を指定するとバイナリモードで比較を行い、大文字小文字を区別します。”vbTextCompare” 又は “1″ を指定するとテキストモードで比較を行い、大文字小文字を区別しません。デフォルトはバイナリモードで比較します。

戻り値

パラメータの値	戻り値
haystackが空文字（”"）	Null
haystackがNull	0
needleが空文字（”"）	startを返します。
needleがNull	Null
needleが見つからない	0
needleが見つかった	見つかった位置を返します。
startがhaystackの長さより大きい	0

説明

文字列が見つかった場合は、開始位置を数値で返します。文字列が見つからなかった場合は 0またはnullが返されます。

例

VBScript

1
2
3
4
5
6
7

Dim str1,str2
str1 = "今日は晴れています。やっぱり晴れは良いですね。"
If InStrRev(str1,"晴れ") > 0 Then
Response.Write "晴れ"
Else
Response.Write "晴れ以外"
End If

InStr

admin — Sat, 10 Apr 2010 05:49:19 +0000

InStr — ある文字列の中から指定した文字列を検索し、最初に見つかった文字列の開始位置を返します。

構文

InStr ([start, ] haystack, needle [, mode])

パラメータ

start: 検索する開始位置を指定します。
この引数を省略した場合は文字列の先頭から検索します
haystack: 入力文字列
needle: 検索する文字列
mode: 省略可能です。文字列比較モードを指定します。”vbBinaryCompare” 又は “0″ を指定するとバイナリモードで比較を行い、大文字小文字を区別します。”vbTextCompare” 又は “1″ を指定するとテキストモードで比較を行い、大文字小文字を区別しません。デフォルトはバイナリモードで比較します。

戻り値

パラメータの値	戻り値
haystackが空文字（”"）	0
haystackがNull	0
needleが空文字（”"）	startを返します。
needleがNull	Null
needleが見つからない	0
needleが見つかった	見つかった位置を返します。
startがhaystackの長さより大きい	0

説明

文字列が見つかった場合は、開始位置を数値で返します。文字列が見つからなかった場合は 0またはnullが返されます。

例

VBScript

1
2
3
4
5
6
7

Dim str1,str2
str1 = "今日は晴れています"
If InStr(str1,"晴れ") > 0 Then
Response.Write "晴れ"
Else
Response.Write "晴れ以外"
End If

POSTされたかどうかをチェックする

admin — Mon, 05 Apr 2010 00:49:31 +0000

データがPOSTされたかどうかはPOSTの値の数を調べる事でチェックする事ができます。
やり方をご説明します。

Countプロパティを使用

Request.Form.Countを使用する事でPOSTされた値の数を取得する事ができます。
この値が1以上の場合には、POSTされたと見なしてOKです。

1
2
3
4
5

If Request.Form.Count > 0 Then
For Each key In Request.Form
Response.Write "

" & key & " = " & Request.Form(key) & "

"
Next
End If

フォームからのデータを全て表示する

admin — Tue, 30 Mar 2010 11:20:56 +0000

フォームから送信されたデータを全て表示するサンプルを紹介します。

フォームのデータはすべてRequestオブジェクトに格納されています。
Requestオブジェクトはforeachでループ処理をすることができます。

サンプルではGETされたデータ、POSTされたデータを全て表示しています。

For eachで値を全て表示する

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

フォームからのデータを全て表示する

<%
For each str In Request.QueryString

Response.write("

" & str & “ = ” & _
Request.QueryString(str) & "

")

Next

For each str In Request.Form

Response.write("

" & str & “ = ” & _
Request.Form(str) & "

")

Next
%>

フォームのデータを受け取る

admin — Sun, 28 Mar 2010 21:10:04 +0000

フォームから送信された値を受け取る方法を見ていきます。
POSTおよびGETの受け取り方を説明します。

フォームから送信された値を受けとるには Request.QueryString と Request.Form を使います。

POSTの値を受け取る

1
2
3

<%
Response.Write(Request.Form("text1"))
%>

GETの値を受け取る

1
2
3

<%
Response.Write(Request.QueryString("text1"))
%>

Page Counter コンポーネント

admin — Tue, 01 Sep 2009 02:11:24 +0000

Page Counter コンポーネントは、Web ページが開かれた回数を数えて表示する PageCounter オブジェクトを作成します。PageCounter オブジェクトは、一定の間隔でヒット数をテキストファイルに書き込み、サーバーがシャットダウンした場合でもデータが失われないようにします。Page Counter コンポーネントは、内部の Central Management オブジェクトを使用して、アプリケーション内の各ページが開かれた回数を記録します。

Server.CreateObject メソッドを使用してページ上に PageCounter オブジェクトのインスタンスが作成されると、その PageCounter オブジェクトは、指定された Web ページの現在のヒット数を Central Management オブジェクトから取得します。その後は、PageCounter オブジェクトが公開するメソッドでオブジェクトを操作できます。

詳しくは以下

構文

Set oVar = Server.CreateObject( “MSWC.PageCounter” )

パラメータ

oVar: Server.CreateObject を呼び出して作成する PageCounter オブジェクトの名前を指定します。

メソッド

Hits: 指定された URL が開かれた回数を表示します。
PageHit: ヒット数をインクリメントします。
Reset: 指定されたページのヒット数を 0 に設定します。

例

1
2
3
4
5
6
7
8
9

<%
Set MyPageCounter = Server.CreateObject( "MSWC.PageCounter" )
HitMe = MyPageCounter.Hits
If HitMe = 1000000 Then
%>
You are the lucky 1,000,000th Customer!!!

<% Else %>
Sorry, you are customer #<% = HitMe %>

<% End If %>

Counters コンポーネント

admin — Tue, 01 Sep 2009 02:09:18 +0000

Counters コンポーネントは、Counters オブジェクトを作成します。このオブジェクトは、任意の数のカウンタの作成、格納、インクリメント、および取得を行います。

詳しくは以下

カウンタは永続的な値で、整数を含んでいます。カウンタを操作するには、Counters オブジェクトの Get メソッド、Increment メソッド、Set メソッド、および Remove メソッドを使用します。作成したカウンタは、削除するまで持続します。

カウンタの値は、ページヒットなどのイベントで自動的には増加しません。Set メソッドおよび Increment メソッドを使用して、手動でカウンタを設定またはインクリメントする必要があります。

カウンタはスコープの制限を受けません。いったんカウンタを作成すると、サイト上の任意のページからカウンタの値を取得したり操作したりできます。たとえば、Page1.asp というページで hits という名前のカウンタの値をインクリメントして表示し、別の Page2.asp というページで hits の値をインクリメントする場合、どちらのページも同じカウンタの値をインクリメントすることになります。Page1.asp にヒットして hits の値を 34 にインクリメントした場合、Page2.asp にヒットすると hits の値は 35 にインクリメントします。次に Page1.asp にヒットすると、hits の値は 36 にインクリメントします。

すべてのカウンタは、単一のテキストファイル、Counters.txt に格納されます。このファイルは、counters.dll ファイルと同じディレクトリに配置されています。

説明

サイト上では 1 つだけ Counters オブジェクトを作成するようにしてください。1 つの Counters オブジェクトだけで、任意の数のカウンタを作成できます。

注 Windows 95 以降のインターネットインフォメーションサービスでは、Counters コンポーネントは、既定の仮想ディレクトリ内の Global.asa ファイルで既に指定されています。Counters.Get、Counters.Increment、Counters.Remove、および Counters.Set を呼び出すことで、コンポーネントが作成する Counters オブジェクトを組み込みオブジェクトであるかのように使用できます。Counters オブジェクトの別のインスタンスを作成する必要はありません。

メソッド

Get: カウンタの値を返します。
Increment: カウンタの値を 1 つインクリメントします。
Remove: Counters.txt ファイルからカウンタを削除します。
Set: 指定した整数をカウンタの値に設定します。

Content Rotator コンポーネント

admin — Tue, 01 Sep 2009 02:07:16 +0000

Content Rotator コンポーネントは ContentRotator オブジェクトを作成します。

Content Rotator コンポーネントについて詳しく説明します。

このオブジェクトは、Web ページ上の HTML コンテンツ文字列を自動的に交換します。ユーザーが Web ページを要求するたびに、ContentRotator オブジェクトはコンテンツスケジュールファイルに指定された情報に基づいて、新しい HTML コンテンツ文字列を表示します。

コンテンツ文字列には HTML タグを使用できるため、テキスト、イメージ、ハイパーリンクなど、HTML で表現できるコンテンツはすべて表示できます。たとえば、Content Rotator コンポーネントを使用して、引用やハイパーリンクを日替わりで表示したり、Web ページが開かれるたびに本文と背景の色を変更したりできます。

構文

Set oVar = Server.CreateObject( “MSWC.ContentRotator” )
パラメータ

oVar: Server.CreateObject を呼び出して作成する ContentRotator オブジェクトの名前を指定します。

メソッド

ChooseContent: コンテンツ文字列を取得し、表示します。
GetAllContent: コンテンツスケジュールファイルのすべてのコンテンツ文字列を取得し、表示します。

説明

ContentRotator オブジェクトは、乱数ジェネレータを使用して、重み付けされたコンテンツ文字列の中から表示する文字列を選択するため、同じ文字列が繰り返し表示される場合があります。特に繰り返しが発生しやすいのは、コンテンツスケジュールファイル内のエントリが少ない場合、またはほかのエントリに比べ、特定のエントリの重み付けが著しく大きい場合です。

例

1
2
3
4

<%
Set Tip = Server.CreateObject( "MSWC.ContentRotator" )
Tip.ChooseContent( "/Tips/Content.txt" )
%>

AdRotator コンポーネント

admin — Tue, 01 Sep 2009 01:59:53 +0000

Ad Rotator コンポーネントは、Ad Rotator オブジェクトを作成します。

Ad Rotator コンポーネントについて詳しく説明します。

このオブジェクトは、Web ページ上の広告イメージを自動的に交換します。
ユーザーが Web ページを開いたり、Web ページを読み込み直すたびに、Ad Rotator コンポーネントは、ロテータスケジュールファイルに指定された情報に基づき、新しい広告を表示します。

また、各広告をクリックしたユーザー数を記録する事もできます。
そのためには、ロテータスケジュールファイルの URL パラメータを設定して、ユーザーをリダイレクトファイルに送ります。
このパラメータを指定すると、広告主の URL へのジャンプはすべて Web サーバーの利用状況のログに記録されます。

構文

Set AdRotator = Server.CreateObject( “MSWC.AdRotator” )

パラメータ

AdRotator: Server.CreateObject を呼び出して作成する AdRotator オブジェクトの名前を指定します。

プロパティ

Border: 広告を囲む枠のサイズを指定します。
Clickable: 広告がハイパーリンクかどうかを指定します。
TargetFrame: 広告を表示するフレームの名前を指定します。

メソッド

GetAdvertisement: データファイルから次に予定されている広告の指定を取得し、HTML 形式で返します。

例

1
2
3
4

<%
Set ad = Server.CreateObject( "MSWC.AdRotator" )
ad.GetAdvertisement( "/ads/adrot.txt" )
%>

上の例の出力は以下となります。

[html light="true"]

ALT= "Check out the new Technology Center"
WIDTH=440 HEIGHT=60 BORDER=1>