% @language=vbscript %> <% Dias = array("Domingo","Lunes","Martes","Miercoles","Jueves","Viernes","Sabado") Months = array("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Sept.","Octubre","Nov.","Dic.") Set FileObject = Server.CreateObject("Scripting.FileSystemObject") HitsFile = Server.MapPath ("cgi-bin") & "\hits.att" Set InStream= FileObject.OpenTextFile (HitsFile, 1, false ) OldHits = Trim(InStream.ReadLine) NewHits = OldHits + 1 Set OutStream= FileObject.CreateTextFile (HitsFile, True) OutStream.WriteLine(NewHits) %>
|
|||||||||||||||||
| Derechos
Reservados Proveedora de Servicios Digiitales, S.A. de C.V. |