subir ficheros con aspupload (persits)

engonga · #1 (**permalink**) 09/07/2008, 12:49

hola tengo esto

Código PHP:

  <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="includes/proteccio.asp" -->
<%
 Dim uploadsDirVar, carpeta_on, carpeta_pujar, estat
  estat=request.QueryString("estat")
    carpeta_on = request.QueryString("aon")
  carpeta_pujar = carpeta_on
  'uploadsDirVar =Server.MapPath("/upload")
   uploadsDirVar =Server.MapPath(carpeta_pujar)
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<script src="arxius/js.js"></script>
<HEAD>
<TITLE></TITLE>
<link href="../arxius/estils_admin.css" rel="stylesheet" type="text/css" />
</HEAD>
<BODY>
<br>
<span class="normal">Estas pujant imatges a <b><%=carpeta_pujar%></b></span>
<%if estat="pujat" then%>
<div id="form_puja" style='margin-left:150; display:none'  >
<%else%>
<div id="form_puja" style='margin-left:150'>
<%end if%>
<FORM METHOD="POST" ENCTYPE="multipart/form-data"ACTION="puja_pdf.asp?aon=<%=carpeta_on%>&estat=pujat">
<INPUT TYPE=FILE SIZE=60 NAME="FILE1"><BR>
<INPUT TYPE=FILE SIZE=60 NAME="FILE2"><BR>
<INPUT TYPE=FILE SIZE=60 NAME="FILE3"><BR>
<INPUT TYPE=SUBMIT VALUE="puja!" onClick="amagainfo('form_puja');verMasInfo('loading) ">
</FORM>
 
 
<BR></div>
<div id="loading" style="display:none">
<br /><br /><span class="normal"><img src="imatges_admin/loading.gif" alt="load" />&nbsp;&nbsp;Pujant PDF espera!!!!</span><br /><br />
</div>
<%
if estat="pujat" then
Set Upload = Server.CreateObject("Persits.Upload.1")
Count= Upload.Save(Server.MapPath(carpeta_pujar))
%>
<br/><br /><br /><% = Count %> ficheros subidos.
<br /><br /><br />
<a href="iframe_pdf.asp?carpeta=../pdf_productes/" >llistat pdfs</a>
<%else
end if %>
</body>
</html>

no se como hacer para que si el usuario me pone un fichero llamado "cosas bonitas de la vida.pdf" guardarlo como "cosas_bonitas_de_la_vida.pdf"

mc_quake · #2 (**permalink**) 09/07/2008, 13:46

usa esto ejemplo

texto = "cosas bonitas de la vida.pdf"

texto = replace(texto," ", "_")

engonga · #3 (**permalink**) 09/07/2008, 13:59

si pero no se como hacer para que el aspupload me guarde el fichero con otro nombre

JuanRAPerez · #4 (**permalink**) 09/07/2008, 14:10

lee este aporte

http://www.forosdelweb.com/f15/asp-u...02/#post996549

suerte

engonga · #5 (**permalink**) 09/07/2008, 16:37

lo he conseguido de otra forma

Código PHP:

  Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.ProgressID = Request.QueryString("PID")

'Count= Upload.Save(Server.MapPath(carpeta_pujar))
   
    Upload.Save
   
    
    
    
    For Each File in Upload.Files    
NEW_NAME = replace(File.FileName," ", "_")
File.SaveAs Server.MapPath(carpeta_pujar & NEW_NAME)   
'Response.Write "New name: " & File.FileName & "<BR>" 
next  
%>

pero ahora no se como hacer para filtrar que solo puedan subir ficherxos .pdf

JuanRAPerez · #6 (**permalink**) 10/07/2008, 07:46

prueba:

+ obtén la extensión de el fichero
+verifica que sea = pdf
+ si es así guárdalo
+ si no no lo hagas

suerte

engonga · #7 (**permalink**) 10/07/2008, 10:15

la esta solucionado

Código PHP:

  <%
For Each File in Upload.Files 
   Ext = UCase(Right(File.Path, 3)) 
   If Ext <> "PDF" Then %>
      <span class="nomal"><b><%=File.Filename%></b></span>&nbsp;&nbsp; <span class="normal_activat_rellevant">NO ES UN ARXIU VÀLID.</span><br> 
  <%Else 
      NEW_NAME = replace(File.FileName," ", "_")
File.SaveAs Server.MapPath(carpeta_pujar & NEW_NAME)   
Response.Write "New name: " & File.FileName & "<BR>" %>
<span class="normal"> <%=carpeta_pujar%><b><%=File.FileName%></b> - (" <%= File.Size %>" bytes)</span><br />
<%
   End If 
Next