关于麻将版CL4.2专题问题

luxun252

专题我只调用了10条，结果现在全部跑出来了，麻烦麻将啥时候帮忙解决下，谢谢

另外，伪静态的商城版面和视频版面错误。有空的话就多辛苦下，非常感谢。

luxun252

专题的地方改好了，参照小锣的改：
Cl_Function_Public.asp
把

2. Dim XmlDom, sTemp, Node

Dim XmlDom, sTemp, Node

改为

2. Dim XmlDom, sTemp, Node,ic
3. ic=1

Dim XmlDom, sTemp, Node,ic ic=1

把

1. sTemp = sTemp & "<li><a href=""" & Cl.WebDir & "ShowSpecial.asp?SpecialID=" & Node.SelectSingleNode("@specialid").text & """>" & Node.SelectSingleNode("@specialname").text & "</a></li><br />"
2.     end if
4.    Next

复制代码

改为
  

1. else
2.      sTemp = sTemp & "<li><a href=""" & Cl.WebDir & "ShowSpecial.asp?SpecialID=" & Node.SelectSingleNode("@specialid").text & """>" & Node.SelectSingleNode("@specialname").text & "</a></li><br />"
3.     end if
4.     ic=ic+1
5.     If ic > topnum Then Exit for
6.    Next

复制代码

1. sTemp = sTemp & "<li><a href=""" & Cl.WebDir & Cl.Channel.selectSingleNode("@channeldir").text & "/ShowSpecial.asp?SpecialID=" & Node.SelectSingleNode("@specialid").text & """>" & Node.SelectSingleNode("@specialname").text & "</a></li><br />"
2.      end if
3.     end if
5.    Next

复制代码

改为

1.   sTemp = sTemp & "<li><a href=""" & Cl.WebDir & Cl.Channel.selectSingleNode("@channeldir").text & "/ShowSpecial.asp?SpecialID=" & Node.SelectSingleNode("@specialid").text & """>" & Node.SelectSingleNode("@specialname").text & "</a></li><br />"
2.      end if
3.     end if
4.     ic=ic+1
5.     If ic > topnum Then Exit for
6.    Next
7.   End if

复制代码

完成

lj4360363

帮顶了

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢