<%
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.
Acil yardım gerekiyor, bilen arkadaşlardan cevap bekliyorum.
Teşekkürler.
ASP Resim Upload Acil Yarım
3
●460
