Aşağıda paylaşacağım kodla persist ile resim upload etmek istiyorum hostumda persist bileşeni yüklü fakat bu kod resim silme işlemini gerçekleştiriyor database ve ilgili klasörden fakat yükleme yapmıyor. Resim yükleniyor diyor ve kalıyor hiç bi hareket veya yönlendirme yapmıyor. Database ve ilgili upload klasörünün yazma izinleri verilmiş durumda.
Ben internette paylaşılmış olan upload kodlarını tek tek deniyorum hostta fakat 500 internal server hatası alıyorum bütün kodlarda.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Resim Yönetim Modülü</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
<link rel="stylesheet" type="text/css" href="Css/Reset.css" />
<link rel="stylesheet" type="text/css" href="Css/ResimStyle.css" />
<script type="text/javascript" language="javascript">function cikis() {window.close();}</script>
<script type="text/javascript" src="JavaScript/webtoolkit.aim.js"></script>
<script type="text/javascript">
function startCallback() {
// make something useful before submit (onStart)
if (xFormx.Resim.value == 0) {
alert("Lütfen, Resim için gözat yaptıktan sonra\nYükle butonuna basın");
return(false);
} else {
document.getElementById('Cevap').innerHTML = "<img src=Images/Loading.gif>"
return true;
}
}
function completeCallback(response) {
// make something useful after (onComplete)
document.getElementById('Cevap').innerHTML = '<div class="message success">Resim Yükleniyor...</div><META HTTP-EQUIV=REFRESH CONTENT="1; URL=ResimYukle.asp?Page=<%=Request.QueryString("Page")%>&ResimK=<%=Request.QueryString("ResimK")%>&ResimB=<%=Request.QueryString("ResimB")%>&ID=<%=Request.QueryString("ID")%>&Islem=Listele">';
document.getElementById('_Upload_Form').style.display = 'none';
}
</script>
</head>
<body>
<!--#include file="Baglanti.asp"--><%
' VERİ ÇEKME
Page = Request.QueryString("Page")
ResimK = Request.QueryString("ResimK")
ResimB = Request.QueryString("ResimB")
Islem = Request.QueryString("Islem")
ID = Request.QueryString("ID")
ResimID = Request.QueryString("ResimID")
IF Not Session("AdminGiris")="Yapildi" Then 'SESSION KONTROL
%><script language="JavaScript">window.close();</script><%
Else 'SESSION KONTROL
%><div class="Header"><a href="ResimYukle.asp?Page=<%=Page%>&ResimK=<%=ResimK%>&ResimB=<%=ResimB%>&ID=<%=ID%>&Islem=Yeni">Yeni Resim Ekle</a> | <a href="ResimYukle.asp?Page=<%=Page%>&ResimK=<%=ResimK%>&ResimB=<%=ResimB%>&ID=<%=ID%>&Islem=Listele">Resim Yönetimi</a> | <a onclick="return cikis()" href="#">Kapat</a></div><%
IF Islem = "" Or Islem="Listele" Then 'ISLEM KONTROL
Set RsResimListele = Server.CreateObject("Adodb.Recordset")
RsResimListele.Open "SELECT * FROM Resimler Where "&Page&"ID=" &ID, Conn, 1, 1
IF RsResimListele.Eof Or RsResimListele.Bof Then
%><div class="message error">Resim Yok !</div><%
Else
Do While Not RsResimListele.Eof Or RsResimListele.Bof
IF RsResimListele.Eof Or RsResimListele.Bof Then Exit Do
%><div class="ResimListele"><div class="ResimListeleAyar"><img title="<%=RsResimListele("ResimK")%>" src="../<%=RsResimListele("ResimK")%>" class="Stil" /></div><a href="ResimYukle.asp?Page=<%=Page%>&ResimK=<%=ResimK%>&ResimB=<%=ResimB%>&Islem=Sil&ResimID=<%=RsResimListele("ID")%>&ID=<%=ID%>"><img title="Sil : <%=RsResimListele("ResimK")%>" border="0" src="Images/Sil_.png" style="margin-top:5px;" /></a></div><%
RsResimListele.MoveNext
Loop
End IF
RsResimListele.Close
Set RsResimListele = Nothing
End IF 'ISLEM KONTROL
IF Islem = "Sil" Then 'ISLEM KONTROL
Set RsResimSil = Server.CreateObject("Adodb.RecordSet")
SQL = "Select * From Resimler Where ID=" & ResimID
RsResimSil.Open SQL,Conn,1,1
IF RsResimSil.Eof Or RsResimSil.Bof Then
%><div class="message error">Resim Bulunamadı. Yada Daha Önce Silinmiş.</div><%
Else
ResimK = "../" & RsResimSil("ResimK")
ResimB = "../" & RsResimSil("ResimB")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set ResimK = FSO.GetFile(Server.MapPath(ResimK))
Set ResimB = FSO.GetFile(Server.MapPath(ResimB))
ResimK.Delete
ResimB.Delete
Err.Clear
Set ResimK = Nothing
Set ResimB = Nothing
Set RsResimSil2 = Server.CreateObject("Adodb.RecordSet")
SQL = "Delete * From Resimler Where ID=" & ResimID
RsResimSil2.Open SQL,Conn,1,3
%><div class="message success">Resim Silindi.</div><META HTTP-EQUIV=REFRESH CONTENT="1; URL=ResimYukle.asp?Page=<%=Request.QueryString("Page")%>&ResimK=<%=Request.QueryString("ResimK")%>&ResimB=<%=Request.QueryString("ResimB")%>&ID=<%=Request.QueryString("ID")%>&Islem=Listele"><%
End IF 'KAYIT SORGU
RsResimSil.Close
Set RsResimSil = Nothing
RsResimSil.Close
RsResimSil2.Close
Set RsResimSil = Nothing
Set RsResimSil2 = Nothing
End IF 'ISLEM KONTROL
IF Islem = "Yeni" Then 'ISLEM KONTROL
%><div class="FormYukle" id="_Upload_Form">
<form id="xFormx" method="POST" action="ResimYukle.asp?Page=<%=Page%>&ResimK=<%=ResimK%>&ResimB=<%=ResimB%>&ID=<%=ID%>&Islem=Yukle" enctype="multipart/form-data" onsubmit="return AIM.submit(this, {'onStart' : startCallback, 'onComplete' : completeCallback})">
<ul>
<li><span>Resim Dosyası</span> : <input name="Resim" type="file" multiple="multiple" class="form" size="30" /></li>
<li><input src="Images/Yukle.png" type="image" name="gonder" class="Gonder" /></li>
</ul>
</form>
</div>
<div align="center" id="Cevap"></div><%
End IF 'ISLEM KONTROL
IF Islem = "Yukle" Then 'İŞLEM KONTROL
Server.ScriptTimeout=1000
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
Upload.SetMaxSize 50000000, True
Upload.Save
on error resume next
Set Resim = Upload.Files("Resim")
For Each File in Upload.Files
If FILE.EXT<>".swf" then 'bu tip dosyalara müsaade veriyoruz
If File.ImageType="UNKNOWN" Then 'biraz önce müsaade verdiklerimizin dışında bütün resim formatlarını kabul ediyoruz.
Response.Write "Yüklemek istediğiniz dosya türüne müsaade verilmemiş / yasaklanmış..."
Response.End
End If
End if
Next
For Each Resim in Upload.Files 'TOPLU RESİM UPLOAD
DosyaAdi = Resim.FileName
Uzanti = Right(DosyaAdi,3)
IF Not Len(DosyaAdi)<>0 Then
Response.Redirect "ResimYukle.asp?Page=" & Page & "&ResimK=" & ResimK & "&ResimB=" & ResimB & "&ID=" & ID &"&Islem=Yukle"
End IF
randomize
Session("Pro_ResimAdi")=Int((rnd*999999999999)+100000000000)
Resim.SaveAs Server.MapPath("../Upload/"&Page&"/Buyuk") & "/" &Page& "_" & Session("Pro_ResimAdi")&(".")&Uzanti
Resim.SaveAs Server.MapPath("../Upload/"&Page&"/Kucuk") & "/" &Page& "_" & Session("Pro_ResimAdi")&(".")&Uzanti
'BÜYÜK RESİM BOYUTLANDIRMA
Count2 = ("../Upload/"&Page&"/Buyuk") & "/" &Page& "_" & Session("Pro_ResimAdi")&(".")&Uzanti
If not Count2 = "" Then
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath ("../Upload/" &Page& "/Buyuk/" &Page& "_" & Session("Pro_ResimAdi")&(".")&Uzanti)
Jpeg.Open Path
ResimB = Request.QueryString("ResimB")
If jpeg.OriginalWidth > Int(ResimB) Then
Jpeg.Width = Int(ResimB)
jpeg.Height = Int(ResimB) * Jpeg.OriginalHeight / jpeg.OriginalWidth
Jpeg.ToRGB
Jpeg.Save Server.MapPath("../Upload/" &Page& "/Buyuk/" &Page& "_" & Session("Pro_ResimAdi")&(".")&Uzanti)
END IF
END IF
'BÜYÜK RESİM BOYUTLANDIRMA SON
'KÜÇÜK RESİM BOYUTLANDIRMA
Count = ("../Upload/"&Page&"/Kucuk") & "/" &Page& "_" & Session("Pro_ResimAdi")&(".")&Uzanti
If not Count = "" Then
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath ("../Upload/" &Page& "/Kucuk/" &Page& "_" & Session("Pro_ResimAdi")&(".")&Uzanti)
Jpeg.Open Path
If jpeg.OriginalWidth > Int(ResimK) Then
Jpeg.Width = Int(ResimK)
jpeg.Height = Int(ResimK) * Jpeg.OriginalHeight / jpeg.OriginalWidth
Jpeg.ToRGB
Jpeg.Save Server.MapPath("../Upload/" &Page& "/Kucuk/" &Page& "_" & Session("Pro_ResimAdi")&(".")&Uzanti)
END IF
END IF
'KÜÇÜK RESİM BOYUTLANDIRMA SON
Set RsResimEkle = Server.CreateObject("Adodb.RecordSet")
SQL = "Select * From Resimler Order BY ID Desc"
RsResimEkle.Open SQL,Conn,1,3
RsResimEkle.AddNew
RsResimEkle("ResimK") = ("Upload/" &Page& "/Kucuk/" &Page& "_") & Session("Pro_ResimAdi")&(".")&Uzanti
RsResimEkle("ResimB") = ("Upload/" &Page& "/Buyuk/" &Page& "_") & Session("Pro_ResimAdi")&(".")&Uzanti
RsResimEkle (Page+"ID") = ID
RsResimEkle (Page) = True
RsResimEkle.Update
Next 'TOPLU RESİM UPLOAD
RsResimEkle.Close
Set RsResimEkle = Nothing
End IF 'İŞLEM KONTROL
End IF 'SESSION KONTROL
%>
</body>
</html>
