<meta http-equiv='Content-Type' content='text/html; charset=utf-8'><center>
<%
'Database yollari , uzantisini yazmayin sadece ( klasoradi/dbadi ) seklinde
uploadtipi="0"
uploadklasor = "upload" 
kullanici="editor"
With Response
	.Expires = 0
	.Clear
End With
Function turkce(temizle) 
temizle=Replace(temizle,"ı","i",1,-1,1)
temizle=Replace(temizle,"ğ","g",1,-1,1)
temizle=Replace(temizle,"ü","u",1,-1,1)
temizle=Replace(temizle,"ş","s",1,-1,1)
temizle=Replace(temizle,"ö","o",1,-1,1)
temizle=Replace(temizle,"ç","c",1,-1,1)
temizle=Replace(temizle,"Ğ","g",1,-1,1)
temizle=Replace(temizle,"Ü","u",1,-1,1)
temizle=Replace(temizle,"Ş","s",1,-1,1)
temizle=Replace(temizle,"İ","i",1,-1,1)
temizle=Replace(temizle,"Ö","o",1,-1,1)
temizle=Replace(temizle,"Ç","c",1,-1,1)
temizle=Replace(temizle,"`","",1,-1,1)
temizle=Replace(temizle,"=","",1,-1,1)
temizle=Replace(temizle,"&","",1,-1,1)
temizle=Replace(temizle,"%","",1,-1,1)
temizle=Replace(temizle,"!","",1,-1,1)
temizle=Replace(temizle,"#","",1,-1,1)
temizle=Replace(temizle,"<","",1,-1,1)
temizle=Replace(temizle,">","",1,-1,1)
temizle=Replace(temizle,"*","",1,-1,1)
temizle=Replace(temizle,"/","",1,-1,1)
temizle=Replace(temizle,"\","",1,-1,1)
temizle=Replace(temizle,"And","",1,-1,1)
temizle=Replace(temizle,"'","",1,-1,1)
temizle=Replace(temizle,"Chr(34)","",1,-1,1)
temizle=Replace(temizle,"Chr(39)","",1,-1,1) 
turkce = temizle 
End Function
kullanici = turkce(session("kulladi"))&"_"
if (Request.QueryString("durum"))="resimsifir" then
session("durum")="resimsifir"
Elseif (Request.QueryString("durum"))="resimbir" then
session("durum")="resimbir"
Else
End if
Yol = "../"&uploadklasor&"" 
izinli = 100000000 'Maximum dosya boyut 250 kb
%>
<html>
<head><title>Resim Yükle</title>
<meta http-equiv='Content-Type' content='text/html; charset=utf-8'></head>
<body background="../images/bg.jpg" topmargin="0" oncontextmenu="return false" ondragstart="return false" onselectstart="return false">
<center><font face="Verdana, Arial, Helvetica" size="1" color="midnightblue">
<% 
if (Request.QueryString("durum"))="resimsifir" then
Response.Write("<H3>Resim yukle</H3>")
Elseif (Request.QueryString("durum"))="resimbir" then
Response.Write("<H3>Resim 1</H3>")
Else
End if
'-------------------------------------------------------------------------- 
'-------------------------------------------------------------------------- 
Dim sifrele
 Randomize
 sifrele =int (rnd*9999999999)+1
 
randomcode= ""&sifrele&""
'-------------------------------------------------------------------------- 
If Request.QueryString("action")="yukle" Then
Call Yukle
Response.End
Else
End if
'-------------------------------------------------------------------------- 
'-------------------------------------------------------------------------- 
Sub Yukle 
'-------------------------------------------------------------------------- 
Dim ImageDir 
     ImageDir = Yol
     ForWriting = 2 
     adLongVarChar = 201 
     lngNumberUploaded = 0
      
     'Get binary data from form           
     noBytes = Request.TotalBytes  
     binData = Request.BinaryRead (noBytes) 
      
     'convery the binary data To a string 
     Set RST = CreateObject("ADODB.Recordset" ) 
     LenBinary = LenB(binData) 
      
     If LenBinary > 0 Then 
     RST.Fields.AppEnd "myBinary" , adLongVarChar, LenBinary 
     RST.Open 
     RST.AddNew 
     RST("myBinary" ).AppendChunk BinData 
     RST.Update 
     strDataWhole = RST("myBinary" ) 
     End If 
           
     strBoundry = Request.ServerVariables ("HTTP_CONTENT_TYPE" ) 
     lngBoundryPos = InStr(1, strBoundry, "boundary=" ) + 8  
     strBoundry = "--" & Right(strBoundry, Len(strBoundry) - lngBoundryPos) 
     lngCurrentBegin = InStr(1, strDataWhole, strBoundry) 
     lngCurrentEnd = InStr(lngCurrentBegin + 1, strDataWhole, strBoundry) - 1 
     Do While lngCurrentEnd > 0 
     'Get the data between current boundry and remove it from the whole. 
     strData = Mid(strDataWhole, lngCurrentBegin, lngCurrentEnd - lngCurrentBegin) 
     strDataWhole = Replace(strDataWhole, strData,"" ) 
      
     'Get the full path of the current file. 
     lngBeginFileName = InStr(1, strdata, "filename=" ) + 10 
     lngEndFileName = InStr(lngBeginFileName, strData, Chr(34))  
     'Make sure they selected a file.      
     If lngBeginFileName = lngEndFileName and lngNumberUploaded = 0 Then 
     Response.Write "<META HTTP-EQUIV=""refresh"" CONTENT=""3;URL=galeri_up.asp""><font color=""#FF0000"">Yüklenecek Bir dosya secmelisiniz...</font>"
	 Response.End
     End If 
     'There could be an empty file box.      
     If lngBeginFileName <> lngEndFileName Then 
     strFilename = Mid(strData, lngBeginFileName, lngEndFileName - lngBeginFileName) 
     tmpLng = InStr(1, strFilename, "\" ) 
     Do While tmpLng > 0 
     PrevPos = tmpLng 
     tmpLng = InStr(PrevPos + 1, strFilename,"\" ) 
     Loop 
      
     FileName = Right(strFilename, Len(strFileName) - PrevPos) 
      
     lngCT = InStr(1,strData, "Content-Type:" ) 
	  
     If lngCT > 0 Then 
     lngBeginPos = InStr(lngCT, strData, Chr(13) & Chr(10)) + 4 
     Else 
     lngBeginPos = lngEndFileName 
     End If 
     lngEndPos = Len(strData)
	 
	uzanti = Right(FileName,3) 
	if uzanti="swf" then  
	FileName = "banner" + "." & uzanti &"" 
	else
    If uzanti="jpg" or uzanti="gif" or uzanti="png" or uzanti="JPG" or uzanti="GIF" or uzanti="PNG" then 
    FileName = randomcode + "." & uzanti &""
    Elseif uzanti="peg" or uzanti="PEG" then
	FileName = randomcode + ".j" & uzanti &""
	else
    Response.Write "<META HTTP-EQUIV=""refresh"" CONTENT=""3;URL=galeri_up.asp""><br><br><br><font color=""#FF0000"">Bu tür dosya yüklenemez<BR>Sadece .gif  .jpg  .png uzantili dosyalari yükleyebilirsiniz..</font>"
	Response.End
    End If
	End If
     'Calculate the file size.      
     lngDataLenth = lngEndPos - lngBeginPos
	  
	 boyut = lngDataLenth
    If boyut > izinli then 
        Response.Write "<META HTTP-EQUIV=""refresh"" CONTENT=""3;URL=galeri_up.asp""><bR><br><br><font color=""#FF0000"">Yüklediginiz dosya Maximum dosya boyutundan büyük!<BR>Lütfen daha küçük boyutta bir dosya deneyin..</font>"
	Response.End
    Else 
    lngDataLenth = "" & boyut &""
    End If
	
	Set FSO = CreateObject("Scripting.FileSystemObject" ) 
	Set Klasor = FSO.GetFolder(Server.MapPath(imagedir))
	
	For Each listele in Klasor.Files
	If FileName = listele.Name Then
	Response.Write "<META HTTP-EQUIV=""refresh"" CONTENT=""3;URL=galeri_up.asp""><br><br><font color=""#FF0000"">Yüklemek istediginiz dosya ismi ile aynı isimde bir dosya var!<BR>Lütfen ismini degistirerek yeniden yükleyin..</font>"
	Response.End
	End if
    Next
	
    Set Klasor = Nothing 
    Set FSO = Nothing 
	  
     'Get the file data      
     strFileData = Mid(strData, lngBeginPos, lngDataLenth) 
     'Create the file.  
	 FileName = kullanici&FileName
     Set fso = CreateObject("Scripting.FileSystemObject" ) 
     Set f = fso.OpenTextFile(Server.MapPath(imagedir) & "/" & FileName, ForWriting, True)
     f.Write strFileData 
     Set f = Nothing 
     Set fso = Nothing 
      
     lngNumberUploaded = lngNumberUploaded + 1 
                
     End If 
      
     lngCurrentBegin = InStr(1, strDataWhole, strBoundry) 
     lngCurrentEnd = InStr(lngCurrentBegin + 1, strDataWhole, strBoundry) - 1 
     Loop 
'-------------------------------------------------------------------------- 
FileName = ""&uploadklasor&"/" & FileName
if session("durum")="resimsifir" then
SESSION("galeri" )=""&FileName&""
Response.write "<br><br><table cellpadding=""0"" width=""350""><tr><td><font face=""Verdana, Arial, Helvetica"" size=""1"" color=""midnightblue"">Resim Basariyla Yüklendi<BR><br>Bu kutucu&#287u kapatabilirsiniz.<br></td><td><img src=""../resim.asp?path="&FileName&"&bx=60"" style=""border:1px double #545565;""></td></tr></table>"
Elseif session("durum")="resimbir" then
SESSION("resimbir" )=""&FileName&""
Response.write "<br><br><table cellpadding=""0"" width=""350""><tr><td><font face=""Verdana, Arial, Helvetica"" size=""1"" color=""midnightblue"">Resim Basariyla Yüklendi<BR><br>Bu kutucu&#287u kapatabilirsiniz.<br></td><td><img src=""../resim.asp?path="&FileName&"&bx=60"" style=""border:1px double #545565;""></td></tr></table>"
Elseif session("durum")="resimiki" then
SESSION("resimiki" )=""&FileName&""
Response.write "<br><br><table cellpadding=""0"" width=""350""><tr><td><font face=""Verdana, Arial, Helvetica"" size=""1"" color=""midnightblue"">Resim Basariyla Yüklendi<BR><br>Bu kutucu&#287u kapatabilirsiniz.<br></td><td><img src=""../resim.asp?path="&FileName&"&bx=60"" style=""border:1px double #545565;""></td></tr></table>"
Elseif session("durum")="resimuc" then
SESSION("resimuc" )=""&FileName&""
Response.write "<br><br><table cellpadding=""0"" width=""350""><tr><td><font face=""Verdana, Arial, Helvetica"" size=""1"" color=""midnightblue"">Resim Basariyla Yüklendi<BR><br>Bu kutucu&#287u kapatabilirsiniz.<br></td><td><img src=""../resim.asp?path="&FileName&"&bx=60"" style=""border:1px double #545565;""></td></tr></table>"
Elseif session("durum")="resimdort" then
SESSION("resimdort" )=""&FileName&""
Response.write "<br><br><table cellpadding=""0"" width=""350""><tr><td><font face=""Verdana, Arial, Helvetica"" size=""1"" color=""midnightblue"">Resim Basariyla Yüklendi<BR><br>Bu kutucu&#287u kapatabilirsiniz.<br></td><td><img src=""../resim.asp?path="&FileName&"&bx=60"" style=""border:1px double #545565;""></td></tr></table>"
Elseif session("durum")="resimbes" then
SESSION("resimbes" )=""&FileName&""
Response.write "<br><br><table cellpadding=""0"" width=""350""><tr><td><font face=""Verdana, Arial, Helvetica"" size=""1"" color=""midnightblue"">Resim Basariyla Yüklendi<BR><br>Bu kutucu&#287u kapatabilirsiniz.<br></td><td><img src=""../resim.asp?path="&FileName&"&bx=60"" style=""border:1px double #545565;""></td></tr></table>"
Elseif session("durum")="resimalti" then
SESSION("resimalti" )=""&FileName&""
Response.write "<br><br><table cellpadding=""0"" width=""350""><tr><td><font face=""Verdana, Arial, Helvetica"" size=""1"" color=""midnightblue"">Resim Basariyla Yüklendi<BR><br>Bu kutucu&#287u kapatabilirsiniz.<br></td><td><img src=""../resim.asp?path="&FileName&"&bx=60"" style=""border:1px double #545565;""></td></tr></table>"
Elseif session("durum")="resimyedi" then
SESSION("resimyedi" )=""&FileName&""
Response.write "<br><br><table cellpadding=""0"" width=""350""><tr><td><font face=""Verdana, Arial, Helvetica"" size=""1"" color=""midnightblue"">Resim Basariyla Yüklendi<BR><br>Bu kutucu&#287u kapatabilirsiniz.<br></td><td><img src=""../resim.asp?path="&FileName&"&bx=60"" style=""border:1px double #545565;""></td></tr></table>"
Elseif session("durum")="resimsekiz" then
SESSION("resimsekiz" )=""&FileName&""
Response.write "<br><br><table cellpadding=""0"" width=""350""><tr><td><font face=""Verdana, Arial, Helvetica"" size=""1"" color=""midnightblue"">Resim Basariyla Yüklendi<BR><br>Bu kutucu&#287u kapatabilirsiniz.<br></td><td><img src=""../resim.asp?path="&FileName&"&bx=60"" style=""border:1px double #545565;""></td></tr></table>"
Elseif session("durum")="resimdokuz" then
SESSION("resimdokuz" )=""&FileName&""
Response.write "<br><br><table cellpadding=""0"" width=""350""><tr><td><font face=""Verdana, Arial, Helvetica"" size=""1"" color=""midnightblue"">Resim Basariyla Yüklendi<BR><br>Bu kutucu&#287u kapatabilirsiniz.<br></td><td><img src=""../resim.asp?path="&FileName&"&bx=60"" style=""border:1px double #545565;""></td></tr></table>"
Else
End if
session("haber")=""						
session("galleryk")=""
session("galleryb")=""
session("uye")=""
session("dosya")=""
End Sub 
%>
<P>Kabul Edilen Dosya Türleri: <font color="#FF0000">.gif .jpg .png</font><br>Max. Dosya boyutu: <font color="#FF0000"><%=left(izinli,5)%></font> kb</p>     
<form ENCTYPE="multipart/form-data" ACTION="?action=yukle" METHOD="POST">
<input NAME="msg" SIZE="20" TYPE="file">&nbsp;<input type="submit" value="Resmi yükle" onClick="javascript:this.form.submit();this.disabled=true; return true;">
</form>
<center><p><font face="Verdana, Arial, Helvetica" size="1">
<a href="" style="text-decoration: none">Resim yuklendiyse pencereyi kapatabilirsiniz</A></font></p></center>
</body>
</center>
</html>