<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%option explicit response.Buffer=true %> <% '****************************************************************** ' Software name:XuhuiCMS X1.5 ' Email: xuhuinet@126.com . 营销QQ:537265000 Tel:029-84290368 ' Web: http://www.xuhuinet.com http://www.xuhuinet.com ' 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 %>