b.功能说明：一般生成1、4、5三个功能就可以全站展示了。
c.部分代码如下（生成函数，后台代码基本模块化了）
Function Get_class_navigation(SortName) '分类导航条
Dim TempRs,TempRs_1,filename,TemFromID,i
Set TempRs = Conn.Execute("Select SortID,FromID,sml from WWW654CN_Sort where Sort='" & SortName & "'")
if Not (TempRs.bof And TempRs.EOF) then
TemFromID=Split(TempRs("FromID"),"|")
for i=2 to UBound(TemFromID)
Set TempRs_1 = Conn.Execute("Select Sort,sml from WWW654CN_Sort where SortID="&TemFromID(i)&"")
if Not (TempRs_1.bof And TempRs_1.EOF) then
Get_class_navigation = Get_class_navigation&"＞<a href="""&TempRs_1("sml")&".htm"">"&TempRs_1("Sort")&"</a>"
end if
TempRs_1.Close
Set TempRs_1 = Nothing
next
Get_class_navigation=Get_class_navigation&"＞<a href="""&TempRs("sml")&".htm"">"&SortName&"</a>"
end if
TempRs.Close
Set TempRs = Nothing
Get_class_navigation="<a href=""../"">上网导航</a>"&Get_class_navigation
End Function
Function Get_WWW654CN_SORT_classlist(BIGid) '--------写出下级分类列表
set rs_classlist=server.createobject("adodb.recordset")
sql_classlist="select sortid,sort,reid,sml,sjsum from www654cn_SORT where sortid="&BIGid&""
rs_classlist.open sql_classlist,conn,1,1
Get_classlist=Get_classlist&"<ul>"&vbcrlf
Get_classlist=Get_classlist&"<li class=""open""><img class=""s"" src=""../css/s.gif"" alt=""展开|折叠"" /><a href=""index.htm"">"&rs_classlist("sort")&"</a> <span class=""unum"">("&rs_classlist("sjsum")&")</span>"
Get_classlist=Get_classlist&"<ul>"&vbcrlf
rs_classlist.close
sql_classlist="select sortid,sort,reid,sml,sjsum,queue,sortid from www654cn_SORT where reid="&BIGid&" order by queue,sortid"
rs_classlist.open sql_classlist,conn,1,1
do while not rs_classlist.eof
set rs_classlist_1=server.createobject("adodb.recordset")
