PJBLOG二级分类“已解决”

lbwen

原帖由 笑傲天 于 2008-6-11 12:16 发表
回37楼,common/cache.asp，行 392这句
Set log_Tags=Conn.Execute("SELECT tag_id,tag_name,tag_sys,tag_count FROM blog_tag")
改为Set log_Tags=Conn.Execute("SELECT tag_id,tag_name,tag_count FROM blog_tag" ...

呵呵~谢谢。解决问题很及时，赞一个。

jacky1214

还是有错误哦,,编辑日志保存出错..cls_logAction.asp

jacky1214

Microsoft VBScript runtime ?펳 '800a000d'

Type mismatch

/class/cls_logAction.asp??А 778

保存编辑日志时出现的....

笑傲天

好像是PJblog2 动态文章保存的这句SQL="SELECT TOP 1 * FROM blog_Content WHERE log_ID=" & LogID出错，编辑日志代码还没有整理。

cyeehong

无法编辑保存日志

cyeehong

别外面通过文件对比工具对比1楼的cache代码与楼主提供的演示cache包存在几处不同之处。另外我的
cls_logAction.asp老是有错误，请帮忙看看

文件对比：       
'cls_logAction.asp
≠
cls_logAction.asp
-------------------------------------------------------------------------------------------------   
Category_code1=Category_code1&"&nbsp;├"&("<img
≠
Category_code1=Category_code1&" ├"&("<img
----------------------------------------------------------------------------------------------------------
alt=""""/></a><br/>")≠alt=""""/></a>
--------------------------------------------------------------------------------------------------------
'Response.Write("<option value='"&cateList&"'>&nbsp;&nbsp;&nbsp;│&nbsp;&nbsp;&nbsp;├"&log_Categorysub("cate_Name")&"&nbsp;["&log_Categorysub("cate_count")&"]&nbsp;&nbsp;</option>")
                        log_Categorysub.movenext
                        loop
                        log_Categorysub.close
                        set log_Categorysub=nothing
                end if
≠
log_Categorysub.movenext
   loop
   log_Categorysub.close
   set log_Categorysub=nothing
  end if
------------------------------------------------------------------------------------------------------
      title="""&Arr_Category(3,i)&""">"&Arr_Category(1,i)&"</a><br/>")
≠
title="""&Arr_Category(3,i)&""">"&Arr_Category(1,i)&"</a>")
-------------------------------------------------------------------------------------------------------
Category_code1=Category_code1&("<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/>")
                                                  ListSub(Arr_Category(0,i))
                                          end if
≠

Category_code1=Category_code1&("<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>
")
        end if
-------------------------------------------------------------------------------------------------------
else
                                                   Category_code1=Category_code1&("<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> <a href=""feed.asp?cateID="&Arr_Category(0,i)&""" title=""订阅该分类内容""><img src=""images/rss.png"" border=""0"" style=""margin:3px 4px -1px 0px;"" alt=""""/></a><br/>")
                                                   ListSub(Arr_Category(0,i))
                                          end if
≠
else
         Category_code1=Category_code1&("<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> <a href=""feed.asp?cateID="&Arr_Category(0,i)&""" title=""订阅该分类内容""><img src=""images/rss.png"" border=""0"" style=""margin:3px 4px -1px 0px;"" alt=""""/></a>
")
                end if
--------------------------------------------------------------------------------------------------------
end if
                                end if
                        Next
        end sub
≠

end if
    end if
    ListSub(Arr_Category(0,i))
   Next
end sub

[ 本帖最后由 cyeehong 于 2008-6-12 11:54 编辑 ]

笑傲天

回46#，cache代码是经过整理的，去掉注释和调试，下面的代码优化过。以帖出的为准。

cyeehong

放心了

cyeehong

二级分类树形条成功建立，但有问题：
    一：树形条无法展开与合并
    二：最重要的无法编辑与保存日志

笑傲天

找到对比工具了，通过对比，46#的cls_logAction.asp没有错，编辑日志还涉及其他文件，一时想不起来了，有点晕，汗