config.asp

TSYS网站管理系统 TSYS网站管理系统 TSYS网站管理系统

<%
'///////////////////////////////////////////////////////////////////////////////////////////
'//
'//                                     系统配制信息
'//                                 长弓工作室(2003-06-01)
'///////////////////////////////////////////////////////////////////////////////////////////

'============
'主要配制信息
'============

'FileSystemObject对象名称
Const Def_FsoObjectStr="Scripting.FileSystemObject"

'文件创建将使用的扩展名
Const Def_FileExtension=".htm"

'Tsys系统主目录地址,结尾请不要加“/”
Const Def_TsysRootPath = "/Tsys"

'一个管理员帐户是否允许同时多个不同IP使用
Const Def_DubleOnlineUser=False

'后台资源列表的每页显示数目
Const Def_Sys_PageSize=20

'生成资源时允许的服务器脚本超时时间
Const Def_CreateNewsFiles_ScriptTimeOut=900

'生成资源中当路径不存在时是否提示
Const Def_CreateNewsFiles_ShowFolderError=True

'资源系统允许的关键词数目
Const Def_NewsKeyWordListNum=3

'生成的相关资源数目
Const Def_RelateNewsNumber=10

'在生成资源时是否使用模板缓冲(将提高生成速度及稳定性；同时会牺牲小部分内存,依据模板内容大小而定；)
Const Def_Buffer_WhenCreatingFile=True

'默认评论管理页显示大小
Const Def_Comment_PageSize=30

'============
'其它配制信息
'============

'站点名称
Const Def_MySiteTitle="Tsys信息发布系统（http://www.TsysChina.com）"
'系统标题
Const Def_SysTitle="Tsys信息发布系统 V1.1 SqlServer 正式版"

'系统标题
Const Def_Developer="<a href='#' title='[e-mail]'><font color=""#FFFFFF""><strong>长弓工作室开发完成</strong></font></a>"

'版权信息
Const Def_SoftCopyright_Script="\n长弓工作室版权所有\n"

'是否为下次登录自动记录管理员帐户
Const Def_IsAutoRemberLoginName=True

'自动记录管理员帐户名Cookie的超时时间（天）
Const Def_AutoRemberLoginName_ExpiresTime=5

'默认资源操作面板是否展开
Const Def_ShowNewsContorlPlane=False

'资源修改后是否需重新审枋
Const Def_ReCheckAfterModify=False

'退出Tsys信息发布系统时是否提示
Const Def_ConfirmWhenExitNewsSystem=True

'是否启用管理员登录安全登记
Const Def_UseLoginPolliceMan=True
'监视的时间范围（秒）
Const Def_StakeoutTimeRange=60
'允许登录错误的次数
Const Def_EnableLoginWrong_Number=6
'被封时间（秒）
Const Def_LoginWrongLockTimeRange=300

'============
'文件系统配制
'============

'虚拟文件目录,结尾请不要加“/”
Const Def_FileSystem_DirectoryRoot="../../UpLoadFiles"

'允许上传的文件类型
Const Def_FileSystem_EnableFileExt="|TXT|HTML|HTM|TXT|GIF|JPG|JPEG|BMP|PNG|DOC|"

'===========
'数据库配制
'===========

'数据库链接
Dim ConnStr
    ConnStr = "PROVIDER=SQLOLEDB.1;Data Source=(local);Initial Catalog=数据库;Persist Security Info=True;User ID=用户名;Password=密码;Connect Timeout=30"
%>