<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../KS_Cls/Kesion.MemberCls.asp"-->
<!--#include file="../KS_Cls/Kesion.Label.CommonCls.asp"-->
<!--#include file="Include/3GCls.asp"-->
<%
'******************************************************************
' Software name:YW X1.5
' Email: ywh@ywit.net.cn . 营销QQ:2449389820  Tel:33530888/15626871887
' Web: http://www.ywit.net.cn 
' Copyright (C) YW All Rights Reserved.
'******************************************************************

Dim KSCls
Set KSCls = New ShowCls
KSCls.Kesion()
Set KSCls = Nothing

Class ShowCls
        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.Show
			 Set G3Cls=Nothing
		End Sub
End Class
%>