直接打开space/index.asp，加一句代码就行了

  Public Sub Kesion()
      If KS.SSetting(0)=0 Then KS.Die "<script>alert('对不起，本站点关闭空间站点功能!');window.close();</script>"
      Dim QueryStrings:QueryStrings=Request.ServerVariables("QUERY_STRING")
   'ks.die QueryStrings
   If QueryStrings<>"" Then

     if ks.c("username")="" then KS.Die "<script>alert('登录后才要吧访问!');location.href='" & KS.GetDomain &"';</script>"
     QueryStrings=KS.UrlDecode(QueryStrings)
     Dim SApp:Set SApp=New SpaceApp
     SApp.Show(QueryStrings)
     If SApp.FoundSpace=false Then KS.Die "<script>alert('该用户没有开通空间!');location.href='" & KS.GetDomain &"';</script>"
     Set SApp=Nothing
   Else
    Dim FileContent
    Set KSR = New Refresh
    FileContent = KSR.LoadTemplate(KS.SSetting(7))
    FCls.RefreshType = "SpaceINDEX" '设置刷新类型，以便取得当前位置导航等
    FCls.RefreshFolderID = "0" '设置当前刷新目录ID 为"0" 以取得通用标签
    If Trim(FileContent) = "" Then FileContent = "空间首页模板不存在!"
    FileContent=KSR.KSLabelReplaceAll(FileContent)
          Set KSR=Nothing
    KS.Echo FileContent
     End If
  End Sub

加上面红色的那句

非常感谢