توصية الضفدع الضفدع: يقوم 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>")
dowhilenotrs.eof
fori = 0tors.fields.count-1
Response.write ("[" & rs.fields (i) .value & "]")
التالي
الرد. write ("<br>")
Rs.Movenext
حلقة
Rs.Close: setRs = لا شيء