用dw打开

ks_cls/kesion.label.functioncls.asp

找到

    Function GetXCUrl()
       GetXCUrl=DomainStr & "space/showphoto.asp?xcid="& Node.SelectSingleNode("@id").text & "&username=" &  Node.SelectSingleNode("@username").text
    End Function

改成

      Function GetXCUrl()
       GetXCUrl=DomainStr & "space/showphoto.asp?" & Node.SelectSingleNode("@username").text
 & "/showalbum/"& Node.SelectSingleNode("@id").text

     End Function

 Function GetXCUrl()
       GetXCUrl=DomainStr & "space/showphoto.asp?xcid="& Node.SelectSingleNode("@id").text & "&username=" &  Node.SelectSingleNode("@username").text
    End Function

把标红的代码删除就可以了，经过试验的

----------马哥

按照您说的改了，不行呀，提示：

Microsoft VBScript 编译器错误 错误 '800a0400'

缺少语句

/KS_Cls/Kesion.Label.FunctionCls.asp，行 2602

& "/showalbum/"& Node.SelectSingleNode("@id").text