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,20) 'データのセット
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 '10回ループするぞ
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>
| 商品:服と靴関係を紹介(広告)
服と靴など →の人気
-
(プーマ)PUMA SS Tee 507395 → 2月1日 最近販売
-
(グラビス)GRAVIS 4 DOTS SS 260971 → 2月1日 伸び率UP
-
(ビー・ブイ・ディ) B.V.D. BODY GEAR SPORTS ク 1月31日 最近販売
-
(グンゼ)GUNZE 【ウルトラヒート】あたたか保温 裏起毛パイル紳士ハ 1月31日 伸び率UP
-
(アディダス)adidas adienergy ウィンドジャケット SS 1月30日 最近販売
-
無地裏起毛シャギーラウンドネック長袖スウェット 上下セット → 1月30日 伸び率UP
-
(コリスコ)corisco ツイルフードインスタンドブルゾン 67191 1月29日 最近販売
-
(ディーゼル)DIESEL 25-UFL-OXIM KNICKERS U 1月29日 伸び率UP
続き(一覧)を見る
|