Ver Mensaje Individual
  #6 (permalink)  
Antiguo 19/06/2006, 11:04
nancy8120
 
Fecha de Ingreso: enero-2006
Mensajes: 233
Antigüedad: 19 años, 4 meses
Puntos: 2
no me imprime el path
mira el codigo a ver
<HTML>
<HEAD>
<TITLE>JPEG Upload Script</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">

<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 3000000, True

On Error Resume Next
Count = Upload.Save(Server.Mappath("images"))
'Upload.Save Server.MapPath("/img/")

response.write Server.MapPath()

response.end
If Err <> 0 or Count = 0 Then

%>

<FONT SIZE="3" FACE="Arial" COLOR="#FF0000"><% If Err <> 0 Then Response.Write "An error occurred:" & Err.Description Else Response.Write "Nothing has been uploaded."%></B></FONT>
<P>
<FONT SIZE="2" FACE="Arial"><A HREF="pick_jpeg.asp">Try again</A>.</FONT>

<%
Else
On Error Goto 0
Set File = Upload.Files(1)
If File.ImageType = "UNKNOWN" Then
File.Delete
%>
<FONT SIZE="3" FACE="Arial" COLOR="#FF0000">This is not a valid image file.</B></FONT>
<P>
<FONT SIZE="3" FACE="Arial"><A HREF="pick_jpeg.asp">Try again</A>.</FONT>
<% Else
%>

<FONT SIZE="2" FACE="Arial">
<B>The following <% = File.ImageType%> image has been uploaded:</B><P>
<TABLE CELLSPACING="0" CELLPADDING="2" BORDER="1">
<TR><TD><FONT SIZE="2" FACE="Arial"><B>Path:</B></FONT></TD>
<TD><FONT SIZE="2" FACE="Arial"><% = File.OriginalPath %></FONT></TD></TR>
<TR><TD><FONT SIZE="2" FACE="Arial"><B>Size:</B></FONT></TD>
<TD><FONT SIZE="2" FACE="Arial"><% = File.Size %> bytes</FONT></TD></TR>
<TR><TD><FONT SIZE="2" FACE="Arial"><B>Dimensions:</B></FONT></TD>
<TD><FONT SIZE="2" FACE="Arial"><% = File.ImageWidth %> x <% = File.ImageHeight %> pixels</FONT></TD></TR>
</TABLE>
<P>
<FORM ACTION="thumbnail.asp" METHOD="GET">
<INPUT TYPE="HIDDEN" NAME="Path" VALUE="<% = File.Path%>">
<INPUT TYPE="HIDDEN" NAME="Height" VALUE="<% = File.ImageHeight %>">
<INPUT TYPE="HIDDEN" NAME="Width" VALUE="<% = File.ImageWidth %>">
<INPUT TYPE="HIDDEN" NAME="scale" VALUE="50">
<INPUT TYPE="HIDDEN" NAME="NewWidth" VALUE="100">
<INPUT TYPE="HIDDEN" NAME="NewHeight" VALUE="100">
<INPUT TYPE="HIDDEN" NAME="ResizeOption" VALUE="1">
<INPUT TYPE="HIDDEN" NAME="Quality" VALUE="1">
<INPUT TYPE="HIDDEN" NAME="Sharpen" VALUE="">
<INPUT TYPE="HIDDEN" NAME="SharpenValue" VALUE="130">
<INPUT TYPE="HIDDEN" NAME="Rotate" VALUE="0">
<INPUT TYPE="SUBMIT" VALUE="Continue...">
</FORM>
<P>
<IMG SRC="/uploaddir/jpeg/<% = File.ExtractFileName %>">
<P>
<FONT SIZE="2" FACE="Arial"><A HREF="pick_jpeg.asp">Upload another image</A></FONT>


</FONT>
<%

End If
End If
%>

</BODY>
</HTML>


pliss
gracias