ï»?%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<%
'******************************************************************
' Software name:KesionCMS X2.0
' Email: service@kesion.com . è¥é”€QQ:4000080263 Tel:400-008-0263
' Web: http://www.kesion.com http://www.kesion.cn
' Copyright (C) Kesion Network All Rights Reserved.
'******************************************************************
Dim KSCls
Set KSCls = New Home
KSCls.Kesion()
Set KSCls = Nothing
Class Home
Private KS
Private Sub Class_Initialize()
Set KS=New PublicCls
End Sub
Private Sub Class_Terminate()
Call CloseConn()
Set KS=Nothing
End Sub
Public Sub Kesion()
dim G3Cls:set G3Cls=new MYCls
G3Cls.kesion
Set G3Cls=Nothing
End Sub
End Class
%>
ÿÈÕ¿ì3