|
|
| <% Ruta = Request.ServerVariables("APPL_PHYSICAL_PATH") & "/GNet.cnt" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile = objFSO.OpenTextFile(Ruta, 1, True) If not objCountFile.AtEndOfStream Then iCount = objCountFile.ReadAll Else iCount = 0 End If for i = 1 to 6 - Len(iCount) mCount = mCount & "0" next %> Eres el visitante No. <%=cstr(iCount)%> <% if trim(request.cookies("contador")) = "" then iCount = iCount + 1 Set objCountFile = objFSO.CreateTextFile(Ruta,True) objCountFile.write iCount response.cookies("contador") = "cargado" end if objCountFile.Close Set objCountFile = Nothing Set objFSO = nothing %> |
