irbaydar
20.05.2009, 14:15
Arkadaşlar hoşuma giden bir scripti eklemeye çalışıyorum ama dışarı taşma yaşıyorum explorer 8 de normal çalışıyor 7 ve 6 da sağdan ve soldan taşmalar oluyor bunu çözemedim eğer düzeltebilen bir arkadaşım olursa herkezin beğenerek kullanacağı bir script olacak
default.asp ye mansetin altına yerleştiriyorum bu kodları
[code]
<SCRIPT>
redLeft=0;
nextLeft=0;
yonx="sol";
function hareket(yon,miktar)
{
miktar=parseInt(miktar);
yonx=yon;
yon=="sol"?nextLeft=redLeft+miktar:nextLeft=redLeft-miktar;
if(nextLeft>0)
{
redLeft=0;
nextLeft=0;
red.style.left=redLeft;
}
else if(nextLeft<=-2650)
{
redLeft=-2120;
nextLeft=-2120;
red.style.left=redLeft;
}
else setTimeout(kaydir,10);
}
function kaydir()
{
arttir=10;
if(navigator.appName=="Netscape") arttir=26.5;
yonx=="sol"?redLeft+=arttir:redLeft-=arttir;
document.getElementById('red').style.left=redLeft;
if(redLeft==nextLeft || redLeft>0 || redLeft<=-2120)
{
clearTimeout(kaydir);
}
else
setTimeout(kaydir,1);
}
otoyon="sag";
function otokaydir()
{
//document.title=redLeft;
if(redLeft==0) otoyon="sag";
if(redLeft==-2120) otoyon="sol";
hareket(otoyon,530);
}
</SCRIPT>
<DIV class=kynhbr onmouseover="dene('dur')" onmouseout="dene('basla')">
<IMG onclick="hareket('sol',530);" src="img/bg/kyn_geri.png" widş="13" height="97">
<DIV class=kynshp>
<DIV id=red style="left: 0px; top: 0px">
<%kdGenel.Open "SELECT HaberID, kategori, Baslik, ozet, Kucuk_Resim FROM tblHaberler WHERE Durum = "& strDBTrue &" ORDER BY tblHaberler.Tarih DESC, HaberID DESC", adoCon, 1, 3
If Not kdGenel.Eof Then
intTdLooper = 0
Do While Not kdGenel.Eof AND intTDLooper < 10 %>
<DIV><A href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>"><IMG src="<%=strScriptYolu%>resimler/haber/<%=kdGenel("kucuk_resim")%>" widş="100" height="76" align="left" onError="şis.src='<%=strScriptYolu%>resimler/haber/ş_resimyok.gif';"><B><% =server.HTMLEncode((left(kdGenel("baslik"),50))) %></B><BR><% =server.HTMLEncode((left(kdGenel("ozet"),100))) %>... </A></DIV>
<%
intTdLooper = intTdLooper + 1
kdGenel.Movenext
Loop
End If
kdGenel.Close %>
</DIV>
</DIV>
<IMG onclick="hareket('sag',530);" src="img/bg/kyn_ileri.png" widş="13" height="97">
<SCRIPT>
kay=setInterval(otokaydir,5000);
function dene(gelen)
{
gelen=='dur'?clearInterval(kay):kay=setInterval(otokaydir,5000);;
}
</SCRIPT>
[/code]
bunlarıda stil.css dosyasına ekliyorum
[code]
.kynhbr {
MARGIN: 3px 0px; WIDŞ: 556px; FLOAT: left; HEIGHT: 100px; CLEAR: boş
}
.kynhbr IMG {
MARGIN: 0px -3px; FLOAT: left; CURSOR: pointer
}
.kynshp {
WIDŞ: 530px; BACKGROUND: url(../img/bg/kyn_orta.png); FLOAT: left; HEIGHT: 97px; OVERFLOW: hidden
}
#red {
POSITION: relative; MARGIN-TOP: 5px; WIDŞ: 2650px; FLOAT: left; HEIGHT: 95px; OVERFLOW: hidden
}
#red DIV {
WIDŞ: 265px; FLOAT: left
}
#red DIV IMG {
BORDER-BOTTOM: #1b1b1b 1px solid; BORDER-LEFT: #1b1b1b 1px solid; MARGIN: 2px; WIDŞ: 100px; FLOAT: left; HEIGHT: 75px; BORDER-TOP: #1b1b1b 1px solid; BORDER-RIGHT: #1b1b1b 1px solid
}
#red DIV B {
FONT: bold 11px/14px Tahoma; COLOR: #d7d7d7
}
#red DIV A {
FONT: 11px/12px Tahoma; COLOR: #939393
[/code]
irbaydar2009-05-20 16:21:06
default.asp ye mansetin altına yerleştiriyorum bu kodları
[code]
<SCRIPT>
redLeft=0;
nextLeft=0;
yonx="sol";
function hareket(yon,miktar)
{
miktar=parseInt(miktar);
yonx=yon;
yon=="sol"?nextLeft=redLeft+miktar:nextLeft=redLeft-miktar;
if(nextLeft>0)
{
redLeft=0;
nextLeft=0;
red.style.left=redLeft;
}
else if(nextLeft<=-2650)
{
redLeft=-2120;
nextLeft=-2120;
red.style.left=redLeft;
}
else setTimeout(kaydir,10);
}
function kaydir()
{
arttir=10;
if(navigator.appName=="Netscape") arttir=26.5;
yonx=="sol"?redLeft+=arttir:redLeft-=arttir;
document.getElementById('red').style.left=redLeft;
if(redLeft==nextLeft || redLeft>0 || redLeft<=-2120)
{
clearTimeout(kaydir);
}
else
setTimeout(kaydir,1);
}
otoyon="sag";
function otokaydir()
{
//document.title=redLeft;
if(redLeft==0) otoyon="sag";
if(redLeft==-2120) otoyon="sol";
hareket(otoyon,530);
}
</SCRIPT>
<DIV class=kynhbr onmouseover="dene('dur')" onmouseout="dene('basla')">
<IMG onclick="hareket('sol',530);" src="img/bg/kyn_geri.png" widş="13" height="97">
<DIV class=kynshp>
<DIV id=red style="left: 0px; top: 0px">
<%kdGenel.Open "SELECT HaberID, kategori, Baslik, ozet, Kucuk_Resim FROM tblHaberler WHERE Durum = "& strDBTrue &" ORDER BY tblHaberler.Tarih DESC, HaberID DESC", adoCon, 1, 3
If Not kdGenel.Eof Then
intTdLooper = 0
Do While Not kdGenel.Eof AND intTDLooper < 10 %>
<DIV><A href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>"><IMG src="<%=strScriptYolu%>resimler/haber/<%=kdGenel("kucuk_resim")%>" widş="100" height="76" align="left" onError="şis.src='<%=strScriptYolu%>resimler/haber/ş_resimyok.gif';"><B><% =server.HTMLEncode((left(kdGenel("baslik"),50))) %></B><BR><% =server.HTMLEncode((left(kdGenel("ozet"),100))) %>... </A></DIV>
<%
intTdLooper = intTdLooper + 1
kdGenel.Movenext
Loop
End If
kdGenel.Close %>
</DIV>
</DIV>
<IMG onclick="hareket('sag',530);" src="img/bg/kyn_ileri.png" widş="13" height="97">
<SCRIPT>
kay=setInterval(otokaydir,5000);
function dene(gelen)
{
gelen=='dur'?clearInterval(kay):kay=setInterval(otokaydir,5000);;
}
</SCRIPT>
[/code]
bunlarıda stil.css dosyasına ekliyorum
[code]
.kynhbr {
MARGIN: 3px 0px; WIDŞ: 556px; FLOAT: left; HEIGHT: 100px; CLEAR: boş
}
.kynhbr IMG {
MARGIN: 0px -3px; FLOAT: left; CURSOR: pointer
}
.kynshp {
WIDŞ: 530px; BACKGROUND: url(../img/bg/kyn_orta.png); FLOAT: left; HEIGHT: 97px; OVERFLOW: hidden
}
#red {
POSITION: relative; MARGIN-TOP: 5px; WIDŞ: 2650px; FLOAT: left; HEIGHT: 95px; OVERFLOW: hidden
}
#red DIV {
WIDŞ: 265px; FLOAT: left
}
#red DIV IMG {
BORDER-BOTTOM: #1b1b1b 1px solid; BORDER-LEFT: #1b1b1b 1px solid; MARGIN: 2px; WIDŞ: 100px; FLOAT: left; HEIGHT: 75px; BORDER-TOP: #1b1b1b 1px solid; BORDER-RIGHT: #1b1b1b 1px solid
}
#red DIV B {
FONT: bold 11px/14px Tahoma; COLOR: #d7d7d7
}
#red DIV A {
FONT: 11px/12px Tahoma; COLOR: #939393
[/code]
irbaydar2009-05-20 16:21:06