<% CountFile = Server.MapPath("count.txt") Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set Out= FileObject.OpenTextFile (CountFile, 1, FALSE, FALSE) counter = Out.ReadLine Out.Close SET FileObject = Server.CreateObject("Scripting.FileSystemObject") Set Out= FileObject.CreateTextFile (CountFile, TRUE, FALSE) Application.lock counter= counter + 1 Out.WriteLine(counter) Application.unlock Out.Close Length=Len(counter) ImgStr="" for i=1 to 5 - Length ImgStr1=""+ImgStr1 next do while Length>=1 ImgStr2=""+ImgStr2 Length=Length-1 loop ImgStr=ImgStr1+ImgStr2 %> Welcome to Jackcon
NO<% =ImgStr %>