Publicado em 7 de mai.

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

#asp classico

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

Discussão (14)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Salgado· 8 de mai.

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().

kamicase· 8 de mai.

>
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

>

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>

Salgado· 8 de mai.

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ó).

kamicase· 8 de mai.

>
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;)

Salgado· 8 de mai.

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

kamicase· 8 de mai.

>
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

Salgado· 8 de mai.

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

kamicase· 8 de mai.

>
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 ?

Salgado· 8 de mai.

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

kamicase· 8 de mai.

>
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

xanburzum· 8 de mai.

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.

kamicase· 9 de mai.

>
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

xanburzum· 10 de mai.

Beleza amigo...

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

kamicase· 10 de mai.

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>