يقوم ASP بتنفيذ بنية شجرة

الكاتب：Eve Cole وقت التحديث：2025-04-09 16:48:02

توصية الضفدع الضفدع: يقوم ASP بتنفيذ اختيار بنية الأشجار من مدونة LodeTiancai

توصية ضفدع الكلمات الرئيسية: يقوم ASP بتنفيذ بنية شجرة

مصدر

<!-

------------ [Test] Script Table Generation -------------------------------------------------------------------------------------------------------------------

ifexists (SELECT*FROMDBO.SYSOBJECTSWHEREID = OBJECT_ID (n '[DBO].

قابلية للوصول [DBO]. [اختبار]

يذهب

CreateTable [DBO]. [اختبار] (

[id] [int] الهوية (1،1) Notnull ،

[str_note] [nvarchar] (50) collatechinese_prc_ci_asnull ،

[الأب_د] [int] null

) على [الابتدائية]

يذهب

<!-

************************* اختبار بيانات الاختبار **********************

[id] [str_note] [الأب_د]

[1] [كتب الكمبيوتر] [0]

[2] [تطوير البرمجيات] [1]

[3] [إصلاح الأجهزة] [1]

[4] [ASP] [2]

[5] [PHP] [2]

[6] [JSP] [2]

[7] [HTML] [2]

[8] [إصلاح العرض] [3]

[9] [إصلاح اللوحة الأم] [3]

[10] [إصلاح بطاقة الرسومات] [3]

[11] [أساسيات VBS] [4]

[12] [أساسيات HTML] [4]

[13] [أساسيات اللغط] [4]

[14] [DO DISTER] [11]

[15] [للبيان] [11]

[16] [حدد بيان] [11]

*************************************************************

<٪

Dimstrconn ، Conn ، RS ، SQL

strconn = "driver = {sqlserver} ؛ server = localHost ؛ database = wawavote ؛ uid = sa ؛ pwd = sa ؛"

ديمي

أنا = 0

FunctionShowTree (ParentId)

i = i+1

Dimrs

setRs = server.createObject ("adodb.recordset")

sql = "selectId ، str_note ، adpr_id ، (selectStr_noteFromTestT2Wheret2.Id = t1.father_id) AsparentNameFromTestT1wheret1.father_id =" & cint (parentid)

Rs.Opensql ، Strconn ، 1،1

dowhilenotrs.eof

forj = 1toi

الرد. write ("---")

Response.write (Rs (1) و "[" & rs (3) & "] <br>")

showtreers (0)

أنا = I-1

Rs.Movenext

حلقة

Rs.Close: setRs = لا شيء

الوظيفية

subshowtable (الجدول)

Dimrs

setRs = server.createObject ("adodb.recordset")

SQL = "SELECT*from" & trim (جدول)

Rs.Opensql ، Strconn ، 1،1

fori = 0tors.fields.count-1

respons.write ("["

الرد. write ("<br>")