Tekil Mesaj gösterimi - Asp Persits Upload Sorunu

Konu Asp Persits Upload Sorunu
26-11-2014, 21:09:01
Arkadaşlar merhaba bir sıkıntım var yardımcı olabilirseniz sevinirim.

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>