رابط التحميل: http://www.knowsky.com/download/treemenu.rar
العنوان:
<%
تعيين conn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr
قائمة الوظائف (المعرف)
تعيين rs=server.CreateObject("adodb.recordset")
sql="اختر * من القائمة حيث id1="&id&" اطلب حسب عنوان url،id"
rs.open SQL، كون، 1،1
إذا كان rs.recordcount=0 ثم
rs. Close
تعيين RS=لا شيء
وظيفة الخروج
نهاية إذا
Response.write("<table border='0' cellpacing='0' cellpadding='0'>")
أنا = 1
في حين لا rs.eof
إذا len(rs("url"))>0 إذن
إذا كنت = rs.recordcount ثم
نوع القائمة = "ملف 1"
آخر
نوع القائمة = "ملف"
نهاية إذا
Menuname="<a href='"&rs("url")&"' target='_blank'>"&rs("menuname")&"</a>"
على الماوس = ""
آخر
إذا كنت = rs.recordcount ثم
نوع القائمة = "القائمة 3"
نوع القائمة = "list1"
onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu3';}else {style.display='';this.className='menu4';}"
آخر
نوع القائمة = "القائمة 1"
نوع القائمة = "قائمة"
onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu1';}else {style.display='';this.className='menu2';}"
نهاية إذا
اسم القائمة=RS("menuname")
نهاية إذا
%>
<تر>
<td class="<%=menutype%>" onMouseUp="<%= onmouseup%>"><%= اسم القائمة%></td>
</tr>
<%if len(rs("url"))<3 ثم%>
<tr id="id<%= rs("id")%>" style="display:none">
<td class="<%= listtype%>"><%menu(rs("id"))%></td>
</tr>
<%
نهاية إذا
rs.movenext
ط=ط+1
com.wind
الاستجابة.كتابة("</table>")
rs. Close
تعيين RS=لا شيء
وظيفة النهاية
%>
<أتش تي أم أل>
<الرأس>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>=============http://www.downcodes.com</title>
<نمط النوع = "نص/CSS">
<!--
.القائمة1 {
صورة الخلفية: url(folder1.gif);
تكرار الخلفية: عدم التكرار؛
الارتفاع: 17 بكسل؛
اليسار: 32 بكسل؛
المساحة المتروكة لليسار: 32 بكسل؛
المؤشر: يد؛
}
.menu2 {
صورة الخلفية: url(folder2.gif);
تكرار الخلفية: عدم التكرار؛
الارتفاع: 17 بكسل؛
اليسار: 32 بكسل؛
المساحة المتروكة لليسار: 32 بكسل؛
المؤشر: يد؛
}
.القائمة3 {
صورة الخلفية: url(folder3.gif);
تكرار الخلفية: عدم التكرار؛
الارتفاع: 17 بكسل؛
اليسار: 32 بكسل؛
المساحة المتروكة لليسار: 32 بكسل؛
المؤشر: يد؛
}
.القائمة4 {
صورة الخلفية: url(folder4.gif);
تكرار الخلفية: عدم التكرار؛
الارتفاع: 17 بكسل؛
اليسار: 32 بكسل؛
المساحة المتروكة لليسار: 32 بكسل؛
المؤشر: يد؛
}
.قائمة {
المساحة المتروكة لليسار: 20 بكسل؛
صورة الخلفية: url(list.gif);
تكرار الخلفية: تكرار ص؛
}
.list1 {
المساحة المتروكة لليسار: 20 بكسل؛
}
.ملف {
صورة الخلفية: url(file.gif);
تكرار الخلفية: عدم التكرار؛
الارتفاع: 16 بكسل؛
المؤشر: يد؛
المساحة المتروكة لليسار: 32 بكسل؛
}
ملف 1 {
صورة الخلفية: url(file1.gif);
تكرار الخلفية: عدم التكرار؛
الارتفاع: 16 بكسل؛
المؤشر: يد؛
المساحة المتروكة لليسار: 32 بكسل؛
}
جسم {
حجم الخط: 9pt؛
اللون: #000000؛
لون الخلفية: #FFFFFF؛
}
أ: الرابط {
حجم الخط: 9pt؛
اللون: #000000؛
زخرفة النص: لا شيء؛
}
أ: زار {
حجم الخط: 9pt؛
اللون: #000000؛
زخرفة النص: لا شيء؛
}
أ:تحوم {
حجم الخط: 9pt؛
اللون: #0000FF؛
زخرفة النص: لا شيء؛
الموقف: نسبي؛
اليمين: 1 بكسل؛
أسفل: 1 بكسل؛
}
أ:نشط {
حجم الخط: 9pt؛
اللون: #000000؛
زخرفة النص: لا شيء؛
}
-->
</نمط>
</الرأس>
<الجسم>
<a href="http://www.downcodes.com/" target="_blank">http://www.knowsky.com/</a> المزيد من المعلومات管理</a>》<br>
<%
القائمة 0
conn. Close
تعيين كون = لا شيء
%>
</الجسم>
</html>