config.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 78 行

<%
Option Explicit
Response.Buffer = True

'全局常量或变量、参数定义程序段
'重要以下两个选项，每次修改文件都需认真查看

Const blogdir = "/blog/"
'blog程序所在目录,非常重要,默认为根目录,如为blog目录请改为/blog/
Const f_ext = "html" 
'生成的日志静态文件后缀,可以为htm,html,shtml,asp四种格式
Const cookies_name = "oblog4" 'cookies名,一般无须修改(7)
Const cookies_domain = ""   'cookeies域名根,一般留空(8)
Const cache_name_user = "oblog4" '系统缓存名前缀，一般无须修改
Const cache_name = "oblog4" '系统缓存名前缀，一般无须修改
Const SYSFOLDER_ADMIN = "admin" '该目录名称将被作为系统禁止注册的用户名使用
Const SYSFOLDER_MANAGER = "manager" '该目录名称将被作为系统禁止注册的用户名使用

Const upload_dir = "UploadFiles" '默认上传目录，为空则使用用户所在目录，若需要修改为其他目录，请手工建目录
Const is_unamedir = 1 '是否使用username作用户目录，１为使用，０为关闭
Const en_nameisnum = 0  '是否允许全数字的用户名,1为允许,0为不允许
Const logfilepath = 1 '日志文件路径，0为根目录，1为"/archives/年份/"目录
Const str_htmlfilt = "" '自定义过滤的html代码，必须以|结束，格式如aaa|bbb|，则过滤aaa和bbb标签(对评论和留言有效)

Const is_debug = 1  '是否开启调试模式,1为开启，0为关闭
Const is_relativepath = 1 '站内连接路径参数，1为相对路径，0为绝对路径

Const P_TAGS_SPLIT = " " 'TAG Split
Const P_TAGS_MAX = 10    'TAGS IN ONE BLOG
Const P_TAGS_DESC = "日志标签"   'TAG DESC
Const P_TAGS_ICON = "TAG" 'TAG DESC
Const P_TAGS_CLOUD = 1   '1:CLOUD;2:LIST DESC
Const P_TAGS_PerLine = 8
Const P_TAGS_SYSURL = "tags.asp"
Const P_TRACKBACK_MAX = 5
Const P_QQ_NAME = "群组"
Const P_QQ_MASTERNAME = "组长"
Const p_Group_MaxUser=500
Const P_Site_Hours = 0  '服务器与时差设置

Const C_Reg_AutoCreate = 1		'是否启用注册后自动创建用户目录
Const C_Reg_AutoTemplate = 1	'是否启用注册后自动选择默认模板（如果启用，C_Reg_AutoCreate的值必须为1）
Const C_Reg_AutoPost = 1		'是否启用注册后自动发布一篇默认日志
Const C_Reg_AutoPostStr = ""	'用户注册后自动发布日志的内容

Const C_User_ViewUploadfiles = 1 '是否启用后台上传图片文件的预览功能

'垃圾注册、回复、留言控制v1.0
Const C_Spam_RegCodeTime = 180  '注册授权码更新间隔时间,单位为分钟，30分钟最小,一天最大(1440分钟),间隔太小，可能会造成正常用户注册失败
Const C_Spam_ChkMinutes=5 	'检查时间间隔(请根据站点的流量和反应度设置)
Const C_Spam_OneIp = 10 '如果设置间隔内回复/评论连续超过一定数目，则该IP将被列入黑名单
Const C_Spam_AllIp = 15 '如果设置间隔内回复/评论连续超过一定数目，则该IP将被列入黑名单


'真实域名相关参数
Const true_domain = 0 '是否启用真实二级域名,需OblogDns组件支持(6)
Dim blogurl, str_domain
If true_domain = 1 Then
    '真实域名必填，设置blog程序绝对路径
    blogurl = "http://www.oblog.cn/oblog4/"
    str_domain = ",custom_domain"
Else
    blogurl = blogdir
End If

'分页公用变量
Dim G_P_PerMax,G_P_AllRecords,G_P_AllPages,G_P_This,G_P_FileName,G_P_Guide
dim C_Editor
C_Editor=blogdir&"editor"

Const C_Vote_Action1="鲜花"
Const C_Vote_Action2="板砖"
Const C_UserIcon_Width="48"
Const C_UserIcon_Height="48"

Const En_OutRss=1	'是否允许订阅站外rss源
Const En_Recycle=1 	'是否启用回收站功能(只对日志及用户数据启用,回复、评论、文件等不启用)
%>