<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%option explicit response.Buffer=true %> <% '**************************************************** ' Software name:Kesion CMS 9.5 ' 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 InfoCls KSCls.Kesion() Set KSCls = Nothing Class InfoCls Private KS Private Sub Class_Initialize() Set KS=New PublicCls End Sub Private Sub Class_Terminate() End Sub Public Sub Kesion() If KS.C_S(KS.ChkClng(KS.S("m")),7)=2 and KS.C_S(KS.ChkClng(KS.S("m")),48)=1 Then Response.Redirect("../?" & GCls.staticPreContent & "-" & KS.ChkClng(KS.S("D")) &"-" & KS.ChkClng(KS.S("m")) &GCls.StaticExtension) StaticCls.Run() CloseConn Set KS=Nothing End Sub End Class %> 码报资料2018龙生肖 今天江西多乐彩开奖结果查询 股票怎么玩赚钱 最好玩的单机棋牌游 内蒙古11选5开奖规则 澳洲幸运8开奖数据分析 2020023期30选5 湖北体彩11选5遗漏top10 pc蛋蛋2899 深圳风采2011090 股票k线图片