|
<%set fs=createobject("scripting.filesystemobject")
RootFolderName =server.mappath("count/count.txt")
' response.write RootFolderName
set ts=fs.OpenTextFile(RootFolderName)
c=ts.readline
response.write" 您是第"&c&"位光临本站的贵宾"
ts.close
set ts=fs.CreateTextFile(RootFolderName,true)
ts.writeline(c+1)
ts.close
set fs=nothing%>
|
