rWanBoy 's BLOG

Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: 'DvBoke.SysChatCat.selectSingleNode(...)' /BokeIndex.asp，行 355 修改方法： QUOTE: DvBoke_Sys.SqlStr = "Select Top 8 TopicID,CatID,sCatID,UserID,UserName,Title,PostTime,Child,Hits,IsView,IsLock,sType,LastPostTime,IsBest From [Dv_Boke_Topic] where sType<>2 and IsLock<3 Order By TopicID desc " 改为 QUOTE: DvBoke_Sys.SqlStr = "SELECT Top 8 TopicID, CatID, sCatID, UserID, UserName, Title, PostTime, Child, Hits, IsView, IsLock, sType, LastPostTime, IsBest From [Dv_Boke_Topic] WHERE NOT sType = 2 AND IsLock < 3 AND sCatID IN (SELECT sCatID FROM [Dv_Boke_SysCat] WHERE sType = 1) ORDER BY TopicID DESC" 同样的将 QUOTE: DvBoke_Sys.SqlStr = "Select Top 8 PostID,BokeUserID,CatID,sCatID,ParentID,RootID,UserID,UserName,Title, Content,JoinTime From [Dv_Boke_Post] where ParentID>0 Order By PostID desc " 改为 QUOTE: DvBoke_Sys.SqlStr = "Select Top 8 PostID,BokeUserID,CatID,sCatID,ParentID,RootID,UserID,UserName,Title, Content,JoinTime From [Dv_Boke_Post] where NOT stype=2 And Islock<3 And ScatID IN (SELECT sCatID FROM [Dv_Boke_SysCat] WHERE sType = 1) Order By PostID desc "