<% ' ' VB4CGI CHAT2.asp Ver 0.9 ' ' チャット・簡易掲示板2 サーバーへの負荷を低減する試み 投稿したときのみファイルを再構築する。 ' ' 原作者 古口正巳 [koguchi@sf.airnet.ne.jp] 1998.7 ' VB4CGI.incが必要 ' コメントに従って書き換えれば、色の設定不可、簡易掲示板として表示できる。 ' プログラムがあるディレクトリにデーター格納用のサブディレクトリを作成する必要があります。例:C\webshare\scripts\chatdata ' さらにワーダパッドなどでchat.datに1を入れてしまって下さい。 ' 別なディレクトリを作成すれば複数動かすことが可能となります。 ' 1回実行して下さいはhttp://xxx/aspsamp/chat2.aspと打ち込みます。xxxは実行するwwwサーバーの名前です。 ' この例は仮想ルートの/aspsamp/にchat2.aspがある場合です。 ' http://xxx/chat.htmが作成されますので通常はこちらを参照して下さい。 ' 違う場所に格納したい場合はパスを変更して下さい。 'Option Explicit Public Const MAX_NO = 20 'CHAT DATAの最大格納数 Public Const CHAT_DIR = "\chatdata\" 'CHAT DATA 格納用ディレクトリ Public Const CHAT_DAT = "chat.dat" '最新の発言位置を格納するファイル Public Const HTM_NAME = "asp_chat.htm" '作成されるホームページの名前 Public cc(10) '文字色等の装飾設定 cc(1) = "#000000" cc(2) = "#ffff00" cc(3) = "#ff0000" cc(4) = "#00ff00" cc(5) = "#0000ff" cc(6) = "#ff00ff" cc(7) = "#00ffff" cc(8) = "#ffffff" cgi_main %>