<% yer=Request.QueryString("yer") if yer="galeri" then yol="galeri_resimleri" elseif yer="ilan" then Yol = "ilan_resimler" end if izinli = 500000 'Maximum dosya boyut 2500 kb %> <% Dim sifrele Randomize sifrele =int (rnd*9999999)+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 noBytes = Request.TotalBytes binData = Request.BinaryRead (noBytes) 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 strData = Mid(strDataWhole, lngCurrentBegin, lngCurrentEnd - lngCurrentBegin) strDataWhole = Replace(strDataWhole, strData,"") lngBeginFileName = InStr(1, strdata, "filename=") + 10 lngEndFileName = InStr(lngBeginFileName, strData, Chr(34)) If lngBeginFileName = lngEndFileName and lngNumberUploaded = 0 Then Response.Write "Yüklenecek Bir Resim Şecmelisiniz..." Response.End End If 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) If session("yukledi") = FileName Then Response.Write "Aynı Dosya'yı sadece 1 kez yükleyebilirsiniz.." Response.End Else session("yukledi")=""&FileName&"" End if uzanti = Right(FileName,3) If uzanti="asp" or uzanti="mdb" or uzanti="zip" or uzanti="rar" or uzanti="exe" or uzanti="EXE" or uzanti="RAR" or uzanti="php" or uzanti="htm" or uzanti="html" or uzanti="ASP" or uzanti="MDB" or uzanti="PHP" or uzanti="HTM" or uzanti="HTML" then Response.Write "Bu tür dosya yüklenemez
Sadece .gif .jpg .png uzantılı dosyaları yükleyebilirsiniz.." Response.End Else FileName = randomcode + "." & uzanti &"" 'dosya adını değiştirir End If lngDataLenth = lngEndPos - lngBeginPos boyut = lngDataLenth If boyut > izinli then Response.Write "Yüklediğiniz Resim Maximum Resim Boyutundan Büyük!
Lütfen Daha Küçük Boyutta Bir Resim Deneyin.." 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 "Yüklemek istediginiz dosya ismi ile aynı isimde bir dosya var!
Lütfen ismini değiştirerek yeniden yükleyin.." Response.End End if Next Set Klasor = Nothing If Right(FileName,4) = ".gif" or Right(FileName,4) = ".jpg" or Right(FileName,4) = ".png" or Right(FileName,4) = ".zip" or Right(FileName,4) = ".rar" Then Set FSO = Nothing strFileData = Mid(strData, lngBeginPos, lngDataLenth) 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 Else Response.Write "Bu tür dosya yüklenemez
Sadece .gif .jpg .png uzantılı dosyaları yükleyebilirsiniz.." Response.End End if lngNumberUploaded = lngNumberUploaded + 1 End If lngCurrentBegin = InStr(1, strDataWhole, strBoundry) lngCurrentEnd = InStr(lngCurrentBegin + 1, strDataWhole, strBoundry) - 1 Loop FileName = ""&yol&"/" & FileName %> Dosya Basariyla Yüklendi.
Dosya Yolu : <%=FileName%>
Lütfen Yukarıdaki Dosya Adını İlgili Resim Alanına Yazınız...
Veya Alttaki Bölümden Kopyalayarak Yapıştırınız...
<% End Sub %> Kabul Edilen Resim Türleri: .gif .jpg .png
Maximum Resim Boyutu: <%=left(izinli,4)%> kb