Ekşi Duyuru ASP Resim Upload Sorunu (Acil Yarım Gerekmekte)

(1)

ASP Resim Upload Sorunu (Acil Yarım Gerekmekte)

shadyyy

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

Upload.OverwriteFiles = False
On Error Resume Next

Upload.SetMaxSize 1048576 ' Limit files to 1MB
Upload.Save server.MapPath("proje\")
%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<CENTER>

<% If Err <> 0 Then %>

<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<H3>Hata oluştu:</h3>
</FONT>

<FONT SIZE=3 FACE="Arial" COLOR=#FF2020>
<h2>"<% = Err.Description %>"</h2>
</FONT>

<FONT SIZE=2 FACE="Arial" COLOR="#0020A0">
Lütfen <A HREF="default.asp?id=<%=Request.QueryString("id")% >">tekrar deneyin</A>.
</FONT>

<% Else %>
<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<h2>Başarılı! <% = Count %> dosy(lar) yüklendi.</h2>
</FONT>

<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0>
<TH BGCOLOR="#FFFF00"><font color="#0020A0" size="3" face="Arial">Yüklenen Resim</font></TH>
<TH BGCOLOR="#FFFF00"><font color="#0020A0" size="3" face="Arial">Boyut</font></TH>
<TH BGCOLOR="#FFFF00" colspan="2"><font color="#0020A0" size="3" face="Arial">Orjinal Boyut</font></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="/uploaddir/<% = 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>
<% End If %>

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

--------------

Yukarıda ki kodlar resmin upload edildiği sayfaya ait. By sayfa da Upload.Save server.MapPath("proje\") satırında arıza vermekte. Bu script nette çalıştırılıyor. Resmin upload edildiği kısımda arıza veriyor.

bilen arkadaşlar [email protected] dan bana ulaşabilirler.
Şimdiden teşekkürler.

shadyyy

(21.06.09)

persist upload bi ara kullanmıstım, ama simdi hatırlamıyorum ama syntax ı kontrol eder misiniz?

zira şimdi internetten gordugum örnek su sekilde;

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

Upload.OverwriteFiles = False
On Error Resume Next

Upload.SetMaxSize 1048576 ' Limit files to 1MB
Count = Upload.Save("c:\upload")

yani Upload objesinin save methodu daha farklı bi syntax la yazılmıs

yasaluyari

(21.06.09)