無題ドキュメント

<% Response.Buffer=True '================================================== ' 初期設定 '================================================== TITLE = "" BLANK = "　　" COUNTER = 1 NEW_DATE = 86400 MAX_LOG = 10 MDB_NAME = Server.MapPath("sdb/kls.mdb") Dim objRS,objDB Dim rp Dim bango Dim K_TITLE Dim K_TEXT Dim K_DATE %> 無題ドキュメント <% ' アクセスカウンタ設置 cnt_fig = "7" ' カウンタの桁数 cnt_file = "count.dat" ' カウンタファイル tmp_file = "temp.dat" ' 作業用ファイル img_path = "img/abc" ' カウンタ画像パス img_h = "16" ' カウンタ画像の横サイズ img_w = "14" ' カウンタ画像の縦サイズ img_ani = "1" ' カウンタアニメーション（0=text 1=off 2=on） Set FileObject = Server.CreateObject("Scripting.FileSystemObject") TmpFile = Server.MapPath(tmp_file) ' 相対パスや仮想パスを物理ディレクトリに変換 CntFile = Server.MapPath(cnt_file) ' 作業用ファイルを上書きOK, ACIIでファイル作成 Set OutStream = FileObject.CreateTextFile(TmpFile, True, False) ' カウンタファイルを読みとり専用で開き, 存在しない場合は失敗, ACIIでファイル作成 Set InStream = FileObject.OpenTextFile(CntFile, 1, False, False) buf = Split(InStream.ReadLine,"<>") TotalCnt = buf(0) + 1 TodayCnt = buf(1) + 1 YesCnt = buf(2) Hizuke = buf(3) If Date <> CDate(Hizuke) Then YesCnt = TodayCnt TodayCnt = 0 End If ' カウンタデータ作成（Totalカウント + 1 , Todayカウント + 1, Yesterdayカウント, Date） CntData = TotalCnt & "<>" & TodayCnt & "<>" & YesCnt & "<>" & Date OutStream.WriteLine CntData Set InStream = Nothing Set OutStream = Nothing Set InStream = FileObject.OpenTextFile(TmpFile, 1, False, False) Set OutStream = FileObject.CreateTextFile(CntFile, True, False) Do Until InStream.AtEndOfStream ' 複数行書き込み(今後の開発用ロジック) OutStream.WriteLine InStream.ReadLine Loop Set InStream = Nothing Set OutStream = Nothing ' カウンタ桁数になるまで0を付加 i = 1 Do while i <= cnt_fig - Len(buf(0)) If img_ani = "0" Then number = number & 0 Else '次ぎの一文が書き換えられていました。その下の構文がもともとあったものです。 ' number = number & "" number = number & "" End If i = i + 1 Loop For i = 1 To Len(TotalCnt) Select Case img_ani Case "0" Number = Number & Mid(Csng(TotalCnt), i, 1) Case "1" '次ぎの一文が書き換えられていました。その下の構文がもともとあったものです。 ' Number = Number & "" Number = Number & "" Case "2" If Mid(Csng(TotalCnt), i, 1) = Mid(Csng(buf(0)), i, 1) Then Number = Number & "" Else '次ぎの一文が書き換えられていました。その下の構文がもともとあったものです。 ' Number = Number & "" Number = Number & "" End If End Select Next %>

［↑HOME］

サイバーポルノ問題を考えるための基本的な学術文献（刑法編）（2002年12月08日追加）
「住基ネットの危険性」をアップロードしました。これは、2002年10月1日に大阪弁護士会で行った講演の資料です。
（2002年10月12日）
金鐘鐵「大韓民国の住民登録制度」（訳）を追加しました。（2002年03月01日）
金基中「情報支配社会における電子住民カードの意味とその危険性」（抄訳）を追加しました。（2002年03月01日）
韓国法最前線のコーナーを新設しました。（2001年12月23日）
京都アルファネット事件、最高裁決定の全文を掲載しました。
　サイバーポルノに関する初の最高裁の判断が出ました。京都アルファネット事件の上告審決定です（上告棄却）。
（2001年07月18日）
児童ポルノ問題を考えるための基本的学術文献（2001年07月09日）
「陳列概念の弛緩」（論文）を掲載しました。「京都アルファネット事件」控訴審判決の批判です。（2000年03月08日）
「《注釈》児童買春・児童ポルノ処罰法」をアップロードしました。日本評論社より11月に、児童買春・児童ポルノ処罰法の注釈書を出版する予定ですが、11月1日に同法が施行されますので、とりあえずダイジェスト版をホームページに公開します。
（1999年10月17日）　（ユニセフ国際ワークショップでの筆者［期間限定］）
「不正アクセス」（論文）を掲載しました。（1999年08月18日）
PowerPointを使った刑法教材に追加（「刑法総論」）（1999年06月04日）

質問される場合は、必ずお名前とご所属をお書きください。
できる限り回答するようにしますが、メールの数が多いので、回答できな場合の方が多く、この点ご了承ください。
迷惑メールが日に数十通来ますので、やむを得ず「yahoo.com」「aol.com」「hotmail.com」「msn.com」の
各ドメインからのメールはフィルタリングにかけます。あしからずご了解ください。

<% '========================================================= 'ＤＢ接続 '========================================================= Sub DB_Open(tbl) DBName="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MDB_NAME Set objDB = Server.CreateObject("ADODB.Connection") objDB.open DBName SQLSTR = "SELECT t_hitokoto.* FROM t_hitokoto ORDER BY t_hitokoto.[no] desc" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open SQLSTR, objDB,3,3 End Sub %> <% '========================================================= 'ＤＢを閉じる '========================================================= Sub DB_Close objRS.close objDB.close Set objRS = Nothing Set objDB = Nothing End Sub %>