List 8-28　簡易チャットプログラム（chat.asp） 


  1： <%
  2：   ' もし，［送信］ボタンが押されているのであれば
  3：   ' 発言をApplicationオブジェクトに書き込む
  4：   If Not IsEmpty(Request("SEND")) Then
  5：     Application.Lock
  6：     maxMessage = Application("MAXMESSAGE")
  7：     Application("MSG" & CLng(maxMessage)) = Request("MSG")
  8：     maxMessage = maxMessage + 1
  9：     Application("MAXMESSAGE") = maxMessage
 10：     Application.Unlock
 11：   End If
 12： %>
 13： <HTML>
 14： <BODY>
 15： <H1>チャットシステム</H1>
 16： <%
 17：   ' 現在の発言の一覧を表示する
 18：   For i = 0 To Application("MAXMESSAGE")
 19：      Response.Write Application("MSG" & CLng(i)) & "<BR>"
 20：   Next
 21： %>
 22： <HR>
 23： <FORM METHOD="POST" ACTION="chat.asp">
 24： メッセージをどうぞ：<INPUT TYPE="TEXT" NAME="MSG"><BR>
 25： <INPUT TYPE="SUBMIT" NAME="SEND" VALUE="送信">
 26： <INPUT TYPE="SUBMIT" NAME="RELOAD" VALUE="リロード">
 27： </FORM>
 28： </BODY>
 29： </HTML>