多看下置顶帖

http://bbs.kesion.com/forumthread-170389.html

打开ks_cls/kesion.spacecls.asp,找到865行左右

'最新访客
  Function GetVisitor()
     Dim user_face,Visitors,str,XML,Node
  Dim RS:Set RS=Conn.Execute("Select top 10 b.userid,b.sex,a.Visitors,b.userface,a.adddate,b.isonline from KS_BlogVisitor a inner join KS_User b on a.Visitors=b.username where a.username='" & UserName & "' order by a.adddate desc ,id desc")
    If Not RS.Eof Then Set XML=KS.RsToXml(Rs,"row","")
    RS.Close:Set RS=Nothing
       If IsObject(XML) Then
      For Each Node In XML.DocumentElement.SelectNodes("row")
        user_face=Node.SelectSingleNode("@userface").text
     Visitors =Node.SelectSingleNode("@visitors").text
     If user_face="" or isnull(user_face) then
      if Node.SelectSingleNode("@sex").text="男" then  user_face="images/face/0.gif" else user_face="images/face/girl.gif"
     End If
           If lcase(left(user_face,4))<>"http" and left(user_face,1)<>"/" then user_face=KS.Setting(2) & "/" & user_face
            str=str & "<li><a class='b' href='" & KS.GetSpaceUrl(Node.SelectSingleNode("@userid").text) & "' target='_blank'><img src='" & User_face & "' border='0'></a><br/><a href='" & KS.GetSpaceUrl(Node.SelectSingleNode("@userid").text) & "' target='_blank'>" & Visitors & "</a><br />状态:"
      If Node.SelectSingleNode("@isonline").Text="1" Then str=str & "<font color=red>在线</font>" Else str=str & "离线"
      str=str & "</li>"
      Next
      XML=Empty : Set Node=Nothing
    End If
   GetVisitor=str
  End Function

注意上面红色的为改动的地方