igadino Postado Novembro 27, 2009 Denunciar Share Postado Novembro 27, 2009 Pesoal estou aqui novamente abusando da boa vontade de vocês Exemplor1Se estiver no diretotio \wwwroot\adminirador\agendae clicar [..] tem que voltar para o diretorio \wwwroot\adminiradorse clicar novamente [..] tem que ir para o diretorio \wwwroot alguém tem uma ideia de como fazer isto?<% 'Declarando as variavel Dim strPath, objFSO, objFolder, objItem, barra, dir ' O diretório que vai ser listado: dir = "D:\Domains\igadino.com"&request("StartPath")&"" barra="\" strPath = dir pasta = trim(request("StartPath")) ' Vamos criar aqui o FileSystemObject: Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' ler o conteúdo do diretório Set objFolder = objFSO.GetFolder((strPath)) %> <html> <head> <title>Select Folder</title> <meta http-equiv="Content-type" content="text/html; charset=iso-8859-1" /> <script language="JavaScript" src="../script/clock.js"></script> <script language="JavaScript" src="../script/menu.js"></script> <meta http-equiv="Content-type" content="text/html; charset=iso-8859-1" /> </head> <body topmargin="0" bgcolor="#0099CC" bottommargin="0" leftmargin="0" rightmargin="0" marginheight="0" marginwidth="0" class="theme" onload="self.focus();" onblur="self.focus();"> <table border=0 cellpadding=0 cellspacing=0 width=100%> <form name="frmSelectFolder" action="" method=post> <tr><td align=center> <p><input type=text name="StartPath" value="<%=request.QueryString("StartPath")%>" style="font-size:9px; width:200px" readonly> </p></td></tr> <tr><td align=center> <select name="FolderPath" size="10" style="font-size:9px; width:200px" onclick="if (this.selectedIndex != -1){window.location.href='folderSelector.asp?RootFolder=&StartPath=' + this.options[this.selectedIndex].value;}"> <% if request.QueryString("StartPath")<> "" then %> <option value="<%=mst%>">[..]</option> <% end if%> <%For Each objItem In objFolder.SubFolders%> <option value="<%=request("StartPath")%><%=barra+objItem.Name%>">[<%=objItem.Name%>]</option> <%Next%> </select> </td></tr> <tr><td align="center" height="30"><input type=button name=btnCancel onclick="window.close();" value=" Cancel " style="font-size:9px;"> <input type=button name=btnChangeFolder onclick="opener.parent.setSelectFolderValue(this.form.StartPath.value); window.close();" value=" OK " style="font-size:9px;"></td></tr> </form> </table> </div> </body> </html> Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
igadino
Pesoal estou aqui novamente abusando da boa vontade de vocês
Exemplor1
Se estiver no diretotio \wwwroot\adminirador\agenda
e clicar [..] tem que voltar para o diretorio \wwwroot\adminirador
se clicar novamente [..] tem que ir para o diretorio \wwwroot alguém tem uma ideia de como fazer isto?
<% 'Declarando as variavel Dim strPath, objFSO, objFolder, objItem, barra, dir ' O diretório que vai ser listado: dir = "D:\Domains\igadino.com"&request("StartPath")&"" barra="\" strPath = dir pasta = trim(request("StartPath")) ' Vamos criar aqui o FileSystemObject: Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' ler o conteúdo do diretório Set objFolder = objFSO.GetFolder((strPath)) %> <html> <head> <title>Select Folder</title> <meta http-equiv="Content-type" content="text/html; charset=iso-8859-1" /> <script language="JavaScript" src="../script/clock.js"></script> <script language="JavaScript" src="../script/menu.js"></script> <meta http-equiv="Content-type" content="text/html; charset=iso-8859-1" /> </head> <body topmargin="0" bgcolor="#0099CC" bottommargin="0" leftmargin="0" rightmargin="0" marginheight="0" marginwidth="0" class="theme" onload="self.focus();" onblur="self.focus();"> <table border=0 cellpadding=0 cellspacing=0 width=100%> <form name="frmSelectFolder" action="" method=post> <tr><td align=center> <p><input type=text name="StartPath" value="<%=request.QueryString("StartPath")%>" style="font-size:9px; width:200px" readonly> </p></td></tr> <tr><td align=center> <select name="FolderPath" size="10" style="font-size:9px; width:200px" onclick="if (this.selectedIndex != -1){window.location.href='folderSelector.asp?RootFolder=&StartPath=' + this.options[this.selectedIndex].value;}"> <% if request.QueryString("StartPath")<> "" then %> <option value="<%=mst%>">[..]</option> <% end if%> <%For Each objItem In objFolder.SubFolders%> <option value="<%=request("StartPath")%><%=barra+objItem.Name%>">[<%=objItem.Name%>]</option> <%Next%> </select> </td></tr> <tr><td align="center" height="30"><input type=button name=btnCancel onclick="window.close();" value=" Cancel " style="font-size:9px;"> <input type=button name=btnChangeFolder onclick="opener.parent.setSelectFolderValue(this.form.StartPath.value); window.close();" value=" OK " style="font-size:9px;"></td></tr> </form> </table> </div> </body> </html>Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.