Merhaba Arkadaşlar

Siteye resim yüklenirken 500 kb daha fazla resim yüklenmesin
boyutu büyük olan resimler de uyarı versin.

Bilenlerden yardım bekliyorum aşağıdaki kod çalışıyor sadece dosya boyutu limiti yok.

Sunucuya göndermek istedigim resim dosyasi 500 kb

<% Server.scripttimeout=180 %>

<%
'on error resume next
function replaceunwantedchars(byval tobechanged)
'istenmeyen karakterler
    tobechanged=replace(tobechanged,":","")
    tobechanged=replace(tobechanged,";","")
    tobechanged=replace(tobechanged,"<","")
    tobechanged=replace(tobechanged,">","")
    tobechanged=replace(tobechanged,">","")
    tobechanged=replace(tobechanged,"$","")
    tobechanged=replace(tobechanged,"/","")
    tobechanged=replace(tobechanged,"#","")
    tobechanged=replace(tobechanged,"\","")
    tobechanged=replace(tobechanged,"""","")
    tobechanged=replace(tobechanged," ","")
'türkçe küçük karakterler
    tobechanged=replace(tobechanged,"ş","s")
    tobechanged=replace(tobechanged,"ı","i")
    tobechanged=replace(tobechanged,"ğ","g")
    tobechanged=replace(tobechanged,"ü","u")
    tobechanged=replace(tobechanged,"ö","u")
    tobechanged=replace(tobechanged,"ç","c")
'türkçe büyük karakterler
    tobechanged=replace(tobechanged,"Ş","S")
    tobechanged=replace(tobechanged,"İ","I")
    tobechanged=replace(tobechanged,"Ğ","G")
    tobechanged=replace(tobechanged,"Ü","U")
    tobechanged=replace(tobechanged,"Ö","O")
    tobechanged=replace(tobechanged,"Ç","C")
    replaceunwantedchars=tobechanged
end function

function enc(tobechanged)
    enc=Server.HTMLEncode(tobechanged)
end function

function rep(byval tobechanged)
    tobechanged=replace(tobechanged,"'","")
    tobechanged=replace(tobechanged,"%","")
    tobechanged=replace(tobechanged,";","")
    tobechanged=replace(tobechanged,",","")
    tobechanged=replace(tobechanged,".","")
    rep=tobechanged
end function

function repmail(byval tobechanged)
    tobechanged=replace(tobechanged,"'","")
    tobechanged=replace(tobechanged,"%","")
    tobechanged=replace(tobechanged,";","")
    tobechanged=replace(tobechanged,",","")
    repmail=tobechanged
end function

Function htmltemizle(strVeri)

     If strVeri = "" Then Exit Function

     strVeri = Replace(strVeri, "<", "&lt;")
     strVeri = Replace(strVeri, ">", "&gt;")
     strVeri = Replace(strVeri, "[", "[")
     strVeri = Replace(strVeri, "]", "]")
'     strVeri = Replace(strVeri, """", "", 1, -1, 1)
     strVeri = Replace(strVeri, "\""", """")
     strVeri = Replace(strVeri, """", """)
     strVeri = Replace(strVeri, "=", "=", 1, -1, 1)
     strVeri = Replace(strVeri, "'", "''", 1, -1, 1)
     strVeri = Replace(strVeri, "select", "select", 1, -1, 1)
     strVeri = Replace(strVeri, "join", "join", 1, -1, 1)
     strVeri = Replace(strVeri, "union", "union", 1, -1, 1)
     strVeri = Replace(strVeri, "where", "where", 1, -1, 1)
     strVeri = Replace(strVeri, "insert", "insert", 1, -1, 1)
     strVeri = Replace(strVeri, "delete", "delete", 1, -1, 1)
     strVeri = Replace(strVeri, "update", "update", 1, -1, 1)
     strVeri = Replace(strVeri, "like", "like", 1, -1, 1)
     strVeri = Replace(strVeri, "drop", "drop", 1, -1, 1)
     strVeri = Replace(strVeri, "create", "create", 1, -1, 1)
     strVeri = Replace(strVeri, "modify", "modify", 1, -1, 1)
     strVeri = Replace(strVeri, "rename", "rename", 1, -1, 1)
     strVeri = Replace(strVeri, "alter", "alter", 1, -1, 1)
     strVeri = Replace(strVeri, "cast", "cast", 1, -1, 1)

     htmltemizle = strVeri

End Function

Randomize timer
ranid = Int((999999999)*Rnd+1)
ranid2 = Int((999)*(ranid+1))

' RESIMIN LOKALE KOPYALANMASI

Set Upload = Server.CreateObject("Persits.Upload")  
' Save to memory. Path parameter is omitted
Upload.Save

ad = htmltemizle(Upload.form("ad") )
ad2 = htmltemizle(Upload.form("ad") )
soyad = htmltemizle(Upload.form("soyad"))
soyad2 = htmltemizle(Upload.form("soyad"))

gun = htmltemizle(Upload.form("gun"))
ay = htmltemizle(Upload.form("ay"))
yil = htmltemizle(Upload.form("yil"))

dogumtarihi = yil & "-" & ay & "-" & gun

cinsiyet = htmltemizle(Upload.form("cinsiyet"))
sehir = htmltemizle(Upload.form("sehir")) 
ceptel = htmltemizle(Upload.form("ceptel")) 
eposta = htmltemizle(Upload.form("eposta")) 

' Check whether a file was selected
Set File = Upload.Files("FILE1")
If Not File Is Nothing Then
   Filename = file.Filename
      ' otherwise save file
      dosyaadi1 = ranid2 & replaceunwantedchars(ad2) & replaceunwantedchars(soyad2) & ranid &"_resim1.jpg"
      File.SaveAs "C:\websites\link\httpdocs\uploads\" & dosyaadi1
End If

thumb = dosyaadi1
thumb = Replace(thumb,"_resim1","_thumb")


'thumbnail hazırlanması

If InStr(LCase(dosyaadi1),".jpg")>0 Or InStr(LCase(dosyaadi1),".jpeg")>0 Then

Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open "C:\websites\link\httpdocs\uploads\" & dosyaadi1
W = 100
jpeg.PreserveAspectRatio = True
jpeg.Width = W
Jpeg.Save "C:\websites\link\\httpdocs\uploads\" & thumb

End If