<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%option explicit%> <% '**************************************************** ' Software name:Kesion CMS 5.5 ' 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 SiteIndex KSCls.Kesion() Set KSCls = Nothing Class SiteIndex Private KS, KSR Private Sub Class_Initialize() If (Not Response.IsClientConnected)Then Response.Clear Response.End End If Set KS=New PublicCls Set KSR = New Refresh End Sub Private Sub Class_Terminate() Call CloseConn() Set KS=Nothing End Sub Public Sub Kesion() Dim QueryStrings:QueryStrings=Request.ServerVariables("QUERY_STRING") If QueryStrings<>"" And Ubound(Split(QueryStrings,"-"))>=1 Then Call StaticCls.Run() Else Dim Template,FsoIndex:FsoIndex=KS.Setting(5) IF Split(FsoIndex,".")(1)<>"asp" Then Response.Redirect KS.Setting(5):Exit Sub Else Template = KSR.LoadTemplate(KS.Setting(110)) FCls.RefreshType = "INDEX" '设置刷新类型,以便取得当前位置导航等 FCls.RefreshFolderID = "0" '设置当前刷新目录ID 为"0" 以取得通用标签 Template=KSR.KSLabelReplaceAll(Template) End IF Response.Write Template End If Set StaticCls=Nothing End Sub End Class %>
传奇世界s服发布网 s服发布网 传世s服发布网 传世s服发布网 s服传奇 传奇世界s服发布网 传世私发布网
【中考辅导-一对一家教-托管班-新年华教育】
学生风云榜
更多>>
唐佳坤
北纬路中学
潘松 
就读62中 
高彬 
师大附中 
王者之路
[06] [07] [08] [09]
560分以上学员9人,550-560分学员62人,540-550分学员137人, 530-540分学员385人,66...
更多>>
宣武服务中心:81667540 地图 济南分校:0531-88164366/88164355 地图
洋桥服务中心:81667204 地图 复兴门服务中心:51951638 地图
玉泉路服务中心:52635921/52635907 地图 北太平庄服务中心:81667694 地图
丰台服务中心:51039301/13439961051 地图 潘家园服务中心:67301700/87665583 地图
人大服务中心:51627366 地图 团结湖服务中心:15210245095 地图
大兴服务中心:15010008352 地图  
Copyright 2001-2009 Powered by XinNianHua.com,新年华教育 All Rights Reserved.
京ICP备05071172 服务电话:010-51663232 E-Mail:xinnianhua@163.com
在线客服