ewet yanlış anlatmışssın, tam tersini kastediomuşsun. sana bişi yazdım kısaca, burdan geliştirmeye çalış.
mesela anasayfan bu olsun:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>mavili</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<meta http-equiv="Content-Language" content="tr">
</head>
<body>
<script language="JavaScript" type="text/javascript">
<!--
var retVal=""
var valReturned;
function openModal() {
retVal=showModalDialog('popup.htm');
valReturned=retVal;
if (retVal=='a')
location.href='index.asp'
}
//-->
</script>
popup açmak için tıkla<form>
<input type="button" value="popup aç" onClick="openModal()">
</form>
</body>
</html>
___________
popup.htm sayfanda böyle olsun:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>popup</title>
</head>
<body>
<a href="#"onclick="returnValue='a';window.close()">k apat beni</a>
</body>
</html>
______________________________
anladın demi olayı:
returnValue='a' dediğim yer, anasayfaya dönüş değeri, ordan dönen değer a ise index.asp sayfasına yönlendir dedim. bunun gibi linkler verip, geri dönüş değerine göre istediğin sayfaya yönlendirebilirsin. (veya boş bırak, sadece anasayfaya gider, vs...)
daha kısa yolları da vardır tabi. mesela şöyle bi sayfa buldum, incele bi daha pratikte yapılıyomuş:
http://www.codingforums.com/archive/...hp/t-6782.html
video sitesi yapımı
41
●3.454
- 09-04-2009, 17:22:20Üyeliği durduruldu2 defa son soru dedim ama artık kusura bakmazsanız son bis soru daha. şimdi resim uploadı yapıyorum. bi kod buldum onun sayesinde. neyse bu kodda 1 tane kullanıcının yüklediği boyutta resim yükleniyor hostta sonra ben o resmi istediğim kadar küçültüp büyültüp tekrar resize yapabiliyorum. fakat burda şöyle bir sorun olabilir. kullanıcı yüklediği resimle hostinge tojen veya virüs atabilir. Ama bi yerde okumuştum nekadar dopğru bilmiyorum upload edilen resmi resize yapılırsa o resimde trojende varsa virüsde varsa etkisiz hale geliyormuş. 1. sorum böyle birşey doğrumu.
2. sorum resimi yüklediğim kodu aşağıda vericem. ben bu kodda bi kullanıcının yüklediği resmi hostta atıyor 2 benim belirriğim boyutta getiriyor 3 de benim istediğim başka bir boyuta getiriyor. ben burda şunu istiyorum olurmu olmazmı bilmiyorum. kullanıcı resmi yüklüycek bu resim hüç hostta kaydolmadan direk resim küçültmeye giricek. yani kullanıcı 1. resmi istediği bouytta değilde benim belirttiğim boyutta hosta atıcak daha sonra ben resim üzerinden diğer resimleri alacam koduda aşağıda veriyorum biraz uzun oldu kusura bakmayın. yardımlarınız içinde teşekkürler.
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.Save Server.MapPath("images")
Set File = Upload.Files("resim")
gercek_resim= File.ExtractFileName
s = "s_" & gercek_resim
m = "m_" & gercek_resim
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open File.Path
Jpeg.Width = 200
Jpeg.Height = jpeg.OriginalHeight * Jpeg.Width / jpeg.OriginalWidth
Jpeg.Sharpen 1, 150
Jpeg.Save Server.MapPath("images/m_") & File.FileName
jpeg.Width = 90
Jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
Jpeg.Sharpen 1, 150
Jpeg.Save Server.MapPath("images/s_") & File.FileName
fotograf_1="images/"& m &""
fotograf_2="images/"& s &""
fotograf_3="images/"& gercek_resim &""
www.r10.net çıakrsaa onalr kodda yok böyle yazınca çıkıyor ne hikmetse
- 09-04-2009, 22:04:571. sorun : hiç böyle bişi duymadım ben. hostta antivirüs vardır, çok dert etme bence.
2.sorun : hiç net değil soru. resmi yükletirsin, resize yaptırırsın, orjinal dosyayı yine persist upload ile silersin, bu kadar basit. senin kastettiğin resmin ufak haline tıklayım da büyük resme mi gitsin diyosun?
bence şöyle yap: resmi normal yüklet, sadece göstereceğin yerde html kodlarıyla boyut ver. tıklanınca orjinal boyutta açtır. misal eleman 1000x800 resim yüklese de, ufak halini <img src="resim.jpg" width="100" height="100"> gibi, aslında dosya boyutu aynıdır, yine ona göre yükler ama ölçü küçülür, tılarsaın 1000x1000 açar.
bi de resim dosyaları çok yer tutmaz bi video sitesindeki videoların boyutunu düşünürsek. niye böyle anlamsız bişi yapıyon ki????
(benim de bi video sitem var, ordan çok iyi biliyom çünkü)
sen en iyisi mi soruyu bi daha sor, ben yine yanlış anlamış olabilirim. - 09-04-2009, 23:05:53Üyeliği durdurulduyok ben uzun yazdım bide karışık hocam sorularım şunlar.
ve bu sorun video ile ilgili değil sitesinn galeri bölümü ile alakalı olacak. şimdi sorularım şöyle
1. bir yerde duymuştum bu image dosyalarının içine virüs trojen tarzı şeyler koyulabiliyormuş doğrumu
2. bu kullanıcının ilk yüklüyeceği resim sadece ufakk hallerini almama yardımcı olacak. bunun için bu resmi hiç yükletmeden resmin kiçik hallerini alsam Yani sonuçda oresim hostingde yer kaplıycak. (bu resimlere trojen tarzı şeylerin sokulması eğer hikaye ise bu resmi persistele nasıl silerim yada bu ilk resmi yüklerken bunun boyutnu nasıl verebilirm) şimdiden saol - 10-04-2009, 01:26:441. doğru ama o kadar tırsmanı gerektirecek bi durum değil, şöyle düşün: senin sunucun zaten bi pc sonuçta ve onlarca (hatta yüzlerce) kişinin siteside o pcde. bu yüzden o makinalarda güvenlik dandik olmaz. (hostun dandik değilse) dediğim gibi, bunu o kadar dert etme, dediğin doğruysa , yani resize ile uçuyosa, o zaman resize yap gitsin, için rahat olsun.
2. resmin kendisini yükletmeden minik halini nası alcan ? sonuçta veri havadan gelmiyo, önce aslını alcan, sonra aslından miniğine rücu edecen. (ne cümle oldu be...)
sen bi klasöre yüklettir, resimlerin orjinal halde, resize yap, sonra orjinal dosyaları sil, veya her upload ardından tek tek sil.
metod şu olacak seninkinde:
> persist upload çalıştır (set yani), resmi normal olarak yüklet
> persist jpeg çalıştır, resize yap
> tekrar persist uploada geç (kodlama olarak tabi) ve orjinal dosyayı sil.
> hayata gülümse.
persist upload ile silme çok çok zordur.
file.delete yazman lazım
sana kabaca yiyeceğin haltları yazıyım:
________________________________________________
resmi yükle:
<% Set Upload = Server.CreateObject("Persits.Upload.1") Upload.OverwriteFiles = False On Error Resume Next Upload.SetMaxSize 69048576 ' en fazla 69MB, niyeyse 'Count = Upload.Save("c:\upload") 'tam yol yazmayla 'misal up klasörüne mappath ile yüklemek için aşağdakini kullanalım, hep mappath kullan zaten. Count = Upload.Save(Server.MapPath("up")) resimadi= File.FileName ' burdan resmin adını aldık. 'sonra burda artislik yapıp persist jpeg yapıyoz Set Jpeg = Server.CreateObject("Persits.Jpeg") ' resmin yolunu girelim Path = Server.MapPath("up") & "\"&resimadi 'veya file.filename 'açalım resmi Jpeg.Open Path 'genişliği alak, ölçülü olsun jpeg.Width = Request("width") ' en boy oranını koruyalım, veya istersen kafana göre sabit ölçülerde girebilirsin 'width ve height değerlerini direkt olarak atayaraktan.. jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth 'emeği kayda geçirelim: Jpeg.Save Server.MapPath("up\")&Session.SessionID&File.ext 'başka şekilde de bi isim verebilirsin, ama oto yap. 'sonra orjinal dosyayı sil: File.Delete 'sonra upload ve jpeg kapat: set upload = nothing 'jpeg de aynen %>bunun gibi bişiler yapabilirsin mesela; belki daha kısa yolları da vardır, kodlarda hatalar olabilir, denemedim


