<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="Conn.asp"-->
<!--#include file="KS_Cls/Kesion.CommonCls.asp"-->
<!--#include file="KS_Cls/Kesion.Label.CommonCls.asp"-->
<%
'****************************************************
' QQ:824969636
' Web: http://www.dahelife.com
' Copyright (C) dahelife.com  All Rights Reserved.
'****************************************************
Dim KSCls
Set KSCls = New about
KSCls.Kesion()
Set KSCls = Nothing

Class about
        Private KS, KSR,str
		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 FileContent
                         Dim MapTemplatePath:MapTemplatePath=KS.Setting(3) & KS.Setting(90) & "help/about.html" 
                               FileContent = KSR.LoadTemplate(MapTemplatePath)   
                               FileContent=Replace(FileContent,"{$自己的标签}", "这里写上自己的函数代码")
                               FileContent=KSR.KSLabelReplaceAll(FileContent) 
                               response.write FileContent  
              End Sub        

End Class

%>

