[undertaker]

senin yaptığın şekilde kırılım noktası sayısını bilmen ve ona göre while döngülerini çalıştırman gerekiyor

hönnk!
Abi programlamaya bir girersem benim de ömrümü yer bitirirmiş!
bay bay PHP!

Fotoşop leyır braş!

[Scud]

programcılık pis iş kod bilmekle olmuo genelde mantık gerekli )

ne güzel veritabanı mantığı bulduk kod bilioz ama kodlayamıoz

[Scud]

PHP Code:

<? include "../setup.PHP";
$sorsm="SELECT * from cuditips WHERE catid='0' ORDER BY catid";
$icsm=mysql_db_query($dibi,$sorsm);
$myc=0;
while($sm=mysql_fetch_array($icsm)) {
$mtip=$sm[tipid];
$satir .= $sm[tipname]."<br>";
    do{
$sorsm2="SELECT * from cuditips WHERE catid=".$mtip;
$icsm2=mysql_db_query($dibi,$sorsm2);
    while($sm2=mysql_fetch_array($icsm2)) {
    $sor="SELECT * from cuditips WHERE catid=".$sm2[tipid];
    $myc=mysql_num_rows(mysql_db_query($dibi,$sor));
    $satir .= " - ".$sm2[tipname]."<br>";
    $mtip=$sm2[tipid];
    }
    } while($myc>0);
$satir.="<br>";
}
echo $satir;
?>

son hâli bu.. ama hâlâ istediğim şekilde en dibe kadar bakamıyorum. kafamdaki mantığa göre gitmesi gerekiyor en dibe. hata ayıklama yapıyorum orada hiç bir problem yok ama işte çıktıyı vermiyor o şekilde..
aşağıdaki gibi veriyor çıktıyı.. hepsinde derine gitmese bulcam belki ama ilk anakategoride en dibe gitmiyor ikincide gidiyor en derine kadar üçüncüde yine gitmiyor böle ilginç bişe.

BİLGİSAYAR
- Anakart
- işlemci

EĞLENCE
- Fıkralar
- Karikatürler
- belaltı karikatürler
- belüstü karikatürler
- bolum 1

EĞİTİM
- PHP
- ASP

İletişim

[stNonStop]

Kırılımdan bahsettiğim şey:

bilgisayar->Anakartlar->Asus->TULS-2c

Yukarıdaki menü 4 kırılımlıdır. Buna göre 4 tane while döngüsü ile basit şekilde en alt menüye kadar inilebilinir.

bilgisayar->Anakartlar->Asus->TULS-2c
bilgisayar->Anakartlar->Asus->CULS-2c
bilgisayar->Anakartlar->Asus->P2B
bilgisayar->Floppy
bilgisayar->Ekrankartı->TNT2 M64

şeklinde bir menü oluşturmak için her kırılım için sorgu yapıp while döngüleri ile sorguyu yazdırmamız gerekir.

Benim bildiğim bu tür menülerde kırılım noktası sayısını bilerek işlem yaptım. Sonsuz kırılımlı bir menü tasarlamadım şu ana kadar.

[Scud]

hmmm. ok hocam. bana sonsuz kırılımlısı lazım işte... çünkü o kategorileri ben açmıyorum müşteri açıyor. ona bir kısıtlama koymak istemiyorum.

[stNonStop]

Müşteriyi bence kısıtla yoksa hata yapmasına daha fazla izin verirsin hemde kendini böyle yıpratırsın

[Scud]

yok hocam. kafama koydum yapıcam bunu..
artık gurur meselesi yaptım.
iyi bir programcı değil miyim yoksa diye kendimle çatışıyorum içimde..

bu problemden o kadar bıktım ki konsantre olamıyorum. üzerine düşünemiyorum.


neyse herkese teşekkürler...

[absconder]

<%
tabSay=1
set rsFirst = server.CreateObject ("ADODB.Recordset")
sqlFirst = "Select * FROM cevaplar where  int(catpid)=0"
rsFirst.open SqlFirst,dbc,1
while not rsFirst.eof
	gelenTipidi=rsFirst("tipoid")
	for i=1 to tabSay%>-<%next%><%=rsSecond("tipname")%>
	call dongu
donse.movenext
wend
set rsFirst=nothing

sub dongu
	set rsSecond = server.CreateObject ("ADODB.Recordset")
	sqlSecond = "Select * FROM cevaplar where  int(tipid)="&gelenTipid
	rsSecond.open sqlSecond,dbc,1
	while not rsSecond.EOF 
	for i=1 to tabSay%>-<%next%><%=rsSecond("tipname")%>
	<%set rsKontrol = server.CreateObject ("ADODB.Recordset")
	sqlKontrol = "Select * FROM cevaplar where int(catpid)="&gelenTipid
	rsKontrol.open sqlKontrol,dbc,1
	if not rsKontrol.eof then
		gelenTipid=gelenTipid
		tabSay=tabSay+1
		call dongu
	end if
	tabSay=tabSay-1
	rsSecond.movenext
	wend
	rsSecond.Close
	Set rsSecond = Nothing
end sub
%>

[Scud]

Çözüm bu soruyu sorduktan sonra hiç bakmadım kusasım gelio diye. ama bi arkadaş çözdü sağolsun

okuyan, cevap yazan, uğraşan herkese teşekkürler

PHP Code:

<?
function submenu($myparent, $mystr){
//db connection
$sorsm="SELECT * from cuditips WHERE catid='$myparent' ORDER BY catid";
$icsm=mysql_db_query($dibi,$sorsm);
if($myparent!=0){$mystr .= "-"; }
   while($satir=mysql_fetch_array($icsm)) {
      $mycatid   = $satir[catid];
      $mytipid   = $satir[tipid];
      $mytipname = $satir[tipname];

echo $mystr.$mytipname."<br>\n";
//      echo  . "<br>\n";
      if ($mytipid >= 0) { $t = submenu($mytipid, $mystr);}
   }

}
$myparent = 0;
$mystr = "";
submenu($myparent, $mystr);
?>

[absconder]

düzeltiyorum sonsuz kere içiçe kendisini çağırabilecek ağaç yapısı... tablo yapısı @scud'un verdiği yapıdadır...

<%
server.ScriptTimeout=1000000000
set myAdo=server.CreateObject("adodb.connection")	
myAdo.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & server.MapPath("veritabaniadi.mdb")

tabSay=1
gelenTipid=0
call dongu
sub dongu
	set rsSecond = server.CreateObject ("ADODB.Recordset")
	sqlSecond = "Select * FROM tabloismi where  catid="&gelenTipid
	rsSecond.open sqlSecond,myAdo,1
	while not rsSecond.EOF 
	for i=1 to tabSay%>-<%next%><%=rsSecond("tipname")%><br><%
	set rsKontrol = server.CreateObject ("ADODB.Recordset")
	sqlKontrol = "Select * FROM tabloismi where catid="&rsSecond("tipid")
	rsKontrol.open sqlKontrol,myAdo,1
	if not rsKontrol.eof then
		gelenTipid=rsSecond("tipid")
		tabSay=tabSay+1
		call dongu
	end if
	rsSecond.movenext
	wend
	tabSay=tabSay-1
	rsSecond.Close
	Set rsSecond = Nothing
end sub
%>