<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="KS_Cls/Kesion.AppCls.asp"-->
<% 
Dim KSCls
Set KSCls = New SiteIndex
KSCls.Kesion()
Set KSCls = Nothing
Const AllowSecondDomain=true       '是否允许开启空间二级域名 true-开启 false-不开启


Class SiteIndex
        Private KS,AppCls
		Private Sub Class_Initialize()
		 If (Not Response.IsClientConnected)Then
			Response.Clear
			Response.End
		 End If
		  Set AppCls=New KesionAppCls
		  Set KS=New PublicCls
		End Sub
        Private Sub Class_Terminate()
		 Set KS=Nothing
		 Set AppCls=Nothing
		 Call CloseConn()
		End Sub
		Public Sub Kesion()
				  
			 '================================判断自动生成==============================
					Const PerTime=60      '自动生成间隔的时间数，单位为分钟。
					Dim Template,KSR,LastModified,FsoIndex:FsoIndex=KS.Setting(5)
					If PerTime>0 and Split(FsoIndex,".")(1)<>"asp" Then
					    Set KSR = New Refresh
					 Dim fs:set   fs=Server.CreateObject(KS.Setting(99))
					     If KS.CheckFile(KS.Setting(5))=false Then
						   LastModified="1990-1-1"
						 Else
						   Dim f:set    f=fs.getfile(server.MapPath(KS.Setting(5))) 
						   LastModified=f.DateLastModified 
						 End If
						 if datediff("n",LastModified,Now)>=PerTime Then
						   Template = KSR.LoadTemplate(KS.Setting(110))
				     	   FCls.RefreshType = "INDEX" '设置刷新类型，以便取得当前位置导航等
						   FCls.RefreshFolderID = "0" '设置当前刷新目录ID 为"0" 以取得通用标签
						   Template=KSR.KSLabelReplaceAll(Template)
						   Call KS.WriteTOFile(KS.Setting(5),Template)
						   Set KSR=Nothing
						 End If
						 
					End If
			'===================================自动生成结束======================================

		    If AllowSecondDomain=True And KS.IsNul(Request.QueryString("do")) Then 
			    SecondDomain
			Else
                Call AppCls.HomePage()
			End If
		End Sub
		
		Public Sub SecondDomain()
		dim From,gourl,sdomain,title,username,domain
		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 lcase(domain)=lcase(KS.Setting(69)) or lcase(domain)=lcase(KS.JSetting(41)) or (sdomain=domain and sdomain<>"") Then  '论坛
                Call AppCls.Domain(domain)
				Exit Sub
		else
			 domain1= Replace (Left (domain,InStr (domain,".")),".","")
			 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.dahelife.com")>0 then
					 response.redirect KS.GetDomain & "club/index.asp"
				  elseif instr(Request.ServerVariables("SERVER_NAME"),"space.dahelife.com")>0 then
					 response.redirect KS.GetDomain & "space/"
				  elseif instr(Request.ServerVariables("SERVER_NAME"),"shop.dahelife.com")>0 then
					 response.redirect KS.GetDomain & "html/shop/"
				  end if
				  '============================================================================
			 End If
		        Set AppCls=New KesionAppCls
			    if instr(domain,replace(replace(lcase(KS.Setting(2)),"http://",""),"www.",""))=0 and domain1="www" then
                Call AppCls.Domain(domain)
				else
                Call AppCls.Domain(domain1)
				end if
				Exit Sub
			end if
	 End Sub
End Class
%>
