slet ingen !?
--------Form.asp---------------
<HTML>
<HEAD>
<TITLE>AspUpload Live Demo 1: Simple Uploads</TITLE>
</HEAD>
<BODY>
<FONT FACE="Arial" size="2">
<H4>Simple Uploads</h4>
<B>Select 1, 2 or 3 files, then click the Upload button. Images (.gif, .jpg, .png)
will be automatically displayed.</B>
<P>
<FORM NAME="MyForm" METHOD="POST" ENCTYPE="multipart/form-data"
ACTION="upload1.asp">
<TABLE CELLSPACING=0 CELLPADDING=3 BORDER=1>
<TD BGCOLOR="#FFFFCC">
<INPUT TYPE=FILE SIZE=40 NAME="FILE1"><BR>
<INPUT TYPE=FILE SIZE=40 NAME="FILE2"><BR>
<INPUT TYPE=FILE SIZE=40 NAME="FILE3"><BR>
<INPUT TYPE=FILE SIZE=40 NAME="FILE4"><BR>
<INPUT TYPE=FILE SIZE=40 NAME="FILE5"><BR>
<INPUT TYPE=FILE SIZE=40 NAME="FILE6"><BR>
<INPUT TYPE=FILE SIZE=40 NAME="FILE7"><BR>
<INPUT TYPE=FILE SIZE=40 NAME="FILE8"><BR>
<INPUT TYPE=SUBMIT VALUE="Upload">
</TD>
</TABLE>
</FORM>
<P>
</FONT>
</BODY>
</HTML>
--------Upload1.asp------------
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
On Error Resume Next
Upload.SetMaxSize 1048576 ' Limit files to 1MB
Count = Upload.Save("d:\Inetpub\Zznetwork.dk\Img\test1\pic")
%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<CENTER>
<% If Err <> 0 Then %>
<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<H3>The following error occured while uploading:</h3>
</FONT>
<FONT SIZE=3 FACE="Arial" COLOR=#FF2020>
<h2>"<% = Err.Description %>"</h2>
</FONT>
<FONT SIZE=2 FACE="Arial" COLOR="#0020A0">
Please <A HREF="demo1.asp">try again</A>.
</FONT>
<% Else %>
<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<h2>Success! <% = Count %> file(s) have been uploaded.</h2>
</FONT>
<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0>
<TH BGCOLOR="#FFFF00">Uploaded File</TH><TH BGCOLOR="#FFFF00">Size</TH><TH BGCOLOR="#FFFF00">Original Size</TH><TR>
<% For Each File in Upload.Files %>
<% If File.ImageType = "GIF" or File.ImageType = "JPG" or File.ImageType = "PNG" Then %>
<TD ALIGN=CENTER>
<IMG SRC="/Img/demo1/pic/<% = File.FileName%>"><BR><B><% = File.OriginalPath%></B><BR>
(<% = File.ImageWidth %> x <% = File.ImageHeight %> pixels)
</TD>
<% Else %>
<TD><B><% = File.OriginalPath %></B></TD>
<% End If %>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.Size %> bytes</TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.OriginalSize %> bytes</TD><TR>
<% Next %>
</TABLE>
</FONT>
<P>
<FONT SIZE=2 FACE="Arial" COLOR=#0020A0>
Click <A HREF="demo1.asp">here</A> to upload more files.
</FONT>
<% End If %>
<%
'Instantiate object (Server Objects ASPImage component)
Set MyImage = Server.CreateObject("AspImage.Image")
'filename of original image w/ extension
Dim strOrigImg
strOrigImg = File.FileName
'filename of thumbnail w/ extension
Dim strThumbName
strThumbName = File.FileName
'full path of original image
Dim strOrigImgFullPath
strOrigImgFullPath ="d:\Inetpub\Zznetwork.dk\img\test1\pic\"
'full path of generated thumbnail
Dim strThumbFullPath
strThumbFullPath = "d:\Inetpub\Zznetwork.dk\img\test1\pic\"
Dim strOriginal, strThumb, ResizedX,ResizedY
strOriginal = strOrigImgFullPath & strOrigImg
strThumb = strThumbFullPath & strThumbName
'load original image
MyImage.LoadImage strOriginal
'Set Resize factor for X
ResizedX = 150
'Get orignal size of image
MyImage.GetImageFileSize strOriginal, X, Y
MyImage.MaxX = X
MyImage.MaxY = Y
'maintain aspect ratio
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
MyImage.ResizeR ResizedX, ResizedY
'saving thumbnail to disk
MyImage.ImageFormat = 3
MyImage.FileName= strThumb
MyImage.SaveImage
'Cleanup
Set MyImage = Nothing
'display saved thumbnail
Response.Write "<img src=" & strThumbName & "><br>"
'display original image and thumbnail size
Response.Write "<b>Original Image Height</b> = " & Y & " - <b>Original Image Width</b> = " & X & "<br>"
Response.Write "<b>Thumbnail Height</b> = " & Int(ResizedY) & " - <b>Thumbnail Width</b> = " & Int(ResizedX)
%>
</CENTER>
</BODY>
</HTML>
Det er hva jeg har at gå efter scriptet er 2 jeg har fundet og prøvet at sætte sammen. men uden held.
Upload delen virker, men jeg kan ikke få Resize delen til at fungere, kun hvis jeg sætte et fast filnavn. Men det er jo ikke helt efter hensigten.
Ny bruger
Nybegynder
Opret
Preview
