将首页圈子调用改成贴子调用

蓝雨

第一步：
编辑index.asp
找到 \'创建圈子调用缓存
Sub CreatedIndivGroup
修改调用贴子代码，我的是四栏，所以有四个，大家可以根据自己的需要增加或减少
Set Rs = Dvbbs.Execute(\"Select Top 5 TopicID,Title,BoardID,PostUserName,LastPostTime,hits From Dv_Topic Where TopicID>0 and isSmsTopic=0 and BoardID<>444 Order By TopicID Desc\")
Set Node = Dvbbs.RecordsetToxml(Rs,\"row\",\"newpost\")
IndivGroupXMLDom.documentElement.appendChild(Node.documentElement.cloneNode(True))
Rs.Close
第二步：
还是index.asp文件
找到：
\'插入圈子信息
\'If Not IsObject(Application(Dvbbs.CacheName&\"_indivgroup\")) Then
Call CreatedIndivGroup
\'Else
\'两个小时更新一次
\' If Not Application(Dvbbs.CacheName&\"_indivgroup\") Is Nothing Then
\' If DateDiff(\"m\",Now(),Cdate(Application(Dvbbs.CacheName&\"_indivgroup\").documentElement.getAttribute(\"datecreated\")))>10 Then
\' Call CreatedIndivGroup
\' End If
\' Else
\' Call CreatedIndivGroup
\' End If
\'End If
XMLDom.documentElement.appendChild(Application(Dvbbs.CacheName&\"_indivgroup\").documentElement.cloneNode(True))
按我的一样，注释掉，只保留下面二行，这样做的目的是实时更新发贴，大家也可以不注释，调用缓存，设置多长时间更新一次
Call CreatedIndivGroup
XMLDom.documentElement.appendChild(Application(Dvbbs.CacheName&\"_indivgroup\").documentElement.cloneNode(True))

第三步：
修改风格模板：page_index
用搜索找到：最新创建圈子
修改方法参考如下：大家琢磨下，因为我的修改了好多地方，所以跟大家的不太一样，不过参考下面的方法：
注意样式：

，否则显示不整齐，会换行影响美观

最新招聘信息	最新求职信息	最新发表文章	版主热力推荐
dispbbs.asp?BoardID={@boardid}&ID={@topicid}&page=1"> select=\"@title\"/>	dispbbs.asp?BoardID={@boardid}&ID={@topicid}&page=1"> select=\"@title\"/>	dispbbs.asp?BoardID={@boardid}&ID={@topicid}&page=1"> select=\"@title\"/>	dispbbs.asp?BoardID={@boardid}&ID={@topicid}&page=1"> select=\"@title\"/>