weee
05-30-2004, 05:41 PM
I'm having big troubles with creating a simple upload for photo and make it height to be 100.
I figure out how to upload it but I don't know how to make the height to be 100 and save it tht way.
Plese help me. 'm trying to do that for the last few hours but nothing.
Thanks!
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 3000000, True
On Error Resume Next
Count = Upload.Save("c:\hosting\w1eee\upload\test\")
If Err <> 0 or Count = 0 Then
If Err <> 0 Then
Response.Write "<font color=#ff0000>An error occurred:" & Err.Description
Else
Response.Write "Nothing has been uploaded.</font><br><a href=1.asp>Try again</a>."
End If
Else
On Error Goto 0
Set File = Upload.Files(1)
If File.ImageType = "UNKNOWN" Then
File.Delete
Response.Write "<font color=#ff0000>This is not a valid image file.</font><br><a href=1.asp>Try again</a>."
Else
' resize according to user selection
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = "c:\hosting\w1eee\upload\test\1.jpg"
Jpeg.Open Path
Jpeg.Height = 100
%>
<b>The following <% = File.ImageType%> image has been uploaded:</b><br><br>
<b>Size:</b> <% = File.Size %> bytes<br>
<b>Dimensions:</b> <% = File.ImageWidth %> x <% = File.ImageHeight %> pixels<br><br>
<form action="3.asp" metthod="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>
<img src="../../upload/books/<% = File.ExtractFileName %>">
<%
End If
End If
%>
I figure out how to upload it but I don't know how to make the height to be 100 and save it tht way.
Plese help me. 'm trying to do that for the last few hours but nothing.
Thanks!
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 3000000, True
On Error Resume Next
Count = Upload.Save("c:\hosting\w1eee\upload\test\")
If Err <> 0 or Count = 0 Then
If Err <> 0 Then
Response.Write "<font color=#ff0000>An error occurred:" & Err.Description
Else
Response.Write "Nothing has been uploaded.</font><br><a href=1.asp>Try again</a>."
End If
Else
On Error Goto 0
Set File = Upload.Files(1)
If File.ImageType = "UNKNOWN" Then
File.Delete
Response.Write "<font color=#ff0000>This is not a valid image file.</font><br><a href=1.asp>Try again</a>."
Else
' resize according to user selection
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = "c:\hosting\w1eee\upload\test\1.jpg"
Jpeg.Open Path
Jpeg.Height = 100
%>
<b>The following <% = File.ImageType%> image has been uploaded:</b><br><br>
<b>Size:</b> <% = File.Size %> bytes<br>
<b>Dimensions:</b> <% = File.ImageWidth %> x <% = File.ImageHeight %> pixels<br><br>
<form action="3.asp" metthod="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>
<img src="../../upload/books/<% = File.ExtractFileName %>">
<%
End If
End If
%>