サンプルコードで学ぶASP » 基本構文 http://asp.verygoodtown.com レガシーなASPの使い方をコード付きで紹介します。 Tue, 13 Apr 2010 02:25:06 +0000 http://wordpress.org/?v=2.9.1 ja hourly 1 フォームからのデータを全て表示する http://asp.verygoodtown.com/2010/03/post-get-foreach http://asp.verygoodtown.com/2010/03/post-get-foreach#comments Tue, 30 Mar 2010 11:20:56 +0000 admin http://asp.verygoodtown.com/?p=1263 フォームから送信されたデータを全て表示するサンプルを紹介します。

フォームのデータはすべて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
<html>
<head>
<title>フォームからのデータを全て表示する</title>
</head>
<body>
<%
For each str In Request.QueryString

    Response.write("<p>" & str & “ = ” & _
    Request.QueryString(str) & "</p>")

Next

For each str In Request.Form

    Response.write("<p>" & str & “ = ” & _
    Request.Form(str) & "</p>")

Next
%>
</body>
</html>
]]> http://asp.verygoodtown.com/2010/03/post-get-foreach/feed 0 ユーザー定義関数 http://asp.verygoodtown.com/2009/08/user-definition-function http://asp.verygoodtown.com/2009/08/user-definition-function#comments Tue, 04 Aug 2009 15:16:22 +0000 admin http://asp.verygoodtown.com/?p=52 　プログラムを作成していくと、何度も同じ記述をすることがあります。
このような時はユーザー定義関数として1つの処理にまとめるとソースが解析しやすくなり、修正も簡単に行えるようになります。
ここではSubプロシージャとFunctionプロシージャを使ったサンプルを紹介します。

Subプロシージャを使うと処理のまとまりに名前をつけてスクリプトから呼び出すことができます。
Functionプロシージャも同様にまとまった処理を定義できますが、Functionプロシージャは値を返す事ができます。

sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<%
'パラメータの無い関数
Sub disp_err_message()
  Response.Write "<p>エラーが発生しました。</p>"
End Sub

disp_err_message()

'パラメータのある関数
Sub disp_err_message2(val)
Response.Write "<p>" & val & "</p>"
End Sub

disp_err_message2("エラーが発生しました。")
'パラメータを関数に渡して処理する時は、カッコの中にパラメータをつけて定義し
'呼び出す時にパラメータを指定して処理します。
%>

Function

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
<%@ Language=VBScript %>
<html>
<head>
<title>ユーザー定義関数を使用する</title>
</head>
<body>
<%

'値を返す関数
Function disp_err_message(val)

  disp_err_message = ""

  If val <> "" then
    disp_err_message = "エラーです。"
  Else
    disp_err_message = "エラーはありません。"
  End If

End Function

Response.Write disp_err_message("エラー")

%>
</body>
</html>

ユーザー定義関数を呼び出す
Call を使用することで、カッコ内に複数の引数を渡すことができます。

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
<%@ Language=VBScript %>
<html>
<head>
<title>ユーザー定義関数を使用する</title>
</head>
<body>
<%

Function disp_keisan(val,str)

  If IsNumeric(val) and IsNumeric(str) then
    Response.Write val * str
  Else
    Response.Write 0
  End If

End Function

'どちらも同じ結果になります。
'Callを使用すると括弧が使用できます。

'例1
Call disp_keisan(10,20)

'例2
disp_keisan val,str

%>
</body>
</html>
]]> http://asp.verygoodtown.com/2009/08/user-definition-function/feed 0 条件分岐 http://asp.verygoodtown.com/2009/08/if-els http://asp.verygoodtown.com/2009/08/if-els#comments Tue, 04 Aug 2009 15:10:10 +0000 admin http://asp.verygoodtown.com/?p=46 　プログラムのポイントとして、ある条件を満たす場合の処理と満たさない場合の処理を切り分けていくことがあります。
ASPでのIF文の記述方法を説明します。

　「もし○○なら、○○をする」というように条件によって処理を切り替える際には、Ifステートメントを使用します。
「Else」をつける事で条件に満たさないときの処理を記述します。
分岐させたい条件がいくつかある場合は、Select Caseステートメントを使って条件分岐させるとコードが見やすくなります。

If Then

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<%@ Language=VBScript %>
<html>
<head>
<titile>条件分岐</title>
</head>
<body>
<%
  i = 1
  If i = 1 Then
    Response.Write "iは1です。"
  ElseIf i = 2 Then
    Response.Write "iは2です。"
  Else
    Response.Write "iは1と2以外です。"
  End If
%>
</body>
</html>

Select Case

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
<%@ Language=VBScript %>
<html>
<head>
<titile>条件分岐</title>
</head>
<body>
<%
  i = 1
  Select Case i
  Case 1
    Response.Write "iは1です。"
  Case 2
    Response.Write "iは2です。"
  Case Else
    Response.Write "iは1と2以外です。"
  End Select
%>
</body>
</html>

上記の2つの例は同じ結果を表示します。
条件が多い場合はSelect文の方が可視性にすぐれるため、状況に応じて使い分けましょう。

If文を省略記述する

論理型の値を条件にする事で省略記述する事が可能です。

論理型は「True」と「False」を判断条件として使える便利なデータ型です。たとえばユーザー名はデータベースにあるか？「True」or「False」などの使い方があります。 数値の0、null(ヌル)、Falseが「False」として扱われ、数値の1とTrueが「True」として扱われます。

1
2
3
4
5
6
7
8
9
10
11
<%@ Language=VBScript %>
<%

boolean = True

If boolean Then
  Response.Write "booleanはTrueです。"
ElseIf Not boolean Then
  Response.Write "booleanはFalseです。"
End If
%>
]]> http://asp.verygoodtown.com/2009/08/if-els/feed 0 繰り返し http://asp.verygoodtown.com/2009/08/for-until-while http://asp.verygoodtown.com/2009/08/for-until-while#comments Tue, 04 Aug 2009 15:05:09 +0000 admin http://asp.verygoodtown.com/?p=44 　処理の繰り返しは処理分岐と共に、プログラムを作成するときに何度も用いる重要な記述です。

繰り返し(ループ)処理をうまく使えば、効率的な処理、すっきりしたプログラムを作成することができます。
ループ処理でのポイントは、終了条件を正しく設定することです。この部分を間違えると無限ループに陥ってしまいます。
　ここでは、「 For Next 」「 Do Until 」「While Wend」を使用して、処理を繰り返すサンプルについて解説します。
仕組みとしては、処理を繰り返して、条件が満たされたら繰り返しを終了して次の処理に進むというものです。 Do Untilは、データベースからデータを取り出すときに最後のデータまで表示するという処理でよく使われます。

For Next

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<%@ Language=VBScript %>
<html>
<head>
<titile>繰り返し</title>
</head>
<body>
<%
  For i = 0 to 10
    Response.Write i
  Next
%>
<%
  For i = 0 to 10 Step -1
    Response.Write i
  Next
</body>
</html>

上記スクリプトでは、0から10を表示しその後、10から0までを表示しています。Stepの値でどれくらいの間隔で変数を変化させるか指定できます。

Do Until

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<%@ Language=VBScript %>
<html>
<head>
<titile>繰り返し</title>
</head>
<body>
<%
  i = 1
  Do Until i > 5
    Response.write "<font size="""  & i & """>だんだん文字が大きくなります。</font>"
    i = i + 1
  Loop
%>
</body>
</html>

文字列を繰り返し表示して、フォントを大きくしています。この構文を使うときは無限ループにならないように気をつけてください。サンプルでは変数iが5より大きくなるまで処理を繰り返していますが、
「i = i + 1」の文を記述して変数iをカウントアップしないと、永久に処理が続いてしまいます。

While Wend

1
2
3
4
5
6
7
8
<%@ Language=VBScript %>
<%
cntI = 0
While cntI<=5
    Response.Write cntI & "<br />"
    cntI = cntI +1
Wend
%>

処理を繰り返すときにきをつけなければならないことは、繰り返し処理をきっちりと終了させることです。 繰り返しの終了条件がいつまでも満たされないと、いつまでも処理がループしてしまい、無限ループになってしまいます。 もしもメール送信プログラムを無限ループさせてしまうと、とんでもないことになってしまいます。
無限ループの原因はいくつかあると思いますが、ループの終了を判定するカウンタがうまく指定されていないことがあげられます。 たとえば処理Aを5回繰り返すときに、カウンタ「i」が5になったかどうかを判定に使うとします。 このときに「i=5」のようにカウンタは5かという判定をすると危険です。 もし何らかの事情でiが6以上になってしまった場合は、i=5 は満たされずに無限ループになってしまいます。 このような場合は、「>=」や「<=」のような比較をして、iが5以上の場合に終了といった条件を指定した方がよいでしょう。

]]> http://asp.verygoodtown.com/2009/08/for-until-while/feed 0 Hello world! http://asp.verygoodtown.com/2009/08/hello-world http://asp.verygoodtown.com/2009/08/hello-world#comments Tue, 04 Aug 2009 05:57:03 +0000 admin http://asp.mcmahon.asia/?p=1 まず最初は、文字列を出力するだけの簡単なサンプルから見ていきましょう。

ASPに限らず、作成した最初のスクリプトをブラウザに表示するまでは意外と苦戦してしまうこともあります。
簡単なスクリプトで表示できないときは、サーバーの設定をもう一度見直してみましょう。

通常のプログラミング言語と異なり、ASP は「HTML の部分」と「プログラムの部分」の二つに分かれます。
これは、ASPがWebアプリケーションを作成するために作られた言語だからです。

ただ、HTMLとプログラムは、サーバが行うべき処理が違っています。
HTML部分はブラウザにそのまま送られますが、プログラム部分は、実行してから、その結果をブラウザに送るという形で処理されます。

ですから、HTMLの部分とプログラムの部分は、サーバが区別できるようになっている必要があります。
そのために、<% ... %> という特殊な表現を記述します。

例えば、次のようになります。
文字列を表示するには　Response.Write　を使います。(<%=はResponse.Writeの省略した書き方です。)

例1 Response.Writeを使ってみる

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<%@ Language=VBScript %>
<html>
<head>
<title>Hello World</title>
</head>
<body>
<%
Response.Write "Hello World"
%>
<%
' プログラム部分はいくつあってもかまいません。
%>
<%="Hello Wold"%>
</body>
</html>

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

1
2
3
4
5
6
7
8
9
<html>
<head>
<title>Hello World</title>
</head>
<body>
Hello World
Hello Wold
</body>
</html>

例2　全てのHTMLをASPで出力する

1
2
3
4
5
6
7
8
9
10
11
<%@ Language=VBScript %>
<%
Response.Write "<html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<title>Hello World</title>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body>" & vbCrLf
Response.Write "Hello World" & vbCrLf
Response.Write "</body>" & vbCrLf
Response.Write "</html>" & vbCrLf
%>

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

1
2
3
4
5
6
7
8
<html>
<head>
<title>Hello World</title>
</head>
<body>
Hello World
</body>
</html>

どうですか？きちんと表示されましたか?

また、「’」 からはじまって「改行」までがコメントとして扱われます。
コメントに記述する内容は、プログラムとして実行されませんので、どんな内容でもかまいません。日本語でももちろん大丈夫です。

サーバ上で動作するスクリプトについて

ASPファイルはサーバ上で動作するスクリプトです。
クライアントがページにアクセスしてきた際にサーバ上でスクリプトを実行し、クライアントのブラウザには処理結果のHTMLを送り返します。
このようなスクリプトをサーバーサイドスクリプトといいます。
例えば、googleやYahoo! などの検索エンジンはキーワードを入力するエリアがあり、何個かのキーワードを入れるとそのキーワードに関連するwebページがでてきます。
これを静的なHTMLでやるとすると大変な労力が必要になりますが、サーバサイドスクリプトならは簡単にできてしまいます。

では、サーバ上で実行されるASPと、JavaScriptなどのようにクライアント上で実行されるスクリプトでは、何が違うのでしょうか?
JavaScriptはクライアントマシン上で実行されるため、ロジックを含む全ページを取得しブラウザでスクリプトを解釈して実行されます。
しかしこれではネットワークに余分な負荷をかけたり、JavaScriptを解釈するブラウザによっては動作しない場合があります。
これに対してASPはスクリプトの実行がサーバー上で行われます。クライアントの要求に従ってHTMLを生成し、完成したHTMLを送信します。
従って、ブラウザの違いによって動作が異なるということはありません。

]]> http://asp.verygoodtown.com/2009/08/hello-world/feed 0 ASPスクリプトのポイント http://asp.verygoodtown.com/2009/08/asp-point http://asp.verygoodtown.com/2009/08/asp-point#comments Tue, 04 Aug 2009 01:34:53 +0000 admin http://asp.mcmahon.asia/?p=34 これからASPスクリプトについて学習する方や、HTMLを作成してきて動的なサイトの学習をしようとする方は多いようです。 まずはHTMLとASPで記述されたスクリプトの違いなどの基礎的な部分から説明します。

HTMLとASPはどこが違うか

HTMLタグで構成されるHTMLファイルとスクリプトで構成されるASPファイルの違いは「動的」か「静的」かの違いです。
最近ブログ等をやられている方は多いと思いますが、ブログはテンプレートが一枚あってそれのメニューを変更したり、内容を投稿すれば新しいページがどんどん増えていきます。 その元のテンプレートがHTML(静的)で、記事の内容とメニュー一覧がスクリプト(動的)になります。 これを全てHTMLでやろうとすると、何か修正があったときに全てのページを変更しなければなりませんが、動的に生成したファイルならば一つのスクリプトページを変更するだけで全てのページが変更される場合が多いです。 ですので、大量にページを作ろうとするときは動的なスクリプトを用いた方がよいでしょう。

ASPファイルの記述のしかた

では、ASPスクリプトはどのように記述すればよいのでしょうか？
HTMLをHTMLタグで記述するように、ASPもASPのコードを記述します。 次回から実際に作成してみましょう

]]> http://asp.verygoodtown.com/2009/08/asp-point/feed 0 使用する言語の宣言 http://asp.verygoodtown.com/2009/07/the-declaration-of-the-language-to-use http://asp.verygoodtown.com/2009/07/the-declaration-of-the-language-to-use#comments Fri, 31 Jul 2009 03:00:45 +0000 admin http://asp.mcmahon.asia/?p=10 使用する言語を設定するサンプルです。

Webサーバに対して使用する言語を明示的に宣言します。

JScriptを使用する場合は VBSCRIPTの代わりに JScriptと宣言します。この宣言は ASPファイルで一回しか使用できません。複数記述してもエラーとなってしまいます。

VBScriptを使用する場合

1
<%@ LANGUAGE = VBSCRIPT %>

設定にもよりますが、VBScriptを使用する場合には ほとんどの場合この宣言は省略可能です。

JavaScriptを使用する場合

1
<%@ LANGUAGE = JScript %>

サーバーサイドJavascriptを使う事もできます。

Perlを使用する場合

1
2
3
<script language="PerlScript" runat="Server">
    //ここにPerlのソースを記述
</script>

この <%…%> で囲まれている部分が ASPの命令を記述する部分です。この部分に記述されているスクリプトが Webサーバ側で処理して結果を出力したりします。それ以外の場所は通常の html同様にブラウザに出力されます。また <% ～ %> の記述はスクリプト内で複数回記述する事が出来ます。

]]> http://asp.verygoodtown.com/2009/07/the-declaration-of-the-language-to-use/feed 0 ASPとは http://asp.verygoodtown.com/2009/07/with-asp http://asp.verygoodtown.com/2009/07/with-asp#comments Thu, 30 Jul 2009 06:13:22 +0000 admin http://asp.mcmahon.asia/?p=3 ASPについて説明します。

ASPとは Active Server Pages の略でサーバーサイドのスクリプト言語です。
ASPを使う事で、静的ウェブサイトをダイナミックに変えさせる事ができます。

CGIと同じように ASPは技術の事を指しますので ASP言語といったものがあるわけではありません。

ASPではVBScript、 JavaScript、 Perlといったスクリプト言語を使用できますが、
このチュートリアルではVBScriptでコードを記述して行こうと思います。（その方が一般的じゃないかな？）

一応知っている必要があるもの

HTMLコードの知識が必要です。あなたが簡単なHTMLでもよいので、サイトを作れるとさらに理解が早まります。

それでは次回からコードを交えて説明していきます。

good Luck!!

]]> http://asp.verygoodtown.com/2009/07/with-asp/feed 0