Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

WPA

[Resolvido] Criar Pasta com Arquivo index.asp dentro

Por , em ASP Clássico

Recommended Posts

WPA    0

WPA
Postado

Efetuei uma pesquisa específica aqui no forum com o título do tópico e não encontrei nada que clareasse as minhas dúvidas, no google também não encontrei nada 100% satisfatório, somente coisas picadas.

 

Encontrei em sites diferentes os scripts abaixo:

 

Arquivo (default.asp)

 

<html>

<body>

<form action="mostra.asp" method="post">

<table>

<tr>

<td>Nome da pasta:</td>

<td><input type="text" name="nome_pasta"></td>

<td><input type="submit" value="Criar"></td>

</table>

</form>

</body>

</html>

 

 

Arquivo (mostra.asp)

 

<%

'Criando uma nova pasta:

 

pasta = request.form("nome_pasta")

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

If Not objFSO.FolderExists(Server.MapPath(pasta) ) Then

objFSO.CreateFolder(Server.MapPath(pasta) )

Response.Write "A pasta foi criada com sucesso"

 

%>

 

<%

 

'Criando um novo arquivo:

 

Set objFS = Server.CreateObject("Scripting.FileSystemObject")

If objFS.FileExists(Server.MapPath("arquivo.asp")) Then

Set ObjTextS = objFS.CreateTextFile(Server.MapPath("meu_arquivo.asp"), False, False)

ObjTextS.Write "texto do meu arquivo"

Set objTextS = Nothing

Response.Write "O arquivo foi criado com sucesso"

Else

Response.Write "O arquivo não pode ser criado, pois já existe um arquivo com o mesmo nome"

End If

Set objFS = Nothing

 

%>

 

Dúvida 1:

Através do formulário da página "default.asp" é possível fazer uma solicitação para que a página mostra.asp crie uma pasta com o nome que eu desejo junto com um arquivo padrão index.asp dentro da nova pasta criada?

 

Dúvida 2:

Se a dúvida 1 for possível, como posso unir os scripts do arquivo "mostra.asp" ?

 

Obs: Sou um baita de uma topera em ASP, mas quero muito realizar uma boa união entre SEO e ASP.

 

Valeu pessoal!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

Resposta 1:

Sim

Resposta 2

Usa o fso para criar a pasta, e também usa o fso para criar o arquivo, usando a propriedade de escrever linhas dentro do arquivo para criar as tags do arquivo.

 

Relaxa quanto a toupeira, todos nós fomos um dia, o importante é estudar muito para aprender cada vez mais. Imagem Postada

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Ao invez de tentar fazer dessa forma, aconselho a deixar já uma pasta com o arquivo index.asp básico (acredito que será um arquivo padrão, que irá para todas as novas pastas) e ao invéz de criar pasta mais arquivo você pode apenas copiar a pasta renomeando. Dê uma pesquisada por isso em FileSystemObject.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este exemplo, com ele você pode criar arquivos e pastas ,bem como um gerenciamento maior, tipo explorer,

 

<%

Dim Name(9999), Size(9999), LastMod(9999), Querys(20)
o = 1
If Request.QueryString = "" then 
Response.Write "<meta http-equiv=refresh content=1;URL=default.asp?path=.>"
End If

For each Query in Request.QueryString
        For each Queryvalue in Request.QueryString(Query)
        Querys(o) = Queryvalue
        Next
        o = o + 1
Next

Set objFS = Server.CreateObject("Scripting.FileSystemObject")

On error resume next
Set objFolders = objFS.GetFolder(Server.MapPath(Querys(1)))
Set objFiles = objFolders.Files
i = 1
For each File in objFiles
    Name(i) = File.Name
    Size(i) = File.Size
    LastMod(i) = File.DateLastModified
    i = i + 1
Next
i = i - 1
For t = 1 to i
    Size(t) = Size(t) * 0.001
    Size(t) = Left(Size(t), 4)
Next
Set objGet = objFS.GetFile(Server.MapPath(Name(i)))
Folder = objFolders.Name
%>
<html>
<head>
<title>Guo's Explorer</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
</head>

<body bgcolor="#006699" text="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<table width="760" border="0" cellpadding="0" cellspacing="0" height="45">
  <tr>
    <td><img name="interface" src="../../Users/XANBUR~1/AppData/Local/Temp/Rar$DI00.974/gfx/interface.gif" width="760" height="45" border="0" usemap="#m_interface"> 
      <!-- fwtable fwsrc="explorer.png" fwbase="interface" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" -->
      <map name="m_interface"> 
        <area shape="rect" coords="666,17,706,30" href="#" alt="Upload a file" title="Upload a file" >
        <area shape="rect" coords="610,17,657,29" href=" <% Response.Write "default.asp?path=" & Querys(1) & "&action=createfolder" %>" alt="Cria uma nova pasta ou um novo arquivo" title="Cria uma nova pasta ou um novo arquivo" >
        <area shape="rect" coords="558,16,597,30" href="../../Users/XANBUR~1/AppData/Local/Temp/Rar$DI00.974/default.asp?path=." alt="Pegar algumas informações sobre o seu servidor e seu computador." title="Pegar algumas informações sobre o seu servidor e seu computador." >
</map></td>
  </tr>
</table>
<br>
<%
%>
<table width="760" border="1" cellpadding="0" cellspacing="0">
  <tr bgcolor="#FFFFFF"> 
    <td height="13" colspan="5"><font face="Times New Roman, Times, serif" size="2" color="#000000">Arquivo:                                                                                       Tamanho:                               
         <span id="result_box"><span title="Last modified">Última modificação</span></span>:                     Comandos:</font></td>
  </tr>
  <tr> 
    <td height="4" width="281"> 
      <%
    Old = Querys(1)
    News = strReverse(old)
    News = instr(News, "/")
    Leng = Len(old) - News
    Old = Left(Old, Leng)
    If Old = "" then Old = "."
    Response.Write "<a href=default.asp?path=" & Old & ">../</a><br>"
    q = 1
    For each SubF in objFolders.Subfolders
    If right(Path,1)="/" then
    WholeSubF=SubF.Name
    Else
    WholeSubF=SubF.Name
    End if
    q = q + 1
    Response.Write "<img src=gfx/folder.gif width=15 height=15><a href='default.asp?path=" & Querys(1) & "/" & WholeSubF & "'>" & WholeSubF & "</a><br>"
    Next
    q = q - 1
    %>
      <br>
      <%
    For t = 1 to i
    Response.Write "<img src=gfx/file.gif width=15 height=15><a href=" & Querys(1) & "/" & Name(t) & " target=_blank>" & Name(t) & "</a><br>"
    Next
    %>
    </td>
    <td height="4" width="126"> 
      <%
    For each SubF in objFolders.Subfolders
        Response.Write Left(SubF.Size * 0.001, 5) & "kb<br>"    
    Next
    %>
      <br>
      <%
    For t = 1 to i
    Response.Write Size(t) & "kb<br>"
    Next
    %>
    </td>
    <td height="4" width="135"> 
      <%
    For each SubF in objFolders.Subfolders
        Response.Write SubF.DateLastModified & "<br>"    
    Next
    %>
      <br>
      <%
    For t = 1 to i
    Response.Write LastMod(t) & "<br>"
    Next
    %>
    </td>
    <td height="4" width="104"> 
      <%
    For each SubF in objFolders.Subfolders
    Response.Write "<a href=default.asp?" & Request.QueryString & "&action=deletef&what=" & SubF.Name & ">Delete</a><br>"
    Next
    %>
      <br>
      <%
    For t = 1 to i
    Response.Write "<a href=default.asp?" & Request.QueryString & "&action=delete&what=" & name(t) & ">Delete</a><br>"
    Next
    %>
    </td>
    <td height="4" width="104"> 
      <%
    For each SubF in objFolders.Subfolders
        Response.Write "<br>"
    Next
    %><br>
      <%
    For t = 1 to i
    Response.Write("<a href=default.asp?path=" & Querys(1) & "&action=edit&what=" & name(t) & ">Edit</a><br>")
    Next
    %></td>
  </tr>
</table>
<br>
<br>
<table width="760" border="1" cellpadding="0" cellspacing="0">
  <tr>
    <td bgcolor="#FFFFFF" height="19"><font face="Times New Roman, Times, serif" size="2" color="#000000"> Tamanho da Pasta:  
      <%
    Response.Write objFolders.size * 0.001 & "kb"
%>
       Pasta Atualr: 
      <% Response.Write Folder %>
        </font> </td>
  </tr>
</table>
<map name="Map"> 
  <area shape="rect" coords="666,17,706,30" href="#">
  <area shape="rect" coords="610,17,657,29" href="#">
  <area shape="rect" coords="558,16,597,30" href="../../Users/XANBUR~1/AppData/Local/Temp/Rar$DI00.974/default.asp?path=." onClick="MM_openBrWindow('../../Users/XANBUR~1/AppData/Local/Temp/Rar$DI00.974/misc.asp?action=info','','width=450,height=150')">
</map><%

If Querys(3) = "delete" then
    Set objKill = objFS.GetFile(Server.MapPath(Querys(2)))
    objKill.Delete
    response.write "<meta http-equiv=refresh content=1;URL=default.asp?path=" & Querys(1) & ">"
End If

If Querys(3) = "deletef" then
    Set objKill = objFS.GetFolder(Server.MapPath(Querys(2)))
    objKill.Delete
    response.write "<meta http-equiv=refresh content=1;URL=default.asp?path=" & Querys(1) & ">"
End If
%>
<br>
<%
If Querys(2) = "createfolder" then
%>
<table width="760" border="1" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
  <tr>
    <td align="left" valign="top">
      <%
      Response.Write("<form name=form1 method=post action=default.asp?path=" & Querys(1) & "&action=created>")
      %>
        <font color="#000000" face="Times New Roman, Times, serif" size="2">Criar
        nova pasta: </font> 
        <input type="text" name="folder" maxlength="24">
        <input type="submit" name="Submit" value="Criar">
      </form>
    </td>
  </tr>
</table>
<br>
<%
response.write("<form name=forms method=post action=default.asp?path=" & querys(1) & "&action=createfile>")
%>
<table width="760" border="1" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
  <tr> 
    <td align="left" valign="top"> <font color="#000000" face="Times New Roman, Times, serif" size="2">Criar
        novo arquivo: </font> 
      <input type="text" name="what" maxlength="24" value=".asp">
      <input type="submit" name="Submit3" value="Criar">
    </td>
  </tr>
</table>
</form>
<p>
  <%
End If
If Querys(2) = "created" then
    objFS.CreateFolder(Server.MapPath(Request.Form("folder")))
    Response.Write("<meta http-equiv=refresh content=1;URL=default.asp?path=" & Querys(1) & ">")
End If
If Querys(3) = "edit" then
%>
<table width="760" border="1" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
  <tr>
    <td height="130"> <font color="#000000" face="Times New Roman, Times, serif" size="2">Editar <% Response.Write(Querys(2)) %>
      </font> 
<%
Response.Write("<form name=form1 method=post action=default.asp?path=" & Querys(1) & "&action=save&what?" & Querys(2) & ">")
Response.Write ("<textarea name=textfield cols=90 rows=10>")
    Set objTS = objFS.OpenTextFile(Server.MapPath(Querys(2)))
    Response.Write Server.HTMLEncode(objts.ReadAll)
Response.Write "</textarea>"
%>
                                                                                        
        <input type="submit" name="Submit2" value="Salvar">
      <form name="form1" method="post" action="">
        <input type="hidden" name="hidden" value="<% Response.Write Querys(2) %>">
      </form>
      </form>
    </td>
  </tr>
</table>
<p><br>
  <%
End If
If Querys(3) = "save" then
Set objTS = objFS.CreateTextFile(Server.MapPath(Request.Form("hidden")))
objTS.Write Request.Form("textfield")
Response.Write "<meta http-equiv=refresh content=1;URL=default.asp?path=" & Querys(1) & ">"
Response.Write("YEPP")
End If

If Querys(2) = "createfile" then
    objFS.CreateTextFile(Server.MapPath(Request.Form("what")))
    Response.Write("<meta http-equiv=refresh content=1;URL=default.asp?path=" & Querys(1) & ">")
End If
%>
</p>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

WPA    0

WPA
Postado

Vinicius Ianni: Valeu pelas dicas, realizei algumas pesquisas e achei exemplos muito satisfatórios, muito bom mesmo. Obrigado!

 

Salgado: Cara você é um doce..hahaha... valeu pelas dicas...deu uma imensa clareada, simples e objetivo, pesquisei o que você mencionou e supriu muitas dúvidas. Obrigado!

 

xanburzum: Cara, scripts show, fiquei sem palavras pela a sua assintência, muitoo obrigado mesmo, se surgir alguma dúvida em relação aos scripts que foram passados por você dou um help aqui. Obrigado!

 

 

Senhores, caso venha surgir dúvidas de SEO e vocês precisarem de um help, mandem uma MP para mim ou entrem em contato pelo o meu email pessoal...ok?

 

Abraços!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

xanburzum: Cara, scripts show, fiquei sem palavras pela a sua assintência, muitoo obrigado mesmo, se surgir alguma dúvida em relação aos scripts que foram passados por você dou um help aqui. Obrigado!

ok amigo,qualquer coisa posta ae....

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito