打开common/cache.asp,找到以下内容: '========================日志分类缓存=========================到'========================End Sub=============================== 之间改成以下内容即可,希望对你有帮助
'========================日志分类缓存=========================
Dim Category_code
Sub CategoryList(ByVal action) '日志分类
'写入日志分类
'action=0 横向菜单 action=1 树状菜单 action=2重建分类
'--------------写入日志分类缓存------------------
Dim Arr_Category,i
IF Not IsArray(Application(CookieName&"_blog_Category")) or action=2 Then
Dim log_Category
TempVar=""
SQL="SELECT cate_ID,cate_Name,cate_Order,cate_Intro,cate_OutLink,cate_URL,cate_icon,cate_count,cate_Lock,cate_local,cate_Secret FROM blog_Category ORDER BY cate_Order ASC"
Set log_Category=Conn.Execute(SQL)
SQLQueryNums=SQLQueryNums+1
if log_Category.eof or log_Category.bof then
ReDim Arr_Category(0,0)
else
Arr_Category=log_Category.GetRows()
end if
Set log_Category=Nothing
Application.Lock
Application(CookieName&"_blog_Category")=Arr_Category
Application.UnLock
Else
Arr_Category=Application(CookieName&"_blog_Category")
End IF
Dim Category_Len,Menu_Diver
'--------------输出日志横向菜单------------------
if action=0 then
Menu_Diver=""
Response.Write("<div id=""menu""><div id=""Left""></div><div id=""Right""></div><ul><li class=""menuL""></li>")
if ubound(Arr_Category,1)=0 then Response.Write("<li class=""menuR""></li></ul></div>"):exit Sub
Category_Len=ubound(Arr_Category,2)
For i=0 to Category_Len
if int(Arr_Category(9,i))=0 or int(Arr_Category(9,i))=1 then
Response.Write(Menu_Diver)
if Arr_Category(4,i) then
if cbool(Arr_Category(10,i)) then
if stat_ShowHiddenCate or stat_Admin then Response.Write("<li><a class=""menuA"" href="""&Arr_Category(5,i)&""" title="""&Arr_Category(3,i)&""">"&Arr_Category(1,i)&"</a></li>")
else
Response.Write("<li><a class=""menuA"" href="""&Arr_Category(5,i)&""" title="""&Arr_Category(3,i)&""">"&Arr_Category(1,i)&"</a></li>")
end if
else
if cbool(Arr_Category(10,i)) then
if stat_ShowHiddenCate or stat_Admin then Response.Write("<li><a class=""menuA"" href=""default.asp?cateID="&Arr_Category(0,i)&""" title="""&Arr_Category(3,i)&""">"&Arr_Category(1,i)&"</a></li>")
else
Response.Write("<li><a class=""menuA"" href=""default.asp?cateID="&Arr_Category(0,i)&""" title="""&Arr_Category(3,i)&""">"&Arr_Category(1,i)&"</a></li>")
end if
end if
Menu_Diver="<li class=""menuDiv""></li>"
end if
Next
Response.Write("<li class=""menuR""></li></ul></div>")
end if
if action=1 then
Category_code=""
if ubound(Arr_Category,1)=0 then exit Sub
Category_Len=ubound(Arr_Category,2)
For i=0 to Category_Len
if int(Arr_Category(9,i))=0 or int(Arr_Category(9,i))=2 then
if Arr_Category(4,i) then
if cbool(Arr_Category(10,i)) then
if stat_ShowHiddenCate or stat_Admin then Category_code=Category_code&("<img src="""&Arr_Category(6,i)&""" border=""0"" style=""margin:3px 4px -4px 0px;"" alt="""&Arr_Category(3,i)&"""/><a class=""CategoryA"" href="""&Arr_Category(5,i)&""" title="""&Arr_Category(3,i)&""">"&Arr_Category(1,i)&"</a><br/>")
else
Category_code=Category_code&("<img src="""&Arr_Category(6,i)&""" border=""0"" style=""margin:3px 4px -4px 0px;"" alt="""&Arr_Category(3,i)&"""/><a class=""CategoryA"" href="""&Arr_Category(5,i)&""" title="""&Arr_Category(3,i)&""">"&Arr_Category(1,i)&"</a><br/>")
end if
else
if cbool(Arr_Category(10,i)) then
if stat_ShowHiddenCate or stat_Admin then Category_code=Category_code&("<img src="""&Arr_Category(6,i)&""" border=""0"" style=""margin:3px 4px -4px 0px;"" alt="""&Arr_Category(3,i)&"""/><a class=""CategoryA"" href=""default.asp?cateID="&Arr_Category(0,i)&""" title="""&Arr_Category(3,i)&""">"&Arr_Category(1,i)&" ["&Arr_Category(7,i)&"]</a> <br/>")
else
Category_code=Category_code&("<img src="""&Arr_Category(6,i)&""" border=""0"" style=""margin:3px 4px -4px 0px;"" alt="""&Arr_Category(3,i)&"""/><a class=""CategoryA"" href=""default.asp?cateID="&Arr_Category(0,i)&""" title="""&Arr_Category(3,i)&""">"&Arr_Category(1,i)&" ["&Arr_Category(7,i)&"]</a><br/>")
end if
end if
end if
Next
end if
End Sub
'========================End Sub===============================