<%
'
' VB4CGIJ ASP ADO_boardx.asp Ver 0.92
'
' 簡易掲示板
' ADOデーターベース対応版(ASP)
' テーブル対応版 入力フォーム別表示 スレッド発言対応 フレーム表示対応
'
' 原作者 古口正巳 [koguchi@sf.airnet.ne.jp] 1998.9
'
' このプログラムはコード改変可能なフリーフェアであり、いかなる条件でも正しく動作する事を保証してません。
' 各自のリスクで実行して下さい。このプログラムを利用していかなるトラブルが発生しても関知しません。
'
' VB4CGI.incが必要 プログラム実行ディレクトリにboard.mdbが必要
' フレームの扱い方がまだ十分でないため表示が乱れる時があります・表示がおかしいときはブラウザを再起動して下さい。
' このバージョンではフレーム表示の安定化を図った
' 複数掲示板を設置したときはadobordx.asp?mode=newで強制的にフレームを再描画させます。
' 実行にあたりここから１４行下の管理者パスワードを変更して下さい。
' 別なディレクトリに設置すれば複数動かすことが可能となります。
' 実行はhttp://xxx/aspsamp/ADOboard.aspと打ち込みます。xxxは実行するwwwサーバーの名前です。
' 投稿者は削除ができます。管理者もadoboard?admin=geroのように打ち込めば削除できます。
' クッキーを用いているので１ヶ月アクセスがないと削除できなくなります。
' たくさん発言するとクッキーが溢れてエラーになるかもしれません。
' 実際に試してみるとクッキーが消えることが多々あります。原因は不明です。
' 削除はAdomanx.aspを用いてもできます。悪用を防ぐためにAdomanx.aspは名前を変えてから使用して下さい。
' イントラネットならMS ACCESS 97で開いた方が簡単に編集できます。
'Option Explicit '初期値を設定して下さい 管理者パスワードとデーターベース名必ず変えて下さい。
Public Const MAX_NO = 10 '本文ありでの１画面表示数
Public Const SLED_NO = 30 '本文なしでの１画面表示数
Public Const BOARD_TITLE = "簡易掲示板(ADO ASP)テスト書き込み" '掲示板のタイトルです。
Public Const ADMIN_PASS = "gero" '←管理者パスワードです adoboard?admin=geroのように打ち込みます
Public Const DB_NAME = "boardx.mdb" 'Databaseの名前を設定します。実際に使用するときはDBともに名前を変えて下さい。
Public Const BACKGIF = "back.gif" '背景に用いる画像です。
Public Const RE_CHAR = "＞" '本文のコメントにつける記号
Public Const RE_TITLE = "Re:" '表題のコメントにつける記号
Public Const E_EXPIRES = 30 'クッキーの有効期限(最後にモード切り替えをしてから)
Public Const HEADHTML = "" '"" '本文なしモードで表示されるヘッダです。好きなように直してください。
Public Const BODYHTML = "
" '"
" '発言時に表示される画像等です。好きなように直してください。
Public Const FOOTHTML = "VBCGI ASP DB_Board Ver 0.9 By M.Koguchi
" '脚注です。連絡先などやバージョン表示の例。好きなように直してください。
'ここから約６０行下にあるフレーム表示時の初期化ページを好きなように書き換えて下さい。
Public week(7) '表示する曜日の内容 HTML形式で書く。
week(1) = "(日)"
week(2) = "(月)"
week(3) = "(火)"
week(4) = "(水)"
week(5) = "(木)"
week(6) = "(金)"
week(7) = "(土)"
If getcgivalue("flame") <> "" Then 'フレーム表示の切り替え
Response.Cookies("board").Expires = Date + E_EXPIRES
Response.Cookies("board")("flame") = getcgivalue("flame")
Session("flame") = ""
End If
if getcgivalue("admin") <> "" Then session("admin") = getcgivalue("admin")
if getcgivalue("search") <> "" Then session("search") = getcgivalue("search")
Select Case GetCgiValue("mode") '実行モードでルーチンを割り振る
Case "Form_follow"
Form_follow
Case "Form_new"
Form_new
Case "Data_show"
Data_show
Case "新規投稿" '書き込みモード
db_write
Case "検索・変更" '検索モード
Response.Cookies("board").Expires = Date + E_EXPIRES
Response.Cookies("board")("tag") = getcgivalue("tag")
Response.Cookies("board")("sled") = getcgivalue("sled")
Response.Cookies("board")("honbun") = getcgivalue("honbun")
if getcgivalue("search") = "" Then session("search") = ""
chat
Case "Dell" '削除モード
db_dell
Case "New" '複数のデーターベースをフレームモードで使用するとき設定します
Session("flame") = ""
chat
Case Else 'それ以外
chat
End Select
%>