<%@ LANGUAGE="VBSCRIPT" %>
<%
On Error Resume Next
Dim intCount
Dim strFileName
strFileName = "e:\inetpub\wwwroot\countermain.txt"
Set objFile = Server.CreateObject("Scripting.FileSystemObject")
Set objIn = objFile.OpenTextFile(strFileName)
If Err.number > 0 Then
intCount = 0
Else
intCount = objIn.ReadLine
objIn.close
End If
intCount = intCount + 1
Set objOut = objFile.CreateTextFile(strFileName)
objOut.WriteLine intCount
objOut.close
%>
■■東葛地区の情報サイト：ｓｋ−ｗｅｂ■■
