<% ' ' CHAT.asp Ver 0.91update 1998.07 チャット・簡易掲示板 ' '　原作者　古口正巳　[koguchi@sf.airnet.ne.jp] 1998.7 '　vb4cgi.incが必要 ' '　　このプログラムはコード改変可能なフリーフェアであり、いかなる条件でも正しく動作する事を保証してません。 '　　各自のリスクで実行して下さい。このプログラムを利用していかなるトラブルが発生しても関知しません。 ' '　コメントに従って書き換えれば、色の設定不可、簡易掲示板として表示できる。 '　プログラムがあるディレクトリにデーター格納用のサブディレクトリを作成する必要があります。例:C:\webshare\aspsamp\chatdata '　さらにワードパッドなどでchat.datに1を入れてしまって下さい。C:\webshare\aspsamp\chatdata\chat.dat '　別なディレクトリを作成すれば複数動かすことが可能となります。 ' 実行はhttp://xxx/aspsamp/chat.aspと打ち込みます。xxxは実行するwwwサーバーの名前です。 'Option Explicit Public Const MAX_NO = 20 'CHAT DATAの最大格納数 Public Const CHAT_DIR = "\chatdata\" 'CHAT DATA 格納用ディレクトリ Public Const CHAT_DAT = "chat.dat" '最新の発言位置を格納するファイル 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 %>