ForumTayfa  

Go Back   ForumTayfa > Güvenlik & Bilgisayar & İnternet & Webmaster & Programlama Bölümü > Güvenlik & Bilgisayar & İnternet & Webmaster & Programlama > ASP, Perl, Php, Html

ASP, Perl, Php, Html ASP, Perl, Php, Html, Java gibi her tür programcılık dili için yardım alabilceğimiz bölüm...

Yeni Konu aç  Cevapla
 
LinkBack Seçenekler Stil
Alt 10.09.08, 03:35   #1 (permalink)
Yeni Tayfa
 
dj-furkanca - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: Sep 2008
Nereden: ist.
Mesaj Sayısı: 135
Konu Sayısı: 15
Takım: Beşiktaş
Rep Gücü: 33962
Rep Puanı: 3395089
Rep Derecesi : dj-furkanca 0-4000000dj-furkanca 0-4000000dj-furkanca 0-4000000dj-furkanca 0-4000000dj-furkanca 0-4000000dj-furkanca 0-4000000dj-furkanca 0-4000000dj-furkanca 0-4000000dj-furkanca 0-4000000dj-furkanca 0-4000000dj-furkanca 0-4000000
Ruh Hali:

Üyenin Twitter Profilini Ziyaret Et
Wink dj-furkanca' dan süper html kod arşivi




SİTEYİ İNDEXLEME

Kod:
<body oncontextmenu="return false" onselectstart="return false" ondragstart="return false">

Mp3 players html kodu

Kod:
<object classid="clsid:6BF52A52-394A-11D3-B153-00C04F79FAA6" id="WindowsMediaPlayer" width="250" height="250"> 
<param name="URL" ref value=" BURAYA URL YAZILACAK "> 
<param name="rate" value="1"> 
<param name="balance" value="0"> 
<param name="currentPosition" value="0"> 
<param name="defaultFrame" value> 
<param name="playCount" value="100"> 
<param name="autoStart" value="-1"> 
<param name="currentMarker" value="1"> 
<param name="invokeURLs" value="1"> 
<param name="volume" value="100"> 
<param name="uiMode" value="full"> 
<param name="stretchToFit" value="0"> 
<param name="windowlessVideo" value="0"> 
<param name="enabled" value="1"> 
<param name="enableContextMenu" value="1"> 
<param name="fullScreen" value="0"> 
<param name="SAMIStyle" value> 
<param name="SAMILang" value> 
<param name="SAMIFilename" value> 
<param name="captioningID" value="1"> 
<param name="enableErrorDialogs" value="1"> 
<embed src="wm7.wmv" width="543" height="447" autostart="-1" url="wm7.wmv" rate="1" balance="0" 
currentposition="0" defaultframe="value" playcount="100" currentmarker="1" invokeurls="1" volume="100" uimode="full" 
stretchtofit="0" windowlessvideo="0" enabled="1" enablecontextmenu="1" fullscreen="0" samistyle="value" 
samilang="value" samifilename="value" captioningid="1" enableerrordialogs="1"></embed> 
</object>

Resim yükle

Bu kodu kullanmanız için asp upload ve asp jpeg bileşenlerine ihtiyacınız vardır
Kod:
'Açıklama : Bu kodu kullanmanız için Asp Upload ve Asp Jpeg 
'bileşenlerine ihtiyacınız vardır.
'Form Sayfanız:

<form id="form1" name="form1" method="post" action="resim_yukle.asp" ENCTYPE="multipart/form-data" >
<input type="file" name="file" />
<input name="Submit" type="submit" />
</form>

'resim_yukle.asp

<%

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("..\images\urun\")'Resminizin kaydolduğu klasör


' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open source image
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("..\images\urun\th"&guvenlik&".jpg" )
th = server.MapPath("..\images\urun\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 "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("db.mdb") 'buraya kendi database'inizi yazın
set kd = server.CreateObject("ADODB.Recordset")
kd.open "Select * From urun",baglanti,1,3'buraya resmi 
'kaydedeceğiniz tabloyu yazın
kd.addnew
kd("resim") = mes 'urun tablosundaki resim alan'ına normal 
' resmi kaydeder
kd("thumb") = uzun 'urun tablosundaki thumb alanına resmin 
' thumb halini kaydeder
kd.update
%> 
'Sizde bu sayede database'den resimleri çağırabilirsiniz. Database'e resimlerin yollarını kaydeder.

Harika bir tablo

Cok guzel bir tablo bakamdan geçmeyin
Kod:
<html>
<head>
<style type="text/css">
a{
color:#99CC66;
font-family:Tahoma;
font-size:12px;
text-decoration:none;
}
a:hover{
color:#006600;
font-family:Tahoma;
font-size:12px;
text-decoration:none;
font-weight:bold;
background-color:#99CC66;
}
td{
border-style:dashed;
border-color:#99CC66;
}
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9"></head>
<body>
<table border="3" bordercolor="99CC66" bgcolor="#006600" cellspacing="6" cellpadding="6" width="120" height="50" id="navigation"> 
<tr>
<td><a href="index.html">Anasayfa</a></td>
</tr>
<tr>
<td><a href="Album.html">Album</a></td>
</tr>
<td><a href="Hakkimizda.html">Hakkımızda</a></td>
</tr>
<tr>
<td><a href="iletisim.html">İletişim</a></td>
</tr>
<tr>
<td><a href="Linkler.html">Linkler</a></td>
</tr>
</body>
</html>
Yapım
...
Gecekahvesi.org
wolvern


dj-furkanca isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 10.09.08, 03:37   #2 (permalink)
Deneyimli Tayfa
 
hayattanbirparca - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: May 2008
Mesaj Sayısı: 4.355
Konu Sayısı: 154
Takım: Fenerbahçe
Rep Gücü: 483878
Rep Puanı: 48386139
Rep Derecesi : hayattanbirparca 0-10000000hayattanbirparca 0-10000000hayattanbirparca 0-10000000hayattanbirparca 0-10000000hayattanbirparca 0-10000000hayattanbirparca 0-10000000hayattanbirparca 0-10000000hayattanbirparca 0-10000000hayattanbirparca 0-10000000hayattanbirparca 0-10000000hayattanbirparca 0-10000000
Ruh Hali:

Standart Cevap: dj-furkanca' dan süper html kod arşivi




paylaşm için tşkler


__________________
..........hayattanbirparcaramon2154..........

Aşk der ki sana:Yolumdaysan başım feda yoluna;
ama bil ki senin de başını isterim yoluma..
Kahır, kapris gelecekse senden amenna!
Ama ayağına diken batarsa yolumda ah edip vahlanma..
Aşk bilek gücü değil “YÜREKTİR”.
Yüreğin yetmiyorsa düşme yollara!
(MEVLANA)

hayattanbirparca isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Divxarc(film arşivi düzenlemek için)SÜPER -Resimli anlatım KorsaN Resimli Program Anlatımı 5 24.03.09 14:50
HtmL KodLarı B.S.G.Y Webmasterlar için 2 18.12.08 04:17
Html Zip -BuRAk- Sistem Programları 0 15.12.07 01:02
Her Kategoride Süper Programlar,Ekran Görüntüleri ve Anlatımlarıyla,Bu Arşivi Kaçırma Dr.TaKa Diğer Programlar 2 19.09.07 11:47
HTML Çerçeveler long_time_03 ASP, Perl, Php, Html 0 01.02.07 13:48


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 07:38.


Powered by vBulletin® Version 3.8.0
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO 3.6.0
User Alert System provided by Advanced User Tagging v3.0.6 (Lite) - vBulletin Mods & Addons Copyright © 2020 DragonByte Technologies Ltd.
ForumTayfa

Arşiv: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 16 22 23 24 25 26 27 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 95 96 97 98 99 100 102 103 104 105 106 155 156 157 158 159 160 161 162 163 164 167 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271


ForumTayfa - Link Değişimi
Telinka İletişim | Voip Ürünleri | Link Değişimine Katılın |

Sitemiz bir forum sitesi olduğundan dolayı, kullanıcılar her türlü görüşlerini önceden onay olmadan anında siteye yazabilmektedir. ForumTayfa Yöneticileri mesajları itina ile kontrol etse de, bu yazılardan dolayı doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Yine de sitemizde yasalara aykırı unsurlar bulursanız [email protected] email adresine bildirebilirsiniz, şikayetiniz incelendikten sonra en kısa sürede gereken yapılacaktır.

Any member of our web site has the right of adding comments instantly without getting permisson due to the forum structure of our site basis. Althought, our site modarators check comments with care, all the responsibilities sourced from these comments directly belong to the members. If you still find any illegal content in our site ( A.buse, H.arassment, S.camming, H.acking, W.arez, C.rack, D.ivx, Mp.3 or any Illegal Activity ), please report us via [email protected] .Your reports will be evaluated as soon as the arrival of your e-mail.