有限会社アイ企画
www.iweb.co.jp






<% On Error Resume Next Set objFile = Server.CreateObject("Scripting.FileSystemObject") sPathCountFile = Server.MapPath("count.dat") Set strmFile = objFile.OpenTextFile(sPathCountFile, 1, FALSE) If Err.Number > 0 Then iCount = 0 Else iCount = strmFile.ReadLine End If iCount = iCount + 1 strmFile.Close Set strmFile = objFile.OpenTextFile(sPathCountFile, 2, TRUE) strmFile.WriteLine iCount strmFile.Close sCount = right("00000" & CSTR(iCount),5) %>あなたは <% =iCount %>人目のお客様です。


アイ企画は、コンピュータの活用を支援します。

「パソコンをもっと有効利用するためには・・・」

そんなお悩みに、私たちはお役に立ちたいのです。



 会社概要     業務実績   業務内容   お問い合わせ

よろしければアンケートにご協力お願いいたします。
アンケート



会社概要 | 業務実績 | 業務内容 | パッケージソフト | リンク集 | お問い合わせ |検索エンジン |アンケート |