Ver Mensaje Individual
  #4 (permalink)  
Antiguo 10/09/2004, 11:20
ciberpata
 
Fecha de Ingreso: junio-2003
Ubicación: Santiago de Compostela
Mensajes: 603
Antigüedad: 21 años, 11 meses
Puntos: 0
Saludos:
No hay forma de sacar la historia pa'lante

A ver soy relativamente novato en esto, por lo que no me entero de mucho con el tema de la dirección web que me has facilitado. De todas maneras he intentado validar si el campo file está vacio o lleno aplicando la funcion que me has pasado y no hay forma. Por lo que te paso lo que hice y si tienes a bien, corrigeme aunque sea a base de ho....

Por si yo no me había explicado bien lo que quiero es validar si el campo file pasa vacio o lleno. Obviamente si pasa vacio le mandaré al usuario que busque un fichero para subir al servidor.
El problema es que tal como tengo los dos ficheros siguientes siempre me dice que está vacio.

A ver hice lo siguiente en un par de ficheros de prueba.

Codigo página prueba1.asp
Código:
 
<<A href="mailto:%@LANGUAGE="VBSCRIPT">%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin t&iacute;tulo</title>
</head>
<body>
<form action="prueba1_result.asp" method="post" enctype="multipart/form-data" name="form1">
  <p>
	<input name="name" type="file" id="name">
</p>
  <p>
	<input type="submit" name="Submit" value="Enviar">
</p>
</form>
</body>
</html>
Código pagina prueba1_result.asp
Código:
 
<<A href="mailto:%@LANGUAGE="VBSCRIPT">%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin t&iacute;tulo</title>
</head>
<%
Set dict = Server.CreateObject("Scripting.Dictionary")
Public Function getFileName(name)
If dict.Exists(name) Then
Dim temp, tempPos
temp = dict(name).Item("FileName")
tempPos = 1 + InStrRev(temp, "\")
getFileName = Mid(temp, tempPos)
response.Write("el campo está lleno")
Else
getFileName = ""
response.Write("el campo está vacio")
End If
End Function
getfilename(name)
%>
<body>
</body>
</html>
Gracias