打开ks_cls/kesion.label.functioncls.asp

找到

    Case 2                '横向列表
       echoln " <table width=""100%"" cellspacing=""2""> "
      If Not IsObject(XML) Then
      If FolderID = 0 Then
         If num = 0 Then NoLinkRowNumber = 1 Else NoLinkRowNumber = num \ Col
         For I = 1 To NoLinkRowNumber
         echoln "<tr align=""center"">"
         For k = 1 To Col
        If LinkType = 1 Then
          echo "<td width=""" & WidthStr & """><a href=""" & FriendLinkRegStr & """ target=""_blank"" title=""点击申请""><Img src=""" & DomainStr & "Images/Default/nologo.gif"" alt=""点击申请"" border=""0""/></a></td>"
        Else
          echo "<td width=""" & WidthStr & """ nowrap=""nowrap""><a href=""" & FriendLinkRegStr & """ target=""_blank"" title=""点击申请"">您的位置</a></td>"
        End If
         Next
         echoln "</tr>"
         Next
      End If
    Else
        Set DocNode=XML.DocumentElement.SelectNodes("row")
              TotalNum=DocNode.length
        For M=0 To TotalNum-1
       If Col = 1 Then echoln "<tr align=""center"">" Else echoln "<tr>"
       For k = 1 To Col
           Set Node=DocNode.item(n)
        SiteName = Node.SelectSingleNode("@sitename").text
        If Show=0 Then Url=Node.SelectSingleNode("@url").text Else Url=DomainStr & "plus/link/To?" & Node.SelectSingleNode("@linkid").text
       
        TitleStr = " title=""网站名称:" & SiteName & "&#13;&#10;添加日期:" & Node.SelectSingleNode("@adddate").text & "&#13;&#10;网站描述:" & Node.SelectSingleNode("@description").text & """"
       
        If Node.SelectSingleNode("@linktype").text = "0" Then
       echo "<td width=""" & WidthStr & """ nowrap=""nowrap""><a id=""link" & Node.SelectSingleNode("@linkid").text & """ href=""" & URL & """ target=""_blank""" & TitleStr & ">" & KS.GotTopic(SiteName, T_Len) & "</a></td>"
        Else
       echo "<td width=""" & WidthStr & """><a id=""link" & Node.SelectSingleNode("@linkid").text & """ href=""" & URL & """ target=""_blank""><img src=""" & Node.SelectSingleNode("@logo").text & """" & TitleStr & " alt=""" & SiteName & """ width=""" & LogoWidth & """ height=""" & LogoHeight & """ border=""0""/></a></td>"
        End If
        N = N+1 : If N>=TotalNum Then Exit For
       Next
       '不到Col个单元格,则进行补空
       for  k=k+1 to Col
       If LinkType = 1 Then
           echo "<td width=""" & WidthStr & """><a href=""" & FriendLinkRegStr & """ target=""_blank""  title=""点击申请""><Img src=""" & DomainStr & "Images/Default/nologo.gif"" alt=""点击申请"" border=""0""/></a></td>"
        Else
           echo "<td width=""" & WidthStr & """ nowrap=""nowrap""><a href=""" & FriendLinkRegStr & """ target=""_blank"" title=""点击申请"">您的位置</a></td>"
       End If
      next
      echoln "</tr>"
      N = N+1 : If N>=TotalNum Then Exit For
       Next
      End If
    echo "</table>"

把上面红色的N= n+1 :删除