Do While Not RS.EOF
              
        if not isnumeric(mid(RS(0),3,3)) then
          GetNavigation = GetNavigation & "  <li"&KS.GetCssID(LIID)&KS.GetCss(LICss)&">" & "<a " & KS.GetCss(T_Css) & " href=""" & RS(2) & """  " & KS.G_O_T_S(OpenType) & ">" & Trim(RS(1)) & "</a></li>"
        else
        GetNavigation = GetNavigation & "  <li"&KS.GetCssID(LIID)&KS.GetCss(LICss)&">" & "<a " & KS.GetCss(T_Css) & " href=""" & KS.GetFolderPath(RS(0)) & """  " & KS.G_O_T_S(OpenType) & ">" & Trim(RS(1)) & "</a></li>"
        end if
          RS.MoveNext
          If RS.EOF Then Exit do
         Loop

请问版主在这while中如何判断是当前页，如果可以判断，那么用户点到任何一个页面中就可以生成指定的样式了