• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    KesionCMSV4.0 个人空间二级域名转向处理程序
    复制代码 代码如下:

    <!--#include file="conn.asp"-->
    <!--#include file="KS_Cls/KS.PublicCls.asp"-->
    <%
    '=============================================
    'KesionCMSV4.0 个人空间二级域名转向处理程序
    '=============================================
    '****************************************************
    ' Software name:Kesion CMS 4.0
    ' Email: service@kesion.com . QQ:111394,9537636
    ' Web: http://www.kesion.com http://www.kesion.cn
    ' Copyright (C) Kesion Network All Rights Reserved.
    '****************************************************
    Dim KSCls
    Set KSCls = New SiteIndex
    KSCls.Kesion()
    Set KSCls = Nothing

    Class SiteIndex
            Private KS
            Private From,gourl,sdomain,title,username
            Private Sub Class_Initialize()
             If (Not Response.IsClientConnected)Then
                Response.Clear
                Response.End
             End If
              Set KS=New PublicCls
            End Sub
            Private Sub Class_Terminate()
             Call CloseConn()
             Set KS=Nothing
            End Sub
            Public Sub Kesion()
            From = LCase(Request.ServerVariables("HTTP_HOST"))
            sdomain = LCase(KS.SSetting(15))
            sdomain = Replace(sdomain,"http://","")
            sdomain = Replace(sdomain,"/","")

            
            dim domain1,domain2
                domain = LCase (from)
                domain = Replace (domain,"http://","")
                domain = Replace (domain,"/","")

                if sdomain=domain and sdomain<>"" then
                  title=KS.Setting(1) & "-个人空间" 
                  gourl="space/index.asp"
                else
                 domain1= Replace (Left (domain,InStr (domain,".")),".","")
                 if Trim (domain1)="" or domain1="www" Then Response.Redirect("index.asp"):Response.End
                 dim rs:set rs=conn.execute("select username,blogname from ks_blog where [domain]='" & KS.R(domain1) & "'")
                 if rs.eof and rs.bof then
                  rs.close:set rs=nothing

                  
                  '=====================这里定义其它系统非个人空间的二级域名转向,如论坛等=============================
                  if instr(Request.ServerVariables("SERVER_NAME"),"bbs.kesion.com")>0 then
                     response.redirect "bbs/index.asp"
                  elseif instr(Request.ServerVariables("SERVER_NAME"),"news.kesion.com")>0 then
                     response.redirect "news/"
                  elseif instr(Request.ServerVariables("SERVER_NAME"),"help.kesion.com")>0 then
                     response.redirect "help/"
                  else
                   response.redirect "index.asp"
                  end if
                 '============================================================================

                  exit sub
                 end if
                 title=rs("blogname")
                 domain1=rs("username")
                 rs.close:set rs=nothing

                 domain2= Right(domain,Len(domain)-InStr(domain,"."))
                 gourl="space/space.asp?username=" & domain1
                end if

               Response.Write ("<html>") & vbcrlf
               Response.Write ("<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" />") & vbcrlf
               Response.Write ("<title>" & title & "</title>") & vbcrlf
               Response.Write ("<head>") & vbcrlf
               Response.Write ("</head>") & vbcrlf
               Response.Write( "<frameset><frame src="""&gourl&"""></frameset>")
             End Sub
    End Class
    %>
    上一篇:lightbox 效果 lbs窗口在本地打开
    下一篇:Window XP用户安装科讯关于权限问题必看教程
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    KesionCMSV4.0 个人空间二级域名转向处理程序 KesionCMSV4.0,个人空间,二级域名,