Hjælp med aspupload

klik her og hent kildekoden ned
http://www.aspupload.com/livedemo.html

Husk at ændre stien hvor filerne skal gemmes...

noget i retningen af:
Upload.Save(Server.MapPath("file"))

men hvorfor står der c:\upload\xupload\ på webhotellet hedder mappen htdocs/upload ?

det script kan komme til at ligne noget der ser sådan her ud:

Set Upload = Server.CreateObject("Persits.Upload")

' This is needed to enable the progress indicator
Upload.ProgressID = Request.QueryString("PID")

Upload.Save Server.MapPath("file") & "\"




For Each File in Upload.Files
    If File.ImageType <> "JPG" Then
        Response.Write "This is not a JPGE image."
        File.Delete
        Response.End
    End If


StorX = 600
StorY = 450

lilleX = 100
lilleY = 100

    Set Image = Server.CreateObject("AspImage.Image")

    Image.LoadImage File.Path

    Image.Resize StorX,StorY
    Image.ImageFormat = 1
    Image.JPEGQuality = 75
    Image.FileName = Server.MapPath("file2") & "\stor_" & File.FileName
    Image.SaveImage

picstor=Image.FileName
Image.LoadImage File.Path


    Image.Resize lilleX,lilleY
    Image.ImageFormat = 1
    Image.JPEGQuality = 75
    Image.FileName = Server.MapPath("file2") & "\lille_" & File.FileName
    Image.SaveImage
   
    piclille=Image.FileName
   
    Set Image = nothing

Upload.Save Server.MapPath("file") & "\"

bruges til at bestemme hvor det skal gemmes....her er det et katelog der hedder file som ligger et niveau under der hvor asp-filen ligger

fik denne fejl fra server admin: "This feature has been disabled by system administrator. Use SaveVirtual instead."

har ikke set det sidste du har lavet....kigger lige på det. Kan jeg bare paste din text ind som den er, eller mangler der noget så den fungerer ?
Skal den ind i body eller er det hele scriptet ?

hvad er det for en du prøver at få til at virke af dem de have inde på siden?

http://support.persits.com/upload/demo2.asp

<%
    Set Upload = Server.CreateObject("Persits.Upload.1")

    Upload.OverwriteFiles = False
    On Error Resume Next

    Upload.SetMaxSize 1048576    ' Limit files to 1MB
    dir = Server.MapPath("file") & "\"
    Count = Upload.Save(dir)
%>
<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="http://www.aspupload.com/livedemo.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>
<TD><B>Image:</B></TD>
<% If Count > 0 Then %>
    <%
    Set File = Upload.Files(1)
    If File.ImageType = "GIF" or File.ImageType = "JPG" or File.ImageType = "PNG" Then %>
        <TD ALIGN=CENTER><IMG SRC="file/<% = File.FileName%>"><BR><% = File.OriginalPath%><BR>
        (<% = File.ImageWidth %> x <% = File.ImageHeight %> pixels)
        </TD>
    <% Else %>
        <TD><% = File.OriginalPath %></TD>
    <% End If %>
<% Else %>
    <TD>File not selected.</TD>
<% End If %>
<TR>
<TD><B>Description:</B></TD><TD><% = Upload.Form("Description") %>&nbsp;</TD><TR>
<TD><B>Categories:</B></TD>
<TD>
<%
    For Each Item in Upload.Form
        If Item.Name = "Category" Then Response.Write Item.Value & "<BR>"
    Next
%>
&nbsp;</TD>
</TABLE>


</FONT>
<P>
<FONT SIZE=2 FACE="Arial" COLOR=#0020A0>
Click <A HREF="demo2.asp">here</A> to upload more files.
</FONT>
<% End If %>

<HR>
<FONT SIZE=2 FACE="Arial" COLOR=#0020A0>
<A HREF="http://www.persits.com/aspupload.exe">Download</A> your trial copy of AspUpload.
<P>
<A HREF="http://www.aspupload.com">Back to AspUpload.com</A>.
</FONT>



</CENTER>
</BODY>
</HTML>

gemmer i et katelog der hedder "file"

sku lige have skidtet til at virke men prøv at copy-paste det virker på min maskine

kan du få det til at virke?

for denne "This feature has been disabled by system administrator. Use SaveVirtual instead"

jeg finder dynen nu, men vender tilbage i morgen tidlig

Upload.SaveVirtual("file")

<%
    Set Upload = Server.CreateObject("Persits.Upload.1")

    Upload.OverwriteFiles = False
    On Error Resume Next

    Upload.SetMaxSize 1048576    ' Limit files to 1MB
    Count = Upload.SaveVirtual("file")

   
%>
<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="http://www.aspupload.com/livedemo.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>
<TD><B>Image:</B></TD>
<% If Count > 0 Then %>
    <%
    Set File = Upload.Files(1)
    If File.ImageType = "GIF" or File.ImageType = "JPG" or File.ImageType = "PNG" Then %>
        <TD ALIGN=CENTER><IMG SRC="file/<% = File.FileName%>"><BR><% = File.OriginalPath%><BR>
        (<% = File.ImageWidth %> x <% = File.ImageHeight %> pixels)
        </TD>
    <% Else %>
        <TD><% = File.OriginalPath %></TD>
    <% End If %>
<% Else %>
    <TD>File not selected.</TD>
<% End If %>
<TR>
<TD><B>Description:</B></TD><TD><% = Upload.Form("Description") %>&nbsp;</TD><TR>
<TD><B>Categories:</B></TD>
<TD>
<%
    For Each Item in Upload.Form
        If Item.Name = "Category" Then Response.Write Item.Value & "<BR>"
    Next
%>
&nbsp;</TD>
</TABLE>


</FONT>
<P>
<FONT SIZE=2 FACE="Arial" COLOR=#0020A0>
Click <A HREF="demo2.asp">here</A> to upload more files.
</FONT>
<% End If %>

<HR>
<FONT SIZE=2 FACE="Arial" COLOR=#0020A0>
<A HREF="http://www.persits.com/aspupload.exe">Download</A> your trial copy of AspUpload.
<P>
<A HREF="http://www.aspupload.com">Back to AspUpload.com</A>.
</FONT>



</CENTER>
</BODY>
</HTML>

tjekket og fungere husk at tilpasse "file" kan være "../upload" eller "upload" osv
sov godt

Sker der noget /cdc???
læg mærke til at jeg har ændret det til:
  Count = Upload.SaveVirtual("file")

det virker ikke, nu har jeg prøvet med denne du har lavet tl hudløshed og den simple uden held

lård

dit upload katelog ligger det som under katelog til der hvor du har upload-filerne til at ligge?

jeg har demo2 i mappen upload og selve upload scriptet i samme mappe, og så har jeg en mappe der hedder filer

har du husket at give mappen rettigheder nok??

Du skal give brugeren "IUSR_<computernavn>" lov til at skrive/læse i mappen - eller kan filen ikke gemmes. I W2K er det bare at højreklikke på mappen og vælge egenskaber -> sikkerhed

jeg giver op, men som coolcoder skriver så kan det være et rettighedsproblem

likedon->> Jeg fik dit til at virke i går, lige før eksperten lukkede, og jeg var igang med at give dig points. Hvad jeg har gjort for at den virker ved jeg ikke, andet end at jeg brugte dit sidste script, og rodede lidt med det, og så fungerede det.
Så tak for hjælpen likedon :o)

/cdc

feed..:-)