<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<%
Dim KSCls
Set KSCls = New Admin_Index
KSCls.Kesion()
Set KSCls = Nothing
Class Admin_Index
Private KS,KSUser
Private Sub Class_Initialize()
Set KS=New PublicCls
Set KSUser = New UserCls
End Sub
Private Sub Class_Terminate()
Set KS=Nothing
Set KSUser=Nothing
End Sub
Public Sub Kesion()
IF Cbool(KSUser.UserLoginChecked)=True Then
Response.Redirect("index.asp")
End If
%>