USLANMAM

UslanmaM En Kaliteli Bilgi Adresiniz
USLANMAM öğesini iGoogle sayfanıza ekleyin.
Geri git   USLANMAM > PROGRAM > PROGRAMLAMA DİLLERİ > ASP, Perl, Php, Html
Dinamik Haber Başlıkları (Asp+JavaScript) Dinamik Haber Başlıkları (Asp+JavaScript)
UslanmaM Resim AlbümleriSosyal Gruplar
Özel Arama
Kayıt ol Sosyal Gruplar Ajanda Konuları Okundu Kabul Et

ASP, Perl, Php, Html ASP, Perl, Php, Html gibi her tür web programcılığı dili için yardım

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 05-14-2009, 11:28 AM   #1 (permalink)
{♥_♥} sürgün..{♥_♥}
 
Constantine - ait Kullanıcı Resmi (Avatar)
Standart Dinamik Haber Başlıkları (Asp+JavaScript)
Konu : Dinamik Haber Başlıkları (Asp+JavaScript)
Seviye : Orta Düzey



Görünüm



Kod:
<html>
<head>
<title>haber</title>
<aaaa http-equiv="aaaaaaa-Type" aaaaaaa="text/html; charset=iso-8859-9" />
<style type="text/css">
<!--

a.Link_01:link {
font-family: Verdana Arial Helvetica sans-serif;
font-size: 12px;
font-weight:bold;
color: #FF9900;
text-decoration: none
}
a.Link_01:visited {
font-family: Verdana Arial Helvetica sans-serif;
font-size: 12px;
font-weight:bold;
color: #FF9900;
text-decoration: none
}
a.Link_01:active {
font-family: Verdana Arial Helvetica sans-serif;
font-size: 12px;
font-weight:bold;
color: #FF9900;
text-decoration: none
}
a.Link_01:hover {
font-family: Verdana Arial Helvetica sans-serif;
font-size: 12px;
font-weight:bold;
color: #CB2300;
text-decoration: underline
}
.baslik
{
color: #FF9900;
font-family: Verdana Arial Helvetica sans-serif;
font-size: 13px;
font-weight: bold
}
.yazi_01 {
font-family: Verdana sans-serif Helvetica Arial;
font-size: 10px;
line-height: 16px;
}
.yazi_02 {
color: #CB2300;
font-family: Verdana sans-serif Helvetica Arial;
font-size: 14px;
}
-->
</style>
<script type="text/javascript">
<!--
function hide(divID)
{
document.getElementById(''+divID+'').style.display = 'none';
}
function displayCatDiv(divID)
{
document.getElementById(''+divID+'').style.display = 'block';
}
// -->
aaaaaaaaaaa
</head>
<body>

<table border="1" cellpadding="0" cellspacing="0" width="550">
<%
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")

'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
'---- CommandTypeEnum Values ----
Const adCmdText = &H0001
'---- GetRowsOptionEnum Values ----
Const adGetRowsRest = -1

set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

strSql = "Select * From tblHaber"

set objRs = Server.CreateObject("ADODB.Recordset")
objRs.open strSql objConn adOpenForwardOnly adLockReadOnly adCmdText

if objRs.EOF then
intToplam = ""
else
arrTumVeriler = objRs.GetRows(adGetRowsRest)
intToplam = UBound(arrTumVeriler2)
end if

objRs.Close
set objRs = nothing

if intToplam <> "" then

intAlan01 = 0
intAlan02 = 1
intAlan03 = 2
intAlan04 = 3
intAlan05 = 4


Response.Write " <tr>" & vbNewLine & _
" <td height=""25"" class=""baslik"">"
for intSayac = 0 to intToplam
if intSayac <> 0 then
strStil = "none"
else
strStil = "block"
end if
Response.Write "<div id=""tits" & intSayac & "-manset"" style=""DISPLAY: " & strStil & """>" & arrTumVeriler(intAlan02 intSayac) & "</div>" & vbNewLine
next
Response.Write " </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>" & vbNewLine & _
" <table border=""1"" cellpadding=""0"" cellspacing=""0"" width=""550"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td valign=""top"" width=""300"">" & vbNewLine & _
" <table border=""1"" cellpadding=""0"" cellspacing=""0"" width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td width=""300"" height=""250"">" & vbNewLine
for intSayac = 0 to intToplam
if intSayac <> 0 then
strStil = "none"
else
strStil = "block"
end if
Response.Write " <div id=""tits" & intSayac & "-imaj"" style=""DISPLAY: " & strStil & """><img src=""resimler/" & arrTumVeriler(intAlan05 intSayac) & """ width=""300"" height=""250"" border=""1""></div>" & vbNewLine
next


Response.Write " </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td class=""yazi_01"">" & vbNewLine
for intSayac = 0 to intToplam
if intSayac <> 0 then
strStil = "none"
else
strStil = "block"
end if
Response.Write " <div id=""tits" & intSayac & "-spot"" style=""DISPLAY: " & strStil & """>" & arrTumVeriler(intAlan03 intSayac) & "</div>" & vbNewLine
next
Response.Write " </td>" & vbNewLine & _
" </tr>" & vbNewLine & _

" </table>" & vbNewLine & _
" </td>" & vbNewLine
%>
<script type="text/javascript">
<!--
function displayDiv(divID)
{
<%
for intSayac = 0 to intToplam
Response.Write "hide('tits" & intSayac & "-manset');hide('tits" & intSayac & "-spot');hide('tits" & intSayac & "-imaj');" & vbNewLine
next
%>
document.getElementById('tits'+divID+'-manset').style.display = 'block';
document.getElementById('tits'+divID+'-spot').style.display = 'block';
document.getElementById('tits'+divID+'-imaj').style.display = 'block';
}
// -->
aaaaaaaaaaa
<%
Response.Write " <td valign=""top"" width=""250"">" & vbNewLine & _
" <table border=""1"" cellpadding=""0"" cellspacing=""0"" width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"" class=""yazi_02""><b>Haberler</b></td>" & vbNewLine & _
" </tr>" & vbNewLine
for intSayac = 0 to intToplam
if intSayac <> 0 then
strStil = "none"
else
strStil = "block"
end if
Response.Write " <tr>" & vbNewLine & _
" <td height=""20"">&nbsp;<a href=""urun.asp?id=" & arrTumVeriler(intAlan01 intSayac) & """ onmouseover=displayDiv(" & intSayac & ") class=""Link_01"">" & arrTumVeriler(intAlan02 intSayac) & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine
next
Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
else
Response.Write " <tr>" & vbNewLine & _
" <td>Kayıt Yok!</td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
objConn.Close
set objConn = Nothing
%>
</table>

</body>
</html>

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

Beğenilen Sayfayı İşaretleyin
Konuyla Alakalı Etiketler
• manşet haber javascript • haber html asp • javascript haber • javascript manşet haber • manşet haber • asp manşet haber • javascript manşet • asp javascript function • manşet haber asp kodu • manşet haber html kodu

« Psp Recursion İşlemi | Bir garaj icin template »

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

Yetkileriniz
You may not post new threads
You may not post replies
Eklenti Ekleyemezsiniz
You may not edit your posts
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-KodlarıKapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık
Gitmek istediğiniz klasörü seçiniz

Benzer Konular
Konu Konuyu Başlatan UslanmaM Cevaplar Son Mesaj
JavaScript botnet code leaked to Internet USLANMAM Technology News 1 03-28-2009 03:05 PM
Adana basnından haber başlıkları NightDevil Güncel HABERLER 0 12-02-2008 08:12 PM
Javascript’te gizli tehlike hig_hayat Güncel HABERLER 1 06-24-2008 09:24 PM
Javascript Dersleri değişkenler ve nesneler CENGiZ1 ASP, Perl, Php, Html 1 07-13-2007 06:27 PM


Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 05:11 PM .
Üyelerimiz görüşlerini önceden onay olmadan anında yazabilmektedir, bu yazılardan dolayı doğabilecek sorumluluklar yazan kullanıcılara aittir, UslanmaM yoneticileri itina ile icerik kontrolleri yapmaktadir, yine de UslanmaM' da yasalara aykırı unsurlar bulursanız 04/05/2007 tarihli ve 5651 sayılı yasa gereği destek(@)uslanmam.com veya 0537 403 03 03 numaralı telefona bildirebilirsiniz, gereği yapılacaktır.
English Explanation: Our users can give their opinions without getting any approval in our site, all the responsibilities which can rise from these articles belong to these users, the managers of UslanmaM control the contents very carrefully, but if you find any item opposite to the rules destek(@)uslanmam.com or dial +90537 403 03 03

İletişim - Uslanmam - Arşiv - Yukarı git

Powered by vBulletin Version 3.8.4
Copyright ©2000 - 2010, Jelsoft Enterprises Ltd.'e Aittir.
Tercüme Eden : TEKplatform
Search Engine Optimization by vBSEO 3.2.0
[Gizlilik Politikası]-[UslanmaM Kuralları]-[UslanmaM İletişim/Contact]
Alexa
Sagopa Kajmer*Bilgi*izafet*Melekler Mekanı*Web Hattı*MaxiCep*araba