<%
If IsEmpty(Session("Visited")) then
Set fs = Server.CreateObject("Scripting.FileSystemObject")
file_Path = Server.MapPath("counter.txt")
if isEmpty(Application("CounterValue")) then
Set CounterFile = fs.OpenTextFile(file_Path, 1 ,False, 0)
Application("CounterValue") = CounterFile.ReadLine
CounterFile.Close
End if
Application.Lock
Application("CounterValue") = Application("CounterValue") + 1
Application.UnLock
Set CounterFile = fs.OpenTextFile(file_Path, 2)
CounterFile.WriteLine(Application("CounterValue"))
CounterFile.Close
Session("Visited") = True
End If
Function G_Transfor(CounterValue, Counter_bits, Path)
for i = 1 to Counter_bits
G=mid(CounterValue,i,1)
if G = "" then
G = 0
ImgTag = "![](" & Path &"/" & G &".gif)
" & ImgTag
else
ImgTag = ImgTag & ""
end if
next
G_Transfor = ImgTag
End Function
%>
新網頁1
