|
|
|
|
Ud. es el visitante
<%@ Language=VBScript %>
<%
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Const COUNT_FILE="cont_BTod.cnt" 'Todas las bibliotecas en bola
' BCs = BCiencias
' BHu = BHumanidades Villa
' BSo = BSociales
' BTe = Btecoman
' BSa = BSalud
' BCm = BCienciasMarinas Manza
' BCa = BCienciasaplicadas Coqui
' BDe = BDerecho
' BBa = BBachillerato
' BAc = BAutoacceso
' BPm = BPromepMedicinaEnfermeria
' CPal = CatalogoPpal
' Btod = BuscarenTodas
Dim objFSO
Dim objFile
Dim lngCount
'create the file system object
Set objFSO = CreateObject("Scripting.FileSystemObject")
'open the counter file to get the previous count
Set objFile = objFSO.OpenTextFile(Server.MapPath(COUNT_FILE), ForReading)
'read in the counter data to the lncount variable
lngCount = objFile.ReadLine
'add one to the counter
lngCount = lngCount + 1
'close the file
objFile.Close
'reopen the file, this time to write the new count
Set objFile = objFSO.OpenTextFile(Server.MapPath(COUNT_FILE), ForWriting)
'write the current count
objFile.WriteLine(lngCount)
'close the file
objFile.Close
'discard our objects
Set objFile = Nothing
Set ojbFile = Nothing
response.write lngCount
%>
© DERECHOS RESERVADOS 2009. Instituto Tecnológico de Costa Rica. PÁGINA ELABORADA POR Biblioteca José Figueres Ferrer. |