?%@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 %> ֲƱ