用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