蓝雨 发表于 2007-8-29 22:50:00

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

<p>第一步:<br/>编辑index.asp<br/>找到 \'创建圈子调用缓存<br/>Sub CreatedIndivGroup<br/>修改调用贴子代码,我的是四栏,所以有四个,大家可以根据自己的需要增加或减少<br/> 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\")<br/> Set Node = Dvbbs.RecordsetToxml(Rs,\"row\",\"newpost\")<br/> IndivGroupXMLDom.documentElement.appendChild(Node.documentElement.cloneNode(True))<br/> Rs.Close<br/>第二步:<br/>还是index.asp文件<br/>找到:<br/>\'插入圈子信息<br/>\'If Not IsObject(Application(Dvbbs.CacheName&\"_indivgroup\")) Then<br/> Call CreatedIndivGroup<br/>\'Else<br/> \'两个小时更新一次<br/>\' If Not Application(Dvbbs.CacheName&\"_indivgroup\") Is Nothing Then<br/>\' If DateDiff(\"m\",Now(),Cdate(Application(Dvbbs.CacheName&\"_indivgroup\").documentElement.getAttribute(\"datecreated\")))>10 Then<br/>\' Call CreatedIndivGroup<br/>\' End If<br/>\' Else<br/>\' Call CreatedIndivGroup<br/>\' End If<br/>\'End If<br/>XMLDom.documentElement.appendChild(Application(Dvbbs.CacheName&\"_indivgroup\").documentElement.cloneNode(True))<br/>按我的一样,注释掉,只保留下面二行,这样做的目的是实时更新发贴,大家也可以不注释,调用缓存,设置多长时间更新一次<br/> Call CreatedIndivGroup<br/>XMLDom.documentElement.appendChild(Application(Dvbbs.CacheName&\"_indivgroup\").documentElement.cloneNode(True))</p><p>第三步:<br/>修改风格模板:page_index<br/>用搜索找到:最新创建圈子<br/>修改方法参考如下:大家琢磨下,因为我的修改了好多地方,所以跟大家的不太一样,不过参考下面的方法:<br/>注意样式:<li style=\"line-height:24px;height:24px;overflow-y: hidden; list-style-type:square\">,否则显示不整齐,会换行影响美观<br/><table cellpadding=\"5\" cellspacing=\"1\" align=\"center\" class=\"tableborder1\" style=\"margin-top:-4px;\"><br/><tr><th width=\"25%\">最新招聘信息</th><th width=\"25%\">最新求职信息</th><th>最新发表文章</th><th width=\"25%\">版主热力推荐</th></tr><br/><tr><br/> <td class=\"tablebody1\" align=\"left\" style=\"vertical-align:top;\"><br/> <xsl:for-each select=\"/BoardList/indivgroup/newjob/row\"><br/> <li style=\"line-height:24px;height:24px;overflow-y: hidden; list-style-type:square\"><br/> <a href=\"<a href=\"mailto:dispbbs.asp?BoardID={@boardid}&amp;ID={@topicid}&amp;page=1\"><xsl:value-of\">dispbbs.asp?BoardID={@boardid}&amp;ID={@topicid}&amp;page=1\"><xsl:value-of</a> select=\"@title\"/></a><br/> </li><br/> </xsl:for-each><br/> </td><br/> <td class=\"tablebody1\" align=\"left\" style=\"vertical-align:top;\"><br/> <xsl:for-each select=\"/BoardList/indivgroup/newresume/row\"><br/> <li style=\"line-height:24px; height:24px;overflow-y: hidden;list-style-type:square\"><br/> <a href=\"<a href=\"mailto:dispbbs.asp?BoardID={@boardid}&amp;ID={@topicid}&amp;page=1\"><xsl:value-of\">dispbbs.asp?BoardID={@boardid}&amp;ID={@topicid}&amp;page=1\"><xsl:value-of</a> select=\"@title\"/></a><br/> </li><br/> </xsl:for-each><br/> </td><br/> <td class=\"tablebody1\" align=\"left\" style=\"vertical-align:top;\"><br/> <xsl:for-each select=\"/BoardList/indivgroup/newpost/row\"><br/> <li style=\"line-height:24px;height:24px;overflow-y: hidden; list-style-type:square\"><br/> <a href=\"<a href=\"mailto:dispbbs.asp?BoardID={@boardid}&amp;ID={@topicid}&amp;page=1\"><xsl:value-of\">dispbbs.asp?BoardID={@boardid}&amp;ID={@topicid}&amp;page=1\"><xsl:value-of</a> select=\"@title\"/></a><br/> </li><br/> </xsl:for-each><br/> </td><br/> <td class=\"tablebody1\" align=\"left\" style=\"vertical-align:top;\"><br/> <xsl:for-each select=\"/BoardList/indivgroup/newrecomment/row\"><br/> <li style=\"line-height:24px;height:24px;overflow-y: hidden; list-style-type:square\"><br/> <a href=\"<a href=\"mailto:dispbbs.asp?BoardID={@boardid}&amp;ID={@topicid}&amp;page=1\"><xsl:value-of\">dispbbs.asp?BoardID={@boardid}&amp;ID={@topicid}&amp;page=1\"><xsl:value-of</a> select=\"@title\"/></a><br/> </li><br/> </xsl:for-each><br/> </td><br/></tr><br/></table></p>
页: [1]
查看完整版本: 将首页圈子调用改成贴子调用