复制代码 代码如下:<!--#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
