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
%>

赞 (0)

相关推荐

  • 多域名绑定到一个空间访问不同首页的技巧

    将多个域名绑定到一个空间,访问不同的首页.这样设立更多的子站点:) 空间内默认首页(通常是 index.asp 或 default.asp )使用 Request.ServerVariables("HTTP_HOST") 获取用户访问时所使用域名,然后使用 Select 调用不同文件,可用 Response.Redirect 或 Server.Transfer 复制代码 代码如下: Dim cc_str_host_namecc_str_host_name = LCase(Request

  • 新学到的一招之单空间绑多域名实现提速

    你可以看到很多大网站都是把一些文件放在其他的域下,比如像网易的图片是images.163.com.cimg2.163.com,当然像这些大公司除了多米加速外,更重要的是静态文件服务器和轮循等一大堆的应用.然而像我们这些小网站哪里会像他们一样,一个页面背后对应着几十台服务器,甚至更多,像我们这种一个网站都是对应空间,哪能搞得那样复杂,而且把文件放在不同空间修改起来也麻烦. 一个简单的方式就是把不同域名绑在同一个空间里,比如www.loaoao.com跟loaoao.com并不是一样的了,虽然大家一

  • .htaccess 顶级域名重定向绑定空间目录

    条件是域名可以绑定到服务器.可以解决空间数量不足的问题. 代码如下: 复制代码 代码如下: RewriteEngine on #bbs # 把 youonce.com 改为你要绑定的域名. RewriteCond %{HTTP_HOST} ^(www.)youonce.com$ # 把 cp 改为要绑定的目录. RewriteCond %{REQUEST_URI} !^/cp/ # 不要改以下两行. RewriteCond %{REQUEST_FILENAME} !-f RewriteCond

  • asp下同一空间多绑多哥域名的方法

    同一空间多绑一个域名 复制代码 代码如下: <%  CheckDomain  Sub CheckDomain() dim sDomain sDomain = Request.ServerVariables("HTTP_HOST") If Instr(sDomain,"a.xxx.com")>0 then Response.Redirect "a/" End Sub %> 同一空间多绑二个域名 复制代码 代码如下: <% 

  • 同一空间绑定多个域名而实现访问不同页面的PHP代码

    <?php  switch ($_SERVER["HTTP_HOST"]) {      case "www1.aspcn.net":          header("location:index1.htm");          break;      case "www2.aspcn.net":          header("location:index2.htm");          b

  • 两个或多个域名共用一个空间并可以独立访问的方法

    意义:省了一个空间,可以放在一起 如果将下面代码无限循环后,我估计可以绑定无数的站.呵呵`~当然前提是你的空间商允许你绑定无数个域名,好,废话少说,开始写代码!!!! 步骤如下: 1.首先,你的空间必须支持ASP,并且这个空间可以绑定下面所用到的两个域名(域名绑定可以让空间服务商帮你做),然后新建一个ASP的首页文件,这个ASP文件中的代码如下: 复制代码 代码如下: <%if Request.ServerVariables("SERVER_NAME")="www.jb

  • SSH框架网上商城项目第19战之订单信息级联入库以及页面缓存问题

    SSH框架网上商城项目第19战之订单信息级联入库以及页面缓存问题

    购物车这一块还剩最后两个问题,就是订单信息的级联入库和页面缓存,这里的信息是指购物车和购物项,即我们将购物车的信息存入数据库的同时,也存入每个购物项的信息,而且外键都关联好,这涉及到了Hibernate中的级联入库问题:页面缓存问题指的是当用户确认了订单后,如果点后退,又会回到订单确认页面,刚刚的订单确认页面又出来了,而且session还在,信息还是刚刚的信息,这明显不是我们想要的结果,我们会在后面一一分析.这一节主要来讨论订单信息的级联入库以及页面的缓存问题. 1. 订单信息的级联入库 Hib

  • 可绑定域名的德国10GB免费PHP空间

    kilu.de免费空间来自德国,10G容量,无限月流量,FTP方式上传管理文件,支持PHP5(非安全模式),提供3个300M容量的MySQL数据库,500多种后缀的免费二级域名供你选择,也可以绑定你自己的域名,每个用户最多可创建100个网站.另外,你也可以不用kilu.de提供的免费PHP空间而仅使用500种后缀的免费二级域名,其中不是好域名,支持隐藏原URL转发. 网址:http://www.kilu.de kilu.de免费空间演示:http://free8.i.gp kilu.de免费空间

  • SSH框架网上商城项目第27战之申请域名空间和项目部署及发布

    SSH框架网上商城项目第27战之申请域名空间和项目部署及发布

    前面陆陆续续的完成了网上商城的一些基本功能,虽然还有很多地方有待完善,但是不影响项目的部署和发布,我们可以先来玩一把,这一节主要介绍下域名空间的申请以及项目的部署和发布流程. 1. 域名空间的申请 作为一个伟大的屌丝,肯定没钱买域名空间,很自然的想到去申请个免费的,现在免费的域名空间也很多,我在福佳jsp技术网上申请了一个试用期是15天的,大家也可以去申请个玩玩,反正作为学习,这已经足够了,当然,如果要长期的肯定要付费的.注册过程我截几个图,如下: 然后下一步,最后开通如下: 建议把上面这些信息

  • 如何将javaweb项目部署到linux下

    一般都在windows下开发的,现在部署到linux下:1,将项目达成war包(用eclipse,项目右键-->Export-->选择war file)2,将tomcat(用winSCP当然你也可以用secureCRT,用securCRT需要建立sftp(即上传文件的目录),用put tomcat命令)考到ilunx对应的目录下3,然后将项目的war包放到tomcat的webapps目录下4,启动tomcat(命令:./startup.sh(linux下启动tomcat是.sh文件而非.bat

随机推荐