%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%option explicit%> <% '**************************************************** ' Software name:Kesion CMS 5.0 ' Email: service@kesion.com . QQ:111394,9537636 ' Web: http://www.kesion.com http://www.kesion.cn ' Copyright (C) Kesion Network All Rights Reserved. '**************************************************** 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() %>
|
|
|
![]() |
|||||||||||||||||
![]() |
|
||||||||||||||||||
|
|
|
|
|
||||||||||||||||
|
|
|
||||||||||||||||||
|
|
|
|
|
|
|||||||||||||||
![]() |
|||||||||||||||||||
![]() |
|||||||||||||||||||
|
|
|||||||||||||||||||
![]() |
|
|
|
|
|
||||||||||||||
![]() |
|||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|