<% COUNTERFILE="c:\unimexct.txt" 'カウンターファイルの指定 On Error Resume Next 'カウンターファイルの読み込み Set objFile = Server.CreateObject("Scripting.FileSystemObject") Set strmFile = objFile.OpenTextFile(COUNTERFILE, 1, FALSE) If Err.Number > 0 Then iCount = 0 Else iCount = strmFile.ReadLine End If iCount = iCount + 1 strmFile.Close 'カウンターファイルへの出力 Set strmFile = objFile.OpenTextFile(COUNTERFILE, 2, TRUE, 0) strmFile.WriteLine iCount strmFile.Close '画面への出力 sCount = right("000000" & Cstr(iCount), 7) response.write "" response.write "<" For i = 1 to Len(sCount) Response.Write Mid(sCount, i, 1) Next response.write ">" response.write "" %>