在 syscls/ks_refreshfunctioncls.asp,找到第1368 行左右

 If ListNumber = 0 Then                     '列出所有友情链接站点
      SqlStr = "Select LinkID,LinkType,SiteName,Description,Logo,AddDateFrom KS_Link" & Para
    Else
      SqlStr = "Select TOP " & ListNumber & " LinkID,LinkType,SiteName,Description ,Logo,AddDate From KS_Link" & Para
    End If

替换为

 If ListNumber = 0 Then                     '列出所有友情链接站点
      SqlStr = "Select LinkID,LinkType,SiteName,Description,Logo,AddDate,FolderID From KS_Link" & Para
    Else
      SqlStr = "Select TOP " & ListNumber & " LinkID,LinkType,SiteName,Description ,Logo,AddDate,FolderID From KS_Link" & Para
    End If

接下来再找到1517行开始

Case 3                '下拉列表        这里开始的代码到end function 替换为下面的代码
      .....

   .........

..........

  End Function

替换为

    Case 3                '下拉列表
      GetLinkList = "<select name=""FriendLink"" onchange=""if(this.options[this.selectedIndex].value!=''){window.open(this.options[this.selectedIndex].value,'_blank');}"">" & vbCrLf
      GetLinkList = GetLinkList &  "<option value=''>---" & Conn.Execute("Select FolderName From KS_LinkFolder Where FolderID=" & RSObj("FolderID"))(0) & "---</option>"
     Do While Not RSObj.EOF
       GetLinkList = GetLinkList & "<option value='" & Domain & "FriendLink/ToLink.asp?LinkID=" & RSObj(0) & "'>" & KSCMS.GotTopic(RSObj(2), TitleLen) & "</option>" & vbCrLf
       RSObj.MoveNext
     Loop
      GetLinkList = GetLinkList & "</select>" & vbCrLf
      RSObj.Close
      Set RSObj = Nothing
    End Select
  End Function