common.asp

top-cms内容管理系统

<%
'###########################################################################################
'*  程序名称: Top-CMS
'*---------------------------------------------------------------------------------------
'*  系统版本: 1.0 0215
'*  版权所有: www.Net-Develop.com
'*  程序设计: 江南行客
'*  联系方式:
'*            OICQ：2503086
'*            EMAIL：[e-mail]
'*  网站地址: 
'*            http://www.net-develop.com  
'*            http://www.top-cms.com   
'*---------------------------------------------------------------------------------------
'*  Copyright 2004 www.net-develop.com - All Rights Reserved.
'###########################################################################################
%>
<!--#include file="Const.asp" -->
<%
DriverPath = Server.MapPath(AbsWebPath)
	
Sub SystemI_Init()
	objCMS.LicenceIP=LicenceIP

	objCMS.sbgColor2=sbgColor2
	objCMS.sbgColor1=sbgColor1
	
	objCMS.Info_TW=Info_TW
	objCMS.Info_ZDs=Info_ZDs
	objCMS.Info_ZDe=Info_ZDe
	objCMS.Info_TJ=Info_TJ
	objCMS.Info_More=Info_More
	
	objCMS.AbsWebPath=AbsWebPath
	objCMS.DriverPath=DriverPath
	
	objCMS.dbType=dbType
	objCMS.dbName =dbName
	objCMS.SqlName=SqlName
	objCMS.SqlUID=SqlUID
	objCMS.SqlPWD=SqlPWD
	
	objCMS.CMS_Title=CMS_Title
	objCMS.CMS_Keywords=CMS_Keywords
	objCMS.CMS_Description=CMS_Description
	objCMS.CMS_ReplyTo = CMS_ReplyTo
	objCMS.CMS_Copyright = CMS_Copyright

	objCMS.AllowUpImgType=AllowUpImgType
	objCMS.AllowUpImgSize=AllowUpImgSize
	objCMS.ReNameImg=ReNameImg

End Sub

%>