Application を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードはApplication です。
<%@LANGUAGE=VBScript%>
<% '頭でパラメータのチェックとセット処理
If IsEmpty(Request.QueryString("SETDATA")) = False Then
'データセット位置を決める
no = Application("test042-no") + 1 '番号をカウントアップ
Application("test042-no") = no 'noの代入
setno = no Mod 10 'Modで10で割った余りを計算
'セットするデータを作る no + 時刻 + 書き込みデータ
setdata = no & " " & Now & " - " & Request.QueryString("SETDATA")
Application("test042-" & setno) = Left(setdata,40) 'データのセット
End If
%>
<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>ASP Application("XXXX")変数 を使った伝言板</title>
</head>
<body>
<h2>ASP Application("XXXX")変数 を使った伝言板</h2>
test042-3.asp<br>
<hr>
<% 'アプリケーション変数を表示する
sno = Application("test042-no") '表示スタート番号
For n = 0 To 9 '１０回ループするぞ
putno = (sno - n) Mod 10 '表示する変数を計算 32なら2を表示したい
putdata = Application("test042-" & putno) '値を取出す
Response.Write Server.HTMLEncode(putdata) '<>などを置換えて表示する
Response.Write "<HR>" & Chr(13) & Chr(10)
Next
%>
<br>
<b>伝言メッセージを入れて送信して下さい</b><br>
<FORM ACTION="test042-3.asp" METHOD="GET"><!-- 自分自身を呼ぶ -->
<font color="blue">メッセージ</font><br>
<INPUT TYPE="text" SIZE="40" NAME="SETDATA" VALUE="メッセージ"><br>
<br>
<INPUT TYPE="submit" VALUE="書き込み（送信）">
</FORM>
<hr>
<a Href="test042-2.asp" target="_blank">Application変数を確認する</a>
<hr>
</body>
</html>
|
|