<% LANGUAGE = VBScript %> 大阪府医師会マイコンクラブ <% cnt_file = "/cnt.txt" tmp_file = "/tmp.txt" Set FileObject = Server.CreateObject("Scripting.FileSystemObject") TmpFile = Server.MapPath(tmp_file) CntFile = Server.MapPath(cnt_file) Set OutStream = FileObject.CreateTextFile(TmpFile, True, False) Set InStream = FileObject.OpenTextFile(CntFile, 1, False, False) buf = InStream.ReadLine buf = buf + 1 OutStream.WriteLine buf Set InStream = Nothing Set OutStream = Nothing Set InStream = FileObject.OpenTextFile(TmpFile, 1, False, False) Set OutStream = FileObject.CreateTextFile(CntFile, True, False) OutStream.WriteLine InStream.ReadLine Set InStream = Nothing Set OutStream = Nothing %>


your visit count<%= buf %>
(since 1998/2/26)
大阪府医師会マイコンクラブのホームページへようこそ!

当ホームページは会員の持ち回りで作成しています。
右の表は担当順です。

先月までのホームページ

98/3 安積 奎三
畑 直成
奥野 吉昭
小田 徹也
高橋 徳
田中 貫一
鶴原 秀晃
10 中塚 比呂志
11 中野 厚夫
12 長谷川 健
99/1 橋爪 慶人
奥村 信太
原田 昌彦
福田 正博
益田 元子
森崎 昇
山上 勝久
山本 義久
吉川 隆啓





fuit.gif (12128 バイト)

 

今月のホームページnew1.gif (1556 バイト)

 

ミラーサイト