Asp resim upload
5
●3.561
- 09-11-2008, 22:23:55AspUpload.com - the Most Advanced NT ASP Upload Component
en güzel örnekler kendi sitesinde mevcut inceleyip yapabilirsin.
takıldığın yer olusa tekrar soru sorabilirsin. - 10-11-2008, 03:52:04öncelikle sunucuna aspupload ve aspjpeg bileşenlerini yuklemen gerekir,daha sonra kullanıcılarının resim yukleyebilmesi için resim yukleme sayfasında bir form oluşturmalısın ve aşagıdaki gibi onu yollamalısın
<form id="resim_yukle" name="resim_yukle" method="post" action="resim_yukle.asp" ENCTYPE="multipart/form-data" >
formun resim_yukle.asp gitti
şimdi resim_yukle.asp yi oluşturuyoruz
<% enalt_sayi = 100000 enust_sayi = 999999 Randomize() isle = enust_sayi - enalt_sayi + 1 random = isle * rnd() random = random + enalt_sayi guvenlik = int(random) Set Upload = Server.CreateObject("Persits.Upload") Upload.Save server.MapPath("upload\")'Resmin kayıt oldugu klasor Set Jpeg = Server.CreateObject("Persits.Jpeg") For Each File in Upload.Files dosya = file.path Jpeg.Open dosya set fso = CreateObject("Scripting.FileSystemObject") set file = fso.GetFile(File.Path) file.name = "rs"&guvenlik&".jpg" set file = nothing set fso = nothing next L = 100 Jpeg.Width = L Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth If jpeg.OriginalWidth > jpeg.OriginalHeight Then jpeg.Width = L jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth Else jpeg.Height = L jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight End If jpeg.PreserveAspectRatio = True If jpeg.OriginalWidth > jpeg.OriginalHeight Then jpeg.Width = L Else jpeg.Height = L End If For Each File in Upload.Files Jpeg.Save server.MapPath("upload\th"&guvenlik&".jpg") th = server.MapPath("upload\th"&guvenlik&".jpg") rs = file.Path next uzun = right(th,24) res = right(rs,24) response.Write uzun mes = replace(uzun,"th","rs") set baglanti=server.CreateObject("adodb.connection" ) baglanti.open"provider=microsoft.jet.oledb.4.0;data source="& server.MapPath("db.mdb" ) set kd = server.CreateObject("ADODB.Recordset") kd.open "Select * From resimler",baglanti,1,3'buraya resmin 'kayıtolacağı tabloyu yazmalısın kd.addnew kd("resim") = mes kd("thumb") = uzun kd.update ' bu kadar resmim thumbu oluşturuldu orjinal resim ve thumb yolu kayıt edildi %>resimleri kaydeceğin veri tabanında resimler olarak belirlediğimiz tabloda orjinal resim ve thumbun yollarının olduğu sutunlar oluşturmalısın scriptin çalışması için ana dizinde upload klasörü oluşturmalı ve buna full yazım izni vermen gerekir kodlar arasına ufak notlar düştüm onlar anlamana yardımcı olacaktır
kolay gelsin
