Ir para conteúdo

POWERED BY:

Arquivado

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

kamicase

[Resolvido] Gerar index.htm do arquivo que foi subido

Recommended Posts

Pessoal estou com o seguinte problema e necessito da ajuda de voces.

Todo dia e colocado um arquivo cujo a formato e 20120507.html (anomesdia.html)

So que tenho que ficar colocando o link http://teste/appl/eclip/eclipn.asp?file=20120507.html MANUALMENTE

Teria algum codigo para pegar esse arquivo quando ele for inserido na pasta ?

 

 

Agradeco a todos

Compartilhar este post


Link para o post
Compartilhar em outros sites

Se o padrão é sempre assim, você pode criar o link diretamente no ASP, usando as funções "agregadas" do Date(): Year(), Month() e Day().

Compartilhar este post


Link para o post
Compartilhar em outros sites

Se o padrão é sempre assim, você pode criar o link diretamente no ASP, usando as funções "agregadas" do Date(): Year(), Month() e Day().

me ajuda por favor.

Segue o codigo em asp

<HTML>

<HEAD>

<TITLE>Avisanet 2.0 - E-Clip</TITLE>

</HEAD>

<%

path = "C:\inetpub\appl\eclip\"

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

 

response.write path & Request.Querystring("file")

if FSO.FileExists(path & Request.Querystring("file")) then

response.redirect("http://appl/eclip/" & Request.Querystring("file"))

else

response.redirect("http://appl/eclip/eclipn.asp?file=" & Request.Querystring("file"))

end if

%>

 

eclipn.asp

<!--#include file="../includes/functions/connection.asp"-->

<%

 

if Time()>= "11:00:00 AM" then

Set objNewMail = CreateObject("CDONTS.NewMail")

objNewMail.To = ""

objNewMail.CC = ""

objNewMail.BCC = ""

objNewMail.From = ""

objNewMail.Subject ="E-clip ainda não cadastrado"

objNewMail.Body = "Por favor, pedir para colocar o e-clip " & Request.Querystring("file")

objNewMail.BodyFormat=0

objNewMail.MailFormat=0

objNewMail.Send

Set objNewMail = Nothing

 

End if

%>

<HTML>

<HEAD>

<TITLE>Avisanet - E-Clip</TITLE>

</HEAD>

<style>

 

a { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px; font-weight: normal; color: #666666; text-decoration: none}

a:hover { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px; font-weight: normal; color: #999999; text-decoration: underline}

 

a.DESTAQUE { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8px; font-weight: normal; color: #000066; text-decoration: NONE}

a:hover.DESTAQUE { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8px; font-weight: normal; color: #000066; text-decoration: underline}

 

.aniversario { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: normal; color: #666666; text-decoration: NONE}

 

.titulodestaque { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px; font-weight: bold; color: #000066; text-decoration: NONE}

.textodestaque { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: normal; color: #666666; text-decoration: NONE}

a.textodestaque { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: normal; color: #666666; text-decoration: NONE}

a:hover.textodestaque { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: normal; color: #666666; text-decoration: none}

 

.textoCalendario { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 7pt; font-weight: normal; color: #ff0000; text-decoration: NONE}

 

.titulotemplate { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px; font-weight: normal; color: #666666; text-decoration: NONE}

 

a.marquee { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: normal; color: #666666; text-decoration: NONE}

a:hover.marquee { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: normal; color: #666666; text-decoration: NONE}

 

.aniversario { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: normal; color: #333333; text-decoration: NONE}

 

a.branco { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px; font-weight: normal; color: #ffffff; text-decoration: NONE}

a:hover.branco { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px; font-weight: normal; color: #ffffff; text-decoration: underline}

 

a.botoes { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: normal; color: #222266; text-decoration: NONE}

a:hover.botoes { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: normal; color: #666666; text-decoration: none}

 

 

 

</style>

 

<BODY topmargin="0" leftmargin="0" RIGHTMARGING=0 bottommargin=0>

<TABLE border=0 cellSpacing="0" cellPadding="0">

<TR>

<TD> </TD>

</TR>

 

<TR>

<td align="center" class="TEXTODESTAQUE" height="255" valign=top>

<br><b>Clipping não cadastrado. Volte daqui a pouco!</b>

</td>

</TR>

</TABLE>

</BODY>

</HTML>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Nos locais onde você precisa usar o nome do arquivo diário você faz algo +/- assim:

Arquivo = Year(date()) & Month(Date()) & Day(Date()) &".html"

E usa essa variável. Tem só que verificar se day e month retornam com 2 dígitos ou 1 quando é menor que 10 (quase certeza que 1 só).

Compartilhar este post


Link para o post
Compartilhar em outros sites

Nos locais onde você precisa usar o nome do arquivo diário você faz algo +/- assim:

Arquivo = Year(date()) & Month(Date()) & Day(Date()) &".html"

E usa essa variável. Tem só que verificar se day e month retornam com 2 dígitos ou 1 quando é menor que 10 (quase certeza que 1 só).

 

Certo acho que me expressei mal.

Vamos la todo dia faco o upload do arquivo atraves deste code

 

 

<%@ Language=VBScript %>

<%

Set Upload = Server.CreateObject("Persits.Upload.1")

count = upload.SaveToMemory

 

for each file in upload.files

select case file.name "index.htm"

case "strEclip"

strEclip = Replace(file.extractfilename," ","")

path = "C:\inetpub\appl\eclip\"

file.saveas( path & strEclip)

end select

next

 

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

 

Set File = fso.OpenTextFile(path & strEclip)

strHtml = Replace(File.readall,"<IMG","<oi")

 

Set FileFSO = FSO.CreateTextFile(path & strEclip,true,false)

 

filefso.WriteLine(strHtml)

 

FileFSO.Close

 

%>

<script>

window.alert("Arquivo gravado com sucesso");

history.go(-1);

</script>

 

 

 

Gostaria de que ele gravasse 2 arquivos. O anomesdia.html e index.html substituindo o original.

Acho que agora ficou mais claro.

 

Se puder ajudar ficarei muito grato;)

Compartilhar este post


Link para o post
Compartilhar em outros sites

Há alguma mudança de conteúdo substancial nesses arquivos ou apenas a alteração de links? Esses arquivos não podem ser .ASP?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Há alguma mudança de conteúdo substancial nesses arquivos ou apenas a alteração de links? Esses arquivos não podem ser .ASP?

tem que ser .html pq e enviado uma noticia dentro deste html

E este html e mostrado dentro de outro site

Compartilhar este post


Link para o post
Compartilhar em outros sites

Esse seu script está funcionando? O que cada parte faz exatamente?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Esse seu script está funcionando? O que cada parte faz exatamente?

 

Ta funcionando ele apenas faz o upload do arquivo.

Eu ja peguei o mesmo assim.

So que quero alterar ou fazer um novo para que eu faca o upload de um arquivo e ele crie 2 arquivos. Um com anomesdia.html e outro com index.html.

 

Sabe se e possivel assim ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Estou saindo do serviço agora, mas dê uma olhada por File System Object. Com ele você conseguira criar esses arquivos.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Estou saindo do serviço agora, mas dê uma olhada por File System Object. Com ele você conseguira criar esses arquivos.

 

 

Salgado, com esse Script abaixo eu consigo gerar o arquivo index.html que eu quero.

 

 

<%@ Page Language="C#" %>

<%@ Import Namespace="System.IO" %>

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

 

<script runat="server">

protected void Button1_Click(object sender, System.EventArgs e) {

string uploadFolder = Request.PhysicalApplicationPath + "eclip\\";

if (FileUpload1.HasFile)

{

string extension = Path.GetExtension(FileUpload1.PostedFile.FileName);

FileUpload1.SaveAs(uploadFolder + "index"+ extension);

Label1.Text = "Arquivo Gravado com Sucesso: " + "index"+ extension;

}

else

{

Label1.Text = "Primeiro Selecione o Arquivo.";

}

}

</script>

 

 

 

Agora gostaria de saber se tem como ele fazer o upload do arquivo com o nome original tambem e deixar os 2.

 

 

Abracos

Compartilhar este post


Link para o post
Compartilhar em outros sites

Você quer o upload em ASP Classic ou você esta usando tudo em C# ?

se for em ASP existem exemplos usando componentes, ou você pode usar atraves de FSO, ambos eu coloquei exemplos no fórum.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Você quer o upload em ASP Classic ou você esta usando tudo em C# ?

se for em ASP existem exemplos usando componentes, ou você pode usar atraves de FSO, ambos eu coloquei exemplos no fórum.

Ja consegui resolver com seu codigo e adaptei mais uma linha.

Agora faço o upload original e gera um index.html substituindo o arquivo antigo

Compartilhar este post


Link para o post
Compartilhar em outros sites

Beleza amigo...

agora se quiser contribuir, colocando seu code final para outros user com a mesma dificuldade, fique a vontade...

Compartilhar este post


Link para o post
Compartilhar em outros sites

CODIGO ASPX PARA UPLOAD DE ARQUIVO COM NOME.EXTENSAO E UPLOAD EM OUTRA PASTA COM NOME ORIGINAL

 

<%@ Page Language="C#" %>  
<%@ Import Namespace="System.IO" %>  

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">  

<script runat="server">  
   protected void Button1_Click(object sender, System.EventArgs e) {  
       string uploadFolder = Request.PhysicalApplicationPath + "[color="#FF0000"][b]PASTA UPLOAD[/b][/color]//";  
       if (FileUpload1.HasFile)  
       {  
           string extension = Path.GetExtension(FileUpload1.PostedFile.FileName);  
           FileUpload1.SaveAs(uploadFolder + "[b][color="#FF0000"]NOME DO ARQUIVO[/color][/b]"+ extension);
           FileUpload1.SaveAs(Server.MapPath("[b][color="#FF0000"]PASTA DE UPLOAD[/color][/b]" + FileUpload1.FileName));
           Label1.Text = "[b][color="#FF0000"]MENSAGEM DE UPLOAD[/color][/b]" + "index"+ extension;  
       }  
       else  
       {  
           Label1.Text = "[b][color="#FF0000"]MENSAGEM DE EXITO DO UPLOAD[/color][/b]";  
       }  
   }  
</script>  


<html xmlns="http://www.w3.org/1999/xhtml">  
<head id="Head1" runat="server">  
   <title>[color="#FF0000"][b]TITULO DA PAGINA[/b][/color]</title>  
   <style type="text/css">
       .style2
       {
           color: Black;
           font-weight: normal;
       }
       .style4
       {
           height: 24px;
           width: 955px;
       }
       .style5
       {
           width: 955px;
       }
   </style>
</head>  
<body>  
   <form id="form1" runat="server">  
   <div>  
       <h3 class="style2">
           <table border="1" frame="border" style="width: 100%; height: 20px;" width="100">
               <tr>
                   <td class="style4">
                       [color="#FF0000"][b]TEXTO DA PAGINA[/b][/color]</td>
               </tr>
               <tr>
                   <td class="style5">
                       Arquivo   
       <asp:FileUpload   
            ID="FileUpload1"   
            runat="server"   
            BackColor="White"   
            ForeColor="Blue"   
            />  
          
       <asp:Label   
            ID="Label1"   
            runat="server"   
            Font-Size="Large"  
            ForeColor="OrangeRed"  
            >  
       </asp:Label>  
                   </td>
               </tr>
               <tr>
                   <td class="style5">
       <asp:Button   
            ID="Button1"   
            runat="server"   
            Font-Bold="true"   
            ForeColor="Black"   
            OnClick="Button1_Click"  
            Text="Gravar"  
            />     
                   </td>
               </tr>
           </table>
       </h3>
   </div>  
   </form>  
</body>  
</html>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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