English |
||||||
<%
CounterFile = Server.MapPath("/") & "\SEKIYADO\index-asp.cnt"
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set a = fs.OpenTextFile(CounterFile, 1, 0, 0)
c = a.Readline
set fs = Nothing
myArray = Split(c, "=")
c = "count=" & FormatNumber(myArray(1) + 1, 0)
Set fs = CreateObject("Scripting.FileSystemObject")
set b = fs.CreateTextFile(CounterFile, 1, 0)
b.WriteLine c
Set b = Nothing
%>
|
||||||
|
||||||
●2006スケジュールはこちらからどうぞ。 ●みんなで関宿城に集合!〈行事案内〉
|
||||||
Copyright©2005 Chiba Prefectural Sekiyado-jo Museum. All rights reserved. |