Hola a todos, tengo un grave problema anteriormente yo tenia un página es ASP dicha página tiene un código javascript con asp que dibujaba un menú tipo árbol del directorio que yo le especificaba, ahora lo que sucede es lo siguiente:que es que quisiera pasar dicho código que está en ASP a PHP para ver si logro poner a funcionar el menú tal y como funcionaba anteriormente pero no lo logro, para ver si me pueden ayudar. aquí el código.
Código PHP:
<%
Sub GetDisciplines()
Dim fso ' as FyleSystemObject
Dim contador ' as Integer '
Dim folder ' as Folder ' carpeta disciplinas
Dim subfolder ' as Folder ' carpeta de la disciplina (p.e Atletismo)
Dim subfolderplus ' as Folder ' carpeta de las pruebas (p.e Atletismo/80 mts)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim script ' as String
contador = 0
If fso.FolderExists(Server.MapPath("disciplinas")) Then
Set folder = fso.GetFolder(Server.MapPath("disciplinas"))
If folder.SubFolders.Count = 0 Then
script = script & "bError = true;"
script = script & "sError = '<B>¡No se encontraron disciplinas en el directorio 'disciplinas' del servidor!<B><BR><HR>Consulte el directorio en el mismo';"
End If
For Each subfolder in folder.SubFolders ' pe. disciplinas/Atletismo
'Stop
Dim pruebas ' as Folder
Dim sTemp ' as String
If subfolder.SubFolders.Count > 0 Then
'Set pruebas = fso.GetFolder(Server.MapPath(sTemp))
script = script & "nod = new Node(""disciplinas/" & subfolder.Name & """, true, true, 0, """ & subfolder.Name & """);"
script = script & vbNewLine & "tree.push(nod);" & vbNewLine
For Each subfolderplus In subfolder.SubFolders ' pe disciplinas/atletismo/100 mts planos
script = script & "nod = new Node(""disciplinas/" & subfolder.Name & "/" & subfolderplus.Name & """, false, true, 1, """ & subfolderplus.Name & """);"
script = script & vbNewLine & "tree.push(nod);" & vbNewLine
Next
Set pruebas = Nothing
Else
script = script & "nod = new Node(""disciplinas/" & subfolder.Name & """, false, true, 0, """ & subfolder.Name & """);"
script = script & vbNewLine & "tree.push(nod);" & vbNewLine
End If
Next
Else
script = script & "bError = true;"
script = script & "sError = '<B>¡No se encontraron disciplinas en el servidor!<B><BR>';"
End If
Response.Write script
Set fso = Nothing
Set folder = Nothing
Set subfolder = Nothing
Set subfolderplus = Nothing
End Sub
Call GetDisciplines
%>
graciassss.
