三流君のソースコード置き場

三流プログラマーが作成したコードが置いてあります。あまり参考にならないと思いますがヨロシクお願いします。

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。
(※詳細は[三流君 三流プログラマーとは?]を見てください)


広告:


[記事一覧、バックナンバーを見る]

Application("XXXX") Application変数のテスト

元の三流解説は、
三流君ASP:Application("XXXX") Application変数のテスト
↑を見て、笑ってやってください。
ブログに過去のソースコードをアップして、ブログの検索機能で利用してます(利用予定です)
※古くさいコードが多いです・・・



ソースコード

<%@LANGUAGE=VBScript%>
<% '頭でパラメータのチェックとセット処理
  If IsEmpty(Request.QueryString("SETDATA")) = False Then
    Application("test042data") = Letf(Request.QueryString("SETDATA"),20) 'データセット
    Application("test042time") = Now   '現在時刻のセット
  End If    
  Application("test042cnt") = Application("test042cnt") + 1   '+1する
%>
<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>Application("XXXX") 共通変数のテスト</title>
</head>
<body>
<h2>Application("XXXX") 共通変数のテスト</h2>
test042-1.asp<br>
<hr>
Application("test042data")=[<b><%=Application("test042data")%></b>]が<br>
Application("test042time")=[<b><%=Application("test042time")%></b>]に書きこまれました<br>
Application("test042cnt")=[<b><%=Application("test042cnt")%></b>]回目のアクセスです<br>
(がセットされてます。)
<hr>
<br>
<b>好きな文字を入れて送信して下さい</b><br>
<FORM ACTION="test042-1.asp" METHOD="GET"><!-- 自分自身を呼ぶ -->
<font color="blue">セットする文字は</font><br>
<INPUT TYPE="text" SIZE="20" NAME="SETDATA" VALUE="ABCDE好きな文字"><br>
<br>
<INPUT TYPE="submit" VALUE="データセット(送信)">
</FORM>

<hr>
</body>
</html>

↑をテスト実行する→
http://www.ken3.org/cgi-bin/test/test042-1.asp
http://www.ken3.org/cgi-bin/test/test042-2.asp
実行する


三流君ASPでフォーム関係の解説とサンプル
三流君ASPでADO MDB接続関係の解説とサンプル
三流君ASPでADO Excel接続関係の解説ページとサンプル
三流君ASPでADO CSV接続関係の解説ページとサンプル
三流君ASPでテキストファイル関係の解説とサンプルページ
三流君ASP VBScript関数の解説とサンプル



三流君ASPで遊ぶ、失敗する