Şimdi Ara

kodlarını verdiğim şu resim ekleme sayfası için Kilobayt Sınırını nasıl Kaldırırız

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Apple iPhone 15 (128 GB) - Yeşil : Amazon.com.tr: Elektronik https://www.amazon.com.tr/dp/B0CHXGL3KG 2 hafta önce paylaşıldı

ASUS ROG CETRA TRUE WIRELESS DÜŞÜK GECİKME WIRELESS BAĞLANTI ANC ÖZELLİĞİ 27 SAATE KADAR PİL ÖMRÜ IPX4 SU GEÇİRMEZ ARMOURY CRATE İLE EKOLAYZER/VIRTUAL 7.1 ÖZELLİKLİ KULAKİÇİ KULAKLIK BEYAZ : Amazon.com.tr: Elektronik https://www.amazon.com.tr/dp/B0BL11SJW4?th=1 12 sa. önce paylaşıldı

adidas Erkek Terrex Voyager 21 yürüyüş ayakkabısı : Amazon.com.tr: Moda https://www.amazon.com.tr/dp/B08TWNG28V 14 sa. önce paylaşıldı

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir - 2 Masaüstü

5 sn

5
Cevap

0
Favori

934
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

0 oy

Öne Çıkar

Cevapla

Sayfa: 1

Giriş

Mesaj

Arkadaşlar bir tane hazır resim ekleme sayfası var bu sayfada resim ekleme yaparken kilobayt olarak büyük olan mesela 200kb dan büyüğünü yüklerken bazen zorlanıyor bazende hiç atmıyor hele daha da üstü ise hiç atmıyor bu sayfadaki kilobayt ayarını nasıl sınırsız yaparız bilginiz varmıdır

Kodlar Şöyle :

<%
Session.TimeOut = 1400
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<%
islem = Request("islem")
If islem = "Yukle" Then
call ImageUpload
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
</head>
<body link="#000000" vlink="#000000" alink="#000000">

Resim Yükle 

<%
Function SifreUret(Boy)
Dim Sifre,KarakterBoyu,KacinciKarakter
Const Karakterler = "ABCDEFGHIJKLMNOPRSTUVYZXW0123456789"
Randomize
KarakterBoyu = Len(Karakterler)
For x = 1 To Boy
KacinciKarakter = Int((KarakterBoyu * Rnd) + 1)
sifre = sifre & Mid(Karakterler,KacinciKarakter,1)
Next
SifreUret = sifre
End Function
Session("KarisikYazi") = SifreUret(7)
Kac = request.querystring("Kac")
%>

<form Enctype="multipart/form-data" language="javascript" name="form" Action="?islem=Yukle&Kac=<%=Kac%>" Method="Post">

Resim Adresi : 
<input NAME="File2" SIZE="38" TYPE="file" style="padding:2px; color: #000000; font-family: Verdana; font-size: 10px; font-weight: bold; border: 1px solid #808080; background-color: #C0C0C0"> 
 

<input type="submit" value="Yükle" name="Submit" style="padding:2px; color: #000000; font-family: Verdana; font-size: 10px; font-weight: bold; border: 1px solid #808080; background-color: #C0C0C0" onMouseOver="this.style.cursor='hand';" onClick="form.Submit.disabled=true; form.Submit.value='Please Wait...'; form.submit()">

</form>
<hr>




<a style="text-decoration: none" href="JavaScript:onClick=%20window.close()">[
KAPAT ]</a>
<%
Sub ImageUpload
GercekKlasor = "resimler/"
ImageDir = "resimler/"
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.Redirect "Ekle.asp?"
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)
'Calculate the file size.
lngDataLenth = lngEndPos - lngBeginPos
'Get the file data
strFileData = mid(strData, lngBeginPos, lngDataLenth)
IF instr(1,FileName,".asp",1) or instr(1,FileName,".mdb",1) or instr(1,FileName,".htm",1) or instr(1,FileName,".txt",1) or instr(1,FileName,".doc",1) or instr(1,FileName,".psd",1) or instr(1,FileName,".exe",1) or instr(1,FileName,".vbs",1) or instr(1,FileName,".dll",1) or instr(1,FileName,".com",1) or instr(1,FileName,".bat",1) or instr(1,FileName,".rar",1) or instr(1,FileName,".zip",1) or instr(1,FileName,".xls",1) or instr(1,FileName,".html",1) or instr(1,FileName,".php",1) or instr(1,FileName,".cgi",1) or instr(1,FileName,".ocx",1) Then
%>
<html>
<title>Image Upload</title>
<body link="#000000" vlink="#000000" alink="#000000">
<center>
 
Göndermeye çalıştığınız dosya türü desteklenmiyor. 
 
 
 
 
 

<a style="text-decoration: none" href="JavaScript:onClick=%20window.close()">
[ KAPAT ]</a>
</center>
<%
ELSE
'Create the file.
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(server.mappath(imagedir) & "/"&Session("KarisikYazi")&"" & FileName, ForWriting, True)
f.Write strFileData
Set f = nothing
Set fso = nothing
End IF
lngNumberUploaded = lngNumberUploaded + 1
End if
lngCurrentBegin = instr(1, strDataWhole, strBoundry)
lngCurrentEnd = instr(lngCurrentBegin + 1, strDataWhole, strBoundry) - 1
loop
IF instr(1,FileName,".asp",1) or instr(1,FileName,".mdb",1) or instr(1,FileName,".htm",1) or instr(1,FileName,".txt",1) or instr(1,FileName,".doc",1) or instr(1,FileName,".psd",1) or instr(1,FileName,".exe",1) or instr(1,FileName,".vbs",1) or instr(1,FileName,".dll",1) or instr(1,FileName,".com",1) or instr(1,FileName,".bat",1) or instr(1,FileName,".rar",1) or instr(1,FileName,".zip",1) or instr(1,FileName,".xls",1) or instr(1,FileName,".html",1) or instr(1,FileName,".php",1) or instr(1,FileName,".cgi",1) or instr(1,FileName,".ocx",1) Then
ELSE
%>
<%Kac = request.querystring("Kac")%>
<script language="JavaScript">
window.opener.document.form.<%=Kac%>.focus();
window.opener.document.form.<%=Kac%>.value += '<%=Session("KarisikYazi")%><%=FileName%>';
window.close();
</script>
<%
End IF
Response.End
End Sub
%>
</body>
</html>