<%
Function GetCounterFilename()
Dim FullPath,PointPosition
FullPath=Request.ServerVariables("PATH_TRANSLATED")
PointPosition=InStrRev(FullPath,".")
GetCounterFilename=Mid(FullPath,1,PointPosition)
End Function
path=GetCounterFilename()
file="cnt"
Set fs = CreateObject("Scripting.FileSystemObject")
if fs.FileExists(path & file) then
Set thisfile = fs.OpenTextFile(path & file, 1, False)
number=thisfile.readline + 1
thisfile.Close
Set outfile=fs.CreateTextFile(path & file )
outfile.WriteLine number
outfile.close
set fs=nothing
else
number=1
Set outfile=fs.CreateTextFile(path & file )
outfile.WriteLine number
outfile.close
set fs=nothing
end if
%>
欢迎光临英普环保在线！
