|
|
|
|
|
|
 |
|
|
|
|
|
|
<%
Dim Data, fs, w, read, k, m, j
Set fs = Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(Server.Mappath("count.txt")) then
Set read = fs.OpenTextFile(Server.Mappath("count.txt"), 1, False)
data = read.ReadAll
read.close
data = data + 1
Set w = fs.OpenTextFile(Server.MapPath("count.txt"), 2, False)
w.Write data
w.Close : Set fs = Nothing
else
data = 1
Set w = fs.CreateTextFile(Server.MapPath("count.txt"), True)
w.Write data
w.Close : Set fs = Nothing
end if
%>
|
<%
j = 1
for k = ((7 - len(data)) + 1) To 7
m = mid(data, j, 1)
%>
<%
j = j + 1
next
%>
|
|
|
|
|
|
 |
