首页

Const AllowSecondDomain=true       '是否允许开启空间二级域名 true-开启 false-不开启

改为不开启就可正常访问，这么严重的BUY官方居然不处理.是不是不让二级域名访问啊.

错在57行这句

(domain1="www" and domain=replace(lcase(KS.Setting(2)),"http://",""))

只要domain1="www"就OK，就看官方怎么改了

临时解决办法来了

if Trim (domain1)="" or (domain1="www" and domain=replace(lcase(KS.Setting(2)),"http://","")) or (Request.ServerVariables("HTTP_HOST")="http://" & KS.Setting(2)) or ("http://" & lcase(Request.ServerVariables("HTTP_HOST"))=lcase(KS.Setting(2))) Then

  Call AppCls.HomePage() : Exit Sub

    Else

      '=====================这里定义其它系统非个人空间的二级域名转向，如论坛等=============================

      if instr(Request.ServerVariables("SERVER_NAME"),"bbs.38wl.com")>0 then

      response.redirect KS.GetDomain & "bbs/index.asp"

      elseif instr(Request.ServerVariables("SERVER_NAME"),"news.38wl.com")>0 then

      response.redirect KS.GetDomain & "news/"

      elseif instr(Request.ServerVariables("SERVER_NAME"),"help.38wl.com")>0 then

      response.redirect KS.GetDomain & "help/"

      end if

      '============================================================================

    End If

    if Trim(domain1)<>"" Then

     '=====================这里定义其它系统非个人空间的二级域名转向，如论坛等=============================

      if instr(Request.ServerVariables("SERVER_NAME"),"bbs.38wl.com")>0 then

      response.redirect KS.GetDomain & "bbs/index.asp"

      elseif instr(Request.ServerVariables("SERVER_NAME"),"news.38wl.com")>0 then

      response.redirect KS.GetDomain & "news/"

      elseif instr(Request.ServerVariables("SERVER_NAME"),"blog.38wl.com")>0 then

      response.redirect KS.GetDomain & "blog/"

      Else

        Call AppCls.HomePage() : Exit Sub

         end if

    End If

以官方修改为准

这是官方立马要解决的问题，不解决会跑许多新用户，首页都访问不了，谁还用