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


Class SiteIndex
        Private KS,AppCls
		Private Sub Class_Initialize()
		 If (Not Response.IsClientConnected)Then
			Response.Clear
			Response.End
		 End If
		  Set AppCls=New System_AppCls
		  Set KS=New PublicCls
		End Sub
        Private Sub Class_Terminate()
		 Set KS=Nothing
		 Set AppCls=Nothing
		 Call CloseConn()
		End Sub
		Public Sub Run()
		    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
				  '=====================这里定义其它系统非个人空间的二级域名转向（xxxx.com改成你的域名）如论坛等=============================
				  if instr(Request.ServerVariables("SERVER_NAME"),"bbs.xxxx.com")>0 then
					 response.redirect KS.GetDomain & "bbs/index.asp"
				  elseif instr(Request.ServerVariables("SERVER_NAME"),"news.xxxx.com")>0 then
					 response.redirect KS.GetDomain & "news/"
				  elseif instr(Request.ServerVariables("SERVER_NAME"),"help.xxxx.com")>0 then
					 response.redirect KS.GetDomain & "help/"
				  end if
				  '============================================================================
			 End If
		        Set AppCls=New System_AppCls
			    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
%>
