inc.asp

改进及新特性: 1、调整模版编辑时的流程及提示语言 2、新增sitemaps生成功能 3、优化评论页面的显示格式 BUG修正: 1、getarticlelist标签对于现有参数提示错误

<!--#Include File="cls_public.asp"-->
<!--#Include File="cls_template.asp"-->
<!--#Include File="cls_ini.asp"-->
<!--#Include File="cls_dboperation.asp"-->
<%
'====================================================================
'= Team Elite - Elite Article System
'= Copyright (c) 2005 Eason Chan All Rights Reserved.
'=-------------------------------------------------------------------
'= 文件名称：Inc.asp
'= 摘    要：头文件
'=-------------------------------------------------------------------
'= 最后更新：eason007
'= 最后日期：2005-07-24
'====================================================================

If Not IsObjInstalled("ADODB.Stream") Or Not IsObjInstalled("Scripting.FileSystemObject") Then
	Response.Write "<font style='font-size:12px'>服务器不支持 <font color=800000>[ADODB.Stream]</font> 或 <font color=800000>[Scripting.FileSystemObject]</font> 组件，将不能正常运行。系统已关闭</font>"
	Response.End
End If	

Dim EA_Pub,EA_Temp,EA_Ini,EA_DBO

ConnectionDatabase

Set EA_DBO=New cls_DBOperation
Set EA_Temp=New cls_Template
Set EA_Ini=New cls_Ini
Set EA_Pub=New cls_Public

If EA_Pub.SysInfo(1)="0" Then
	ErrMsg=EA_Pub.SysInfo(2)
	Call EA_Pub.ShowErrMsg(0,0)
End If

If EA_Pub.SysInfo(3)="1" Then 
	If EA_Pub.Chk_SystemTimer(EA_Pub.SysInfo(4)) Then Call EA_Pub.ShowErrMsg(0,0)
End If

Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function
%>