ï»?%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit
response.Buffer=true
%>
<%
'******************************************************************
' Software name:KesionCMS X1.0
' Email: service@kesion.com . è¥é”€QQ:4000080263 Tel:400-008-0263
' Web: http://www.xuhuinet.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
%>
久久青草视频_国产性―交一乱―色―情人免费看_99久久综合_国产一级婬乱片AV片AAA毛片