rWanBoy 's BLOG [Welcome to my Blog]记录着点点滴滴，保存着许许多多
动网博客bokeindex.asp 355行出错解决办法
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 "