打开plus/map.asp

找到

Sub SubMapList2(TN)
    Dim Node,K,TJ,SpaceStr
    If IsOBject(ClassXml) Then
      For Each Node In ClassXML.DocumentElement.SelectNodes("class[@ks26=1][@ks13='" & TN &"']")
         if ks.chkclng(ks.c_s(Node.SelectSingleNode("@ks12").text,22))=1 then
                      TreeStr = TreeStr & "<span>" & KS.GetClassNP(Node.SelectSingleNode("@ks0").text) & "</span>"
      end if
      Next
  End If
  End Sub

改为

Sub SubMapList2(TN)
    Dim Node,K,TJ,SpaceStr
    If IsOBject(ClassXml) Then
      For Each Node In ClassXML.DocumentElement.SelectNodes("class[@ks26=1][@ks13='" & TN &"']")
         if ks.chkclng(ks.c_s(Node.SelectSingleNode("@ks12").text,21))=1 then
                      TreeStr = TreeStr & "<span>" & KS.GetClassNP(Node.SelectSingleNode("@ks0").text) & "</span>"
      end if
      Next
  End If
  End Sub

即把22改成21

相互学习，相互交流。

群号是：190419168