Fso Resim Upload ( Asp )

20/Şub/11 16:43

Kısayol

Şikayet

Özel Mesaj

FOXXLY

Kayıt Tarihi: 19/Haziran/2006

<%
Set jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.Open Request("yer")
jpeg.Width = Request("genis")
jpeg.Height = Request("boy")
Jpeg.Height = Jpeg.Width * Jpeg.OriginalHeight / Jpeg.OriginalWidth
'Jpeg.Width = Jpeg.Height * Jpeg.OriginalWidth / Jpeg.OriginalHeight
' jpeg.Sharpen 1, 130
jpeg.SendBinary
%>

şöle bi kod var arşivimde request ile çekilen yerleri sen sabit değer vererek kurcala bakalım ne çıkacak.

kelimeler albayım bazı anlamlara gelmiyor.

Alıntı yap

20/Şub/11 18:09

Kısayol

Şikayet

Özel Mesaj

angels_demos

Kayıt Tarihi: 03/Haziran/2006

FOXXLY bunu yazdı:
-----------------------------

<%
Set jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.Open Request("yer")
jpeg.Width = Request("genis")
jpeg.Height = Request("boy")
Jpeg.Height = Jpeg.Width * Jpeg.OriginalHeight / Jpeg.OriginalWidth
'Jpeg.Width = Jpeg.Height * Jpeg.OriginalWidth / Jpeg.OriginalHeight
' jpeg.Sharpen 1, 130
jpeg.SendBinary
%>

şöle bi kod var arşivimde request ile çekilen yerleri sen sabit değer vererek kurcala bakalım ne çıkacak.

-----------------------------

aynen bende buna benzer bişey yazcaktım :D orda sadece upload var gerisini de sen hallet artık hocam

Alıntı yap

23/Şub/11 22:13

Kısayol

Şikayet

Özel Mesaj

LuCiFeR

Kayıt Tarihi: 25/Eylül/2005

İlgilenen bütün Arkadaşlara teşekkür ederim. Şöyle bir kod buldum benim istediğim şekilde özellikleri var bunları paylaşıyorum başka arkadaşlarda yararlansın.

Persist İmage Upload

<% ' codding by killaruna e-hadi.net web tasarim..

function tarihdegis(trep)
trep = replace(trep, "'", "")
trep = replace(trep, "/", "_")
trep = replace(trep, ".", "_")
tarihdegis = trep
end function

trh = day(Date)&" "&MonthName(month(date))&" "&year(Date)
enalt_sayi = 100000000
enust_sayi = 999999999
Randomize()
isle = enust_sayi - enalt_sayi + 1
random = isle * rnd()
random = random + enalt_sayi
temem = ""&int(random)&"-"&tarihdegis(date())&".jpg"
Set Upload = Server.CreateObject("Persits.Upload")
Upload.IgnoreNoPost = True
Upload.OverwriteFiles = False
Upload.SaveVirtual "resim/uye"

For Each File in Upload.Files
If File.ImageType = "UNKNOWN" Then
Response.Write "<script>alert('Sadece JPG, GIf ve PNG Formatlı Dosyalar Yükleyebilirsiniz !!!');history.go(-1)</script>"
File.Delete
Response.End
END IF
NEXT

Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Upload.Files("file").path
L = 400
IF Jpeg.Height > 400 THEN
Jpeg.Height = L
END IF
IF Jpeg.Width > 400 THEN
Jpeg.Width = L
END IF

tose = Server.Mappath("resim/uye") & "\" & temem
tose1 = right(tose,24)
buyukresim = "resim/uye/"&tose1&""
Jpeg.Save Server.Mappath("resim/uye") & "\" & temem

For Each File in Upload.Files
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Upload.Files("file").path
Jpeg.Height = 80
Jpeg.Width = 80
NEXT
toseE = Server.Mappath("resim/uye/kucuk") & "\K_" & temem
toseE1 = right(tosee,26)
kucukresim = "resim/uye/kucuk/"&tosee1&""
Jpeg.Save Server.Mappath("resim/uye/kucuk") & "\K_" & temem

Upload.Files("file").delete ' burda biter
response.Write "<div style=""padding:25px;"">"
RESPONSE.WRITE "<h1>Resminiz Başarıyla eklenmiştir..</h1>"
Response.Write "<strong>Resminizin Sitemizdeki Orjinal Halini görmek için Aşağıdaki Resminize Tıklayabilirsiniz..<br></strong>"
Response.Write "<a href="""&site_url&""&buyukresim&""" target=""_blank""><img src="""&site_url&""&kucukresim&""" border=""0""></a> "
Response.write "</div>"
%>

----------------------------------------------------------------

Şimdi bu sistemde 4 tanesini aynı Formda upload edip db e kaydı için çalışıyorum.Fso ile formlarda problem çıkmıyordu ama duyduğuma göre sistemlrde bir problem oluyormus. Bende once formdaki alanları doldurtup sonra başka sayfaya yönlendirip upload işlemini oradan yaptırmayı düşünüyorum. Ancak formdaki kayıtları db e girince oluşan id sini yakalamam gerekli sanırım. Herkese tekrar teşekkür ederim.

Alıntı yap