Ayuda : bloqueo por usar opentextfile
Publicado por Jemil Marcos (1 intervención) el 17/03/2004 02:21:31
Tengo un problema con el siguiente codigo :
<%
Declare our vaiables
Dim objFSO, objCountFile ' object vars for FSO and File
Dim strCountFileName ' filename of count text file
Dim iCount ' count variable
Dim bUseImages ' boolean whether or not to use images
Dim I ' standard looping var
strCountFileName = Server.MapPath("index_c.txt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)
If Not objCountFile.AtEndOfStream Then
iCount = CLng(objCountFile.ReadAll)
Else
iCount = 0
End If
objCountFile.Close
Set objCountFile = Nothing
iCount = iCount + 1
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
objCountFile.Write iCount
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
Response.Write iCount
%>
Esto es un simple contador de accesos que usa un archivo de texto para llevar registro del numero de veces que ha sido accesada esa pagina, el codigo funciona bien montado en el server, de hecho lo pueden ver funcionando en www.gpomm.com, pero mi problema es al probarlo en local en mi maquina... tengo XP Pro con IIS 5.1 y todos los asps funcionan correctamente a excepcion de este, y se traba en la linea que trata de abrir el archivo...
cualquier ayuda es apreciada!
Gracias
<%
Declare our vaiables
Dim objFSO, objCountFile ' object vars for FSO and File
Dim strCountFileName ' filename of count text file
Dim iCount ' count variable
Dim bUseImages ' boolean whether or not to use images
Dim I ' standard looping var
strCountFileName = Server.MapPath("index_c.txt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)
If Not objCountFile.AtEndOfStream Then
iCount = CLng(objCountFile.ReadAll)
Else
iCount = 0
End If
objCountFile.Close
Set objCountFile = Nothing
iCount = iCount + 1
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
objCountFile.Write iCount
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
Response.Write iCount
%>
Esto es un simple contador de accesos que usa un archivo de texto para llevar registro del numero de veces que ha sido accesada esa pagina, el codigo funciona bien montado en el server, de hecho lo pueden ver funcionando en www.gpomm.com, pero mi problema es al probarlo en local en mi maquina... tengo XP Pro con IIS 5.1 y todos los asps funcionan correctamente a excepcion de este, y se traba en la linea que trata de abrir el archivo...
cualquier ayuda es apreciada!
Gracias
Valora esta pregunta


0