Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

una manito con esto: enviar archivo adjnto

26/08/2008 - 21:48 por Luis Mata | Informe spam
Ayuda Hacer una pregunta
Aqui el codigo en una sola hoja ASP:


<%
'option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>
<!-- #include file="freeaspupload.asp" -->
<%
Dim uploadsDirVar
uploadsDirVar = "C:\"
function SaveFiles
Dim Upload, fileName, fileSize, ks, i, fileKey, resumen
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
' If something fails inside the script, but the exception is handled
If Err.Number <> 0 then Exit function
SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
resumen = "<B>Archivos subidos:</B> "
for each fileKey in Upload.UploadedFiles.keys
resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" &
Upload.UploadedFiles(fileKey).Length & "B) "
next
else
resumen = "El nombre del archivo especificado en el formulario no es
valido en el sistema."
end if
end function
%>
<HTML>
<HEAD>
<TITLE>Test Free ASP Upload</TITLE>
</HEAD>
<BODY>
<br>
<div style="border-bottom: #A91905 2px solid;font-size:16">Subir
archivos</div>
<div style='margin-left:150'>

<form name="frmSend" method="POST" enctype="multipart/form-data"
action="pruebaUpload.asp">
Ruta de Archivo: <input name="attach1" type="file" size="35"><br>
<input type=submit value="Upload">
</form>

<BR></div>
<%
'solo llamo al UPLOAD si hay envio de formulario
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Hace el upload de los archivos enviados y muestra el resumen
response.write SaveFiles()
' Aqui enviar el correo
dim DestinatarioCorreo, CuentaDesdeDondeSeEenvia, rutafile
DestinatarioCorreo =
"lmata@hipermercadoceramico.com.pe"'Request("destinatario")
CuentaDesdeDondeSeEenvia = "trabeje@hipermercadoceramico.com.pe" 'debe ser
una creada desde el panel de control nombre@dominio
rutafile = Form("attach1")
Set oMail = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
'Se configuran los parametros necesarios para el envío
iConf.Fields.Item("http://schemas.microsoft.com/cdo/co...sing")
= 2
iConf.Fields.Item("http://schemas.microsoft.com/cdo/co...port")
= 25
iConf.Fields.Item("http://schemas.microsoft.com/cdo/co...rver")
= "dns1.hipermercadoceramico.com.pe"
iConf.Fields.Item("http://schemas.microsoft.com/cdo/co...name")
= "ceramicosempleos@hipermercadoceramico.com.pe"
iConf.Fields.Item("http://schemas.microsoft.com/cdo/co...word")
= "rrhh001"
iConf.Fields.Item("http://schemas.microsoft.com/cdo/co...cate")
= 1
iConf.Fields.Item("http://schemas.microsoft.com/cdo/co...eout")
= 10
iConf.Fields.Update
' Se asignan las propiedades de configuración al objeto
Set oMail.Configuration = iConf
oMail.To = "lmata@hipermercadoceramico.com.pe"'DestinatarioCorreo'
oMail.From =
"ceramicosempleos@hipermercadoceramico.com.pe"'CuentaDesdeDondeSeEenvia
oMail.Subject = "Servidor Web: Curriculum Viate"
oMail.TextBody = "Archivo Adjunto con Archivo DOC"
' Attachment using known static physical path
'oMail.AddAttachment rutafile'"D:\upload_cv\luism2.txt"
'Se envía el correo
oMail.Send
'Se destruyen los objetos
Set iConf = Nothing
Set Flds = Nothing
end if
%>
</BODY>
</HTML>

puedo enviar el archivo al servidor web y enviar el correo, ahora quiero
capturar el valor del ATACH1, para poder enviarlo como dato adjunto.
el request no me funciona, que me sugieren.

Luis
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Picatoste
27/08/2008 - 09:34 | Informe spam
On 26 ago, 21:48, "Luis Mata"
wrote:
Aqui el codigo en una sola hoja ASP:

<%
'option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>
<!-- #include file="freeaspupload.asp" -->
<%
Dim uploadsDirVar
uploadsDirVar = "C:\"
function SaveFiles
    Dim Upload, fileName, fileSize, ks, i, fileKey, resumen
    Set Upload = New FreeASPUpload
    Upload.Save(uploadsDirVar)
 ' If something fails inside the script, but the exception is handled
 If Err.Number <> 0 then Exit function
    SaveFiles = ""
    ks = Upload.UploadedFiles.keys
    if (UBound(ks) <> -1) then
  resumen = "<B>Archivos subidos:</B> "
        for each fileKey in Upload.UploadedFiles.keys
   resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" &
Upload.UploadedFiles(fileKey).Length & "B) "
        next
    else
  resumen = "El nombre del archivo especificado en el formulario no es
valido en el sistema."
    end if
end function
%>
<HTML>
<HEAD>
<TITLE>Test Free ASP Upload</TITLE>
</HEAD>
<BODY>
<br>
<div style="border-bottom: #A91905 2px solid;font-size:16">Subir
archivos</div>
<div style='margin-left:150'>

<form name="frmSend" method="POST" enctype="multipart/form-data"
action="pruebaUpload.asp">
Ruta de Archivo: <input name="attach1" type="file" size="35"><br>
<input type=submit value="Upload">
</form>

<BR></div>
<%
'solo llamo al UPLOAD si hay envio de formulario
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
 'Hace el upload de los archivos enviados y muestra el resumen
 response.write SaveFiles()
 ' Aqui enviar el correo
 dim DestinatarioCorreo, CuentaDesdeDondeSeEenvia, rutafile
 DestinatarioCorreo > ""'Request("destinatario")
 CuentaDesdeDondeSeEenvia = "" 'debe ser
una creada desde el panel de control
 rutafile = Form("attach1")
  Set oMail = Server.CreateObject("CDO.Message")
  Set iConf = Server.CreateObject("CDO.Configuration")
  Set Flds = iConf.Fields
  'Se configuran los parametros necesarios para el envío
  iConf.Fields.Item("http://schemas.microsoft.com/cdo/co...sing")
= 2
  iConf.Fields.Item("http://schemas.microsoft.com/cdo/co...port")
= 25
  iConf.Fields.Item("http://schemas.microsoft.com/cdo/co...rver")
= "dns1.hipermercadoceramico.com.pe"
  iConf.Fields.Item("http://schemas.microsoft.com/cdo/co...name")
= ""
  iConf.Fields.Item("http://schemas.microsoft.com/cdo/co...word")
= "rrhh001"
  iConf.Fields.Item("http://schemas.microsoft.com/cdo/co...cate")
= 1
  iConf.Fields.Item("http://schemas.microsoft.com/cdo/co...eout")
= 10
  iConf.Fields.Update
  ' Se asignan las propiedades de configuración al objeto
  Set oMail.Configuration = iConf
    oMail.To = ""'DestinatarioCorreo'
    oMail.From > ""'CuentaDesdeDondeSeEenvia
    oMail.Subject = "Servidor Web: Curriculum Viate"
    oMail.TextBody = "Archivo Adjunto con Archivo DOC"
    ' Attachment using known static physical path
    'oMail.AddAttachment rutafile'"D:\upload_cv\luism2.txt"
  'Se envía el correo
  oMail.Send
  'Se destruyen los objetos
  Set iConf = Nothing
  Set Flds = Nothing
end if
%>
</BODY>
</HTML>

puedo enviar el archivo al servidor web y enviar el correo, ahora quiero
capturar el valor del ATACH1, para poder enviarlo como dato adjunto.
el request no me funciona, que me sugieren.

Luis



En JScript se haría así:

valor = document.forms[0]['attach1'].value;

mmm en VBScript creo que seria algo así:

valor = document.form.attach1.value ...

La verdad no estoy muy seguro pero es algo por el estilo.

Mira encontre un ejemplo en JScript:
http://www.forosdelweb.com/f13/js-p...io-462281/

Seguro que hay en alguno VBScript

Saluditos!
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida