<% ' ' VB4CGIJ ASP ADO_board.asp Ver 0.9 ' '　簡易掲示板 '　ADOデーターベース対応版(ASP) ' '　原作者　古口正巳　[koguchi@sf.airnet.ne.jp] 1998.9 ' '　　このプログラムはコード改変可能なフリーフェアであり、いかなる条件でも正しく動作する事を保証してません。 '　　各自のリスクで実行して下さい。このプログラムを利用していかなるトラブルが発生しても関知しません。 ' '　VB4CGI.incが必要 プログラム実行ディレクトリにboard.mdbが必要 '　実行にあたりここから１３行下の管理者パスワードを変更して下さい。 '　別なディレクトリに設置すれば複数動かすことが可能となります。 ' 実行はhttp://xxx/aspsamp/ADOboard.aspと打ち込みます。xxxは実行するwwwサーバーの名前です。 '　投稿者は削除ができます。管理者もadoboard?admin=geroのように打ち込めば削除できます。 '　クッキーを用いているので１ヶ月アクセスがないと削除できなくなります。 '　たくさん発言するとクッキーが溢れてエラーになるかもしれません。 '　実際に試してみるとクッキーが消えることが多々あります。原因は不明です。 '　削除はAdomanx.aspを用いてもできます。悪用を防ぐためにAdomanx.aspは名前を変えてから使用して下さい。 '　イントラネットならMS ACCESS 97で開いた方が簡単に編集できます。 'Option Explicit Public Const MAX_NO = 10 'CHAT DATAの最大格納数 Public Const BOARD_TITLE = "VBCGI ASP BOARD Ver 0.9" '掲示板のタイトルです。 public Const ADMIN_PASS = "gero" '←管理者パスワードです adoboard?admin=geroのように打ち込みます Public week(7) '表示する曜日の内容 HTML形式で書く。 week(1) = "　(日)" week(2) = "　(月)" week(3) = "　(火)" week(4) = "　(水)" week(5) = "　(木)" week(6) = "　(金)" week(7) = "　(土)" Select Case GetCgiValue("mode") 'IE3.0でしか正しく動作してないForm ?mode=が無効 Case "Write" '書き込みモード db_write Case "Search" '検索モード if getcgivalue("tag") <> "" Then Response.Cookies("board")("tag") = getcgivalue("tag") chat Case "Dell" If Session(getcgivalue("id")) <> "" and Session(getcgivalue("id")) = "DELL" Then '後ろの文だけだとTrueになってしまう。 Set cn = Server.CreateObject("ADODB.Connection") 'cn.ConnectionTimeout = 100 cn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & CGI_AppPath & "\" & "board.mdb" cn.Execute "DELETE * FROM board WHERE id = " & getcgivalue("id") cn.Close Set cn = Nothing End if chat Case Else 'それ以外 'If untag(GetCgiValue("name")) <> "" And untag(GetCgiValue("address")) <> "" And untag(GetCgiValue("kakikomi")) <> "" And untag(GetCgiValue("title")) <> "" Then If GetCgiValue("B3") <> "" Then 'For IE4.01 とりあえずはWriteのみ対応，B1-Searchは今のところ動作に問題なし。 db_write() Else chat End If End Select %>