Psp Recursion İşlemi

**Constantine** · 05-14-2009, 11:26 AM

Konu : Recursion İşlemi
Seviye : Üst Düzey

Asp ile Kategoriler içeren Shop

Makale

Forum vb. script yazmak ve bunu profesyonel bir veritabanı mimarisi

sonsuz kategori ve en son sistem bir uygulama yapmak istiyorlar ise mutlaka bu işlemi kullanmalıdırlar. hipernex.com

hepsiburada.com ve bunlar gibi sitelerin kodlamaları asp.NET ile yapılmıştır ancak veritabanı mimarisi bu şekildedir...

Bu konuda TR çok fazla bir kaynak bulamazsınız. Bu konuda araştırmak kafa yormanız için bu bir başlangıç olsun...

Ekran çıktışı şöyle;
Elbette bu çok farklı şekillerde kullanılır ben en basit halini yaptım.

Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title></title>
<style type="text/css">
<!--
body {
margin:0px;
padding:0px;
}
A.link_01:link {
font-family: Verdana

Arial

Helvetica

sans-serif;
font-size: 12px;
font-weight:normal;
color: #0077b5;
text-decoration: none
}
A.link_01:visited {
font-family: Verdana

Arial

Helvetica

sans-serif;
font-size: 12px;
font-weight:normal;
color: #0077b5;
text-decoration: none
}
A.link_01:active {
font-family: Verdana

Arial

Helvetica

sans-serif;
font-size: 12px;
font-weight:normal;
color: #0077b5;
text-decoration: none
}
A.link_01:hover {
font-family: Verdana

Arial

Helvetica

sans-serif;
font-size: 12px;
font-weight:normal;
color: #ffcc00;
text-decoration: none
}
-->
</style>
<aaaa http-equiv="aaaaaaa-Type" aaaaaaa="text/html; charset=iso-8859-9">
</head>
<body>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="center">
<table border="0" cellpadding="0" cellspacing="0" width="779">
<%
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

subRecursive 0 0

objConn.Close
Set objConn= Nothing
%>
</table>
</td>
</tr>
</table>

</body>
</html>
<%
sub subRecursive(ParentID

intLevel)
dim objRs
dim strSql

strSql = "SELECT KATEGORI_ID

KATEGORI_AD FROM tblKategori WHERE KATEGORI_UST_ID = " & ParentID
set objRs = objConn.Execute(strSql)

if Not objRs.EOF then
do while Not objRs.EOF
Response.Write " <tr>" & vbNewLine & _
" <td><img src=""bosluk.gif"" border=""0"" width=""" & 25 * intLevel & """ height=""1""><a href=""01.asp?id=" & objRs("KATEGORI_ID") & """ class=""link_01"">" & objRs("KATEGORI_AD") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine
subRecursive objRs("KATEGORI_ID")

intLevel + 1
objRs.MoveNext
loop
end if

if Not objRs Is Nothing then
objRs.Close
end if
set objRs = Nothing

end sub
%>

05-14-2009, 11:26 AM	#1 (permalink)
Constantine {♥_♥} sürgün..{♥_♥}	Psp Recursion İşlemi Konu : Recursion İşlemi Seviye : Üst Düzey Asp ile Kategoriler içeren Shop Makale Forum vb. script yazmak ve bunu profesyonel bir veritabanı mimarisi sonsuz kategori ve en son sistem bir uygulama yapmak istiyorlar ise mutlaka bu işlemi kullanmalıdırlar. hipernex.com hepsiburada.com ve bunlar gibi sitelerin kodlamaları asp.NET ile yapılmıştır ancak veritabanı mimarisi bu şekildedir... Bu konuda TR çok fazla bir kaynak bulamazsınız. Bu konuda araştırmak kafa yormanız için bu bir başlangıç olsun... Ekran çıktışı şöyle; Elbette bu çok farklı şekillerde kullanılır ben en basit halini yaptım. Kod: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title></title> <style type="text/css"> <!-- body { margin:0px; padding:0px; } A.link_01:link { font-family: Verdana Arial Helvetica sans-serif; font-size: 12px; font-weight:normal; color: #0077b5; text-decoration: none } A.link_01:visited { font-family: Verdana Arial Helvetica sans-serif; font-size: 12px; font-weight:normal; color: #0077b5; text-decoration: none } A.link_01:active { font-family: Verdana Arial Helvetica sans-serif; font-size: 12px; font-weight:normal; color: #0077b5; text-decoration: none } A.link_01:hover { font-family: Verdana Arial Helvetica sans-serif; font-size: 12px; font-weight:normal; color: #ffcc00; text-decoration: none } --> </style> <aaaa http-equiv="aaaaaaa-Type" aaaaaaa="text/html; charset=iso-8859-9"> </head> <body> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td align="center"> <table border="0" cellpadding="0" cellspacing="0" width="779"> <% dim strConn strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb") set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn subRecursive 0 0 objConn.Close Set objConn= Nothing %> </table> </td> </tr> </table> </body> </html> <% sub subRecursive(ParentID intLevel) dim objRs dim strSql strSql = "SELECT KATEGORI_ID KATEGORI_AD FROM tblKategori WHERE KATEGORI_UST_ID = " & ParentID set objRs = objConn.Execute(strSql) if Not objRs.EOF then do while Not objRs.EOF Response.Write " <tr>" & vbNewLine & _ " <td><img src=""bosluk.gif"" border=""0"" width=""" & 25 * intLevel & """ height=""1""><a href=""01.asp?id=" & objRs("KATEGORI_ID") & """ class=""link_01"">" & objRs("KATEGORI_AD") & "</a></td>" & vbNewLine & _ " </tr>" & vbNewLine subRecursive objRs("KATEGORI_ID") intLevel + 1 objRs.MoveNext loop end if if Not objRs Is Nothing then objRs.Close end if set objRs = Nothing end sub %>

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	UslanmaM	Cevaplar	Son Mesaj
Aşk; Bir (B)ölme İşlemi	CiCi_KizZ	Aşk Hikayeleri	0	02-14-2009 06:53 PM
Aşk; Bir (B)ölme İşlemi	TWEETY	Aşk Hikayeleri	0	01-30-2009 08:05 PM
Zor Toplamı İşlemi	aydinkurt	Zeka Soruları ve Bilmeceler	2	12-17-2008 07:39 PM
Aşk; Bir (B)ölme İşlemi	Los Galakticos	Amatör Aşk Şiirleri	0	07-22-2008 10:33 PM

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