专题管理

<%@language=vbscript codepage=936 %> <% option explicit response.buffer=true Const PurviewLevel=1 'response.write "此功能被WEBBOY暂时禁止了！" 'response.end %> <% dim ObjInstalled,Action,FoundErr,ErrMsg ObjInstalled=IsObjInstalled("Scripting.FileSystemObject") Action=trim(request("Action")) if Action="" then Action="ShowInfo" end if %> 专题管理

网站配置
管理导航：	网站信息配置 \| 网站选项配置 \| 邮件服务器选项 \| 上传文件选项

<% if Action="SaveConfig" then call SaveConfig() else call ShowConfig() end if if FoundErr=True then call WriteErrMsg() end if call CloseConn() sub ShowConfig() %>

<% If ObjInstalled=false Then Response.Write "" End If %> <% end sub %>

<% sub SaveConfig() If ObjInstalled=false Then FoundErr=True ErrMsg=ErrMsg & "

你的服务器不支持 FSO(Scripting.FileSystemObject)!

" exit sub end if dim fso,hf set fso=Server.CreateObject("Scripting.FileSystemObject") set hf=fso.CreateTextFile(Server.mappath("../inc/config.asp"),true) hf.write "<" & "%" & vbcrlf hf.write "Const SiteName=" & chr(34) & trim(request("SiteName")) & chr(34) & " '网站名称" & vbcrlf hf.write "Const SiteTitle=" & chr(34) & trim(request("SiteTitle")) & chr(34) & " '网站标题" & vbcrlf hf.write "Const SiteUrl=" & chr(34) & trim(request("SiteUrl")) & chr(34) & " '网站地址" & vbcrlf hf.write "Const SiteIndex=" & chr(34) & trim(request("SiteIndex")) & chr(34) & " '首页地址" & vbcrlf hf.write "Const InstallDir=" & chr(34) & trim(request("InstallDir")) & chr(34) & " '安装目录" & vbcrlf hf.write "Const LogoUrl=" & chr(34) & trim(request("LogoUrl")) & chr(34) & " 'Logo地址" & vbcrlf hf.write "Const BannerUrl=" & chr(34) & trim(request("BannerUrl")) & chr(34) & " 'Banner地址" & vbcrlf hf.write "Const WebmasterName=" & chr(34) & trim(request("WebmasterName")) & chr(34) & " '站长姓名" & vbcrlf hf.write "Const WebmasterEmail=" & chr(34) & trim(request("WebmasterEmail")) & chr(34) & " '站长信箱" & vbcrlf hf.write "Const Copyright=" & chr(34) & trim(request("Copyright")) & chr(34) & " '版权信息" & vbcrlf hf.write "Const ShowPopMenu=" & chr(34) & trim(request("ShowPopMenu")) & chr(34) & " '后台是否显示右键菜单" & vbcrlf hf.write "Const ShowSiteChannel=" & chr(34) & trim(request("ShowSiteChannel")) & chr(34) & " '是否显示网站频道" & vbcrlf hf.write "Const ShowMyStyle=" & chr(34) & trim(request("ShowMyStyle")) & chr(34) & " '是否显示自选风格" & vbcrlf hf.write "Const ShowClassTreeGuide=" & chr(34) & trim(request("ShowClassTreeGuide")) & chr(34) & " '是否使用树状导航菜单" & vbcrlf hf.write "Const EnableArticleCheck=" & chr(34) & trim(request("EnableArticleCheck")) & chr(34) & " '是否启用文章审核功能" & vbcrlf hf.write "Const EnableGuestCheck=" & chr(34) & trim(request("EnableGuestCheck")) & chr(34) & " '是否启用留言审核功能" & vbcrlf hf.write "Const EnableUploadFile=" & chr(34) & trim(request("EnableUploadFile")) & chr(34) & " '是否开放文件上传" & vbcrlf hf.write "Const EnableSaveRemote=" & chr(34) & trim(request("EnableSaveRemote")) & chr(34) & " '是否保存远程图片到本地" & vbcrlf hf.write "Const EnableUserReg=" & chr(34) & trim(request("EnableUserReg")) & chr(34) & " '是否允许新用户注册" & vbcrlf hf.write "Const EmailCheckReg=" & chr(34) & trim(request("EmailCheckReg")) & chr(34) & " '新用户注册是否需要邮件验证" & vbcrlf hf.write "Const AdminCheckReg=" & chr(34) & trim(request("AdminCheckReg")) & chr(34) & " '新用户注册是否需要管理员认证" & vbcrlf hf.write "Const EnableLinkReg=" & chr(34) & trim(request("EnableLinkReg")) & chr(34) & " '是否开放友情链接申请" & vbcrlf hf.write "Const PopAnnounce=" & chr(34) & trim(request("PopAnnounce")) & chr(34) & " '是否弹出公告窗口" & vbcrlf hf.write "Const HitsOfHot=" & trim(request("HitsOfHot")) & " '热门文章点击数" & vbcrlf hf.write "Const SessionTimeout=" & trim(request("SessionTimeout")) & " 'Session会话的保持时间" & vbcrlf hf.write "Const CommentPurview=" & trim(request("CommentPurview")) & " '发表评论的权限" & vbcrlf hf.write "Const MailObject=" & chr(34) & trim(request("MailObject")) & chr(34) & " '邮件发送组件" & vbcrlf hf.write "Const MailServer=" & chr(34) & trim(request("MailServer")) & chr(34) & " '用来发送邮件的SMTP服务器" & vbcrlf hf.write "Const MailServerUserName=" & chr(34) & trim(request("MailServerUserName")) & chr(34) & " '登录用户名" & vbcrlf hf.write "Const MailServerPassWord=" & chr(34) & trim(request("MailServerPassWord")) & chr(34) & " '登录密码" & vbcrlf hf.write "Const MailDomain=" & chr(34) & trim(request("MailDomain")) & chr(34) & " '域名" & vbcrlf hf.write "Const MaxFileSize=" & trim(request("MaxFileSize")) & " '上传文件大小限制" & vbcrlf hf.write "Const SaveUpFilesPath=" & chr(34) & trim(request("SaveUpFilesPath")) & chr(34) & " '存放上传文件的目录" & vbcrlf hf.write "Const UpFileType=" & chr(34) & trim(request("UpFileType")) & chr(34) & " '允许的上传文件类型" & vbcrlf hf.write "Const DelUpFiles=" & chr(34) & trim(request("DelUpFiles")) & chr(34) & " '删除文章时是否同时删除文章中的上传文件" & vbcrlf hf.write "Const ChargeType_999=" & trim(request("ChargeType_999")) & " '注册用户的默认计费方式" & vbcrlf hf.write "Const UserPoint_999=" & trim(request("UserPoint_999")) & " '注册用户的默认可用点数" & vbcrlf hf.write "Const ValidDays_999=" & trim(request("ValidDays_999")) & " '注册用户的默认有效期" & vbcrlf hf.write "Const ChargeType_99=" & trim(request("ChargeType_99")) & " '收费用户的默认计费方式" & vbcrlf hf.write "Const UserPoint_99=" & trim(request("UserPoint_99")) & " '收费用户的默认可用点数" & vbcrlf hf.write "Const ValidDays_99=" & trim(request("ValidDays_99")) & " '收费用户的默认有效期" & vbcrlf hf.write "Const ChargeType_9=" & trim(request("ChargeType_9")) & " 'VIP用户的默认计费方式" & vbcrlf hf.write "Const UserPoint_9=" & trim(request("UserPoint_9")) & " 'VIP用户的默认可用点数" & vbcrlf hf.write "Const ValidDays_9=" & trim(request("ValidDays_9")) & " 'VIP用户的默认有效期" & vbcrlf hf.write "%" & ">" hf.close set hf=nothing set fso=nothing call WriteSuccessMsg("网站配置保存成功！") end sub %>

网站信息配置
网站名称：
网站标题：
网站地址：请添写完整URL地址
首页地址： index.asp
安装目录： /dy1/
LOGO地址：请添写完整URL地址
Banner地址：请添写完整URL地址。若为空，则在Banner处显示广告管理中预设的广告。
站长姓名：
站长信箱：
版权信息：支持HTML标记，不能使用双引号	<%=Copyright%>
网站选项配置
后台是否显示右键菜单：	> 是 > 否
是否显示网站频道：	> 是 > 否
是否显示自选风格：	> 是 > 否
是否使用树状导航菜单：	> 是 > 否
是否启用文章审核功能：如禁用文章审核功能，则新录入的文章将直接发表（通过审核）	> 是 > 否
是否启用留言审核功能：如禁用留言审核功能，则新发表的留言将直接显示（通过审核）	> 是 > 否
是否开放文件上传功能：添加/修改文章时是否可以上传文件	> 是 > 否
是否保存远程图片到本地：如果从其它网站上复制的内容中包含图片，则将图片复制到本站服务器上	> 是 > 否
是否开放友情链接申请：	> 是 > 否
是否弹出公告窗口：	> 是 > 否
热点文章的点击数：文章点击数达到此数时就会被设为热点文章
Session会话的保持时间：主要用于后台管理员登录，为了安全，请不要将时间设得太长。建议设为10分钟。	分钟
发表评论权限：只有具有相应权限的人才能发表评论。
用户选项
是否允许新用户注册：	> 是 > 否
新用户注册是否需要邮件验证：若选择“是”，则用户注册后系统会发一封带有验证码的邮件给此用户，用户必须在通过邮件验证后才能真正成为正式注册用户	> 是 > 否
新用户注册是否需要管理员认证：若选择是，则用户必须在通过管理员认证后才能真正成功正式注册用户。	> 是 > 否
注册用户的默认计费方式：	> 扣点数（推荐）：每阅读一篇收费文章，扣除相应点数。 > 有效期：在有效期内，用户可以任意阅读收费内容
注册用户的默认可用点数：新用户注册成功后默认可以得到的点数，用于注册用户试用一些收费项目	点
注册用户的默认有效期：新用户注册成功后默认有效期，用于注册用户试用一些收费项目有效期从注册之日开始计算	天
收费用户的默认计费方式：	> 扣点数（推荐）：每阅读一篇收费文章，扣除相应点数。 > 有效期：在有效期内，用户可以任意阅读收费内容
收费用户的默认可用点数：将用户设为收费用户时，这些用户的默认可用点数	点
收费用户的默认有效期：将用户设为收费用户时，这些用户的默认有效期有效期从设为收费用户之日开始计算	天
VIP用户的默认计费方式：	> 扣点数（推荐）：每阅读一篇收费文章，扣除相应点数。 > 有效期：在有效期内，用户可以任意阅读收费内容
VIP用户的默认可用点数：将用户设为VIP用户时，这些用户的默认可用点数	点
VIP用户的默认有效期：将用户设为VIP用户时，这些用户的默认有效期有效期从设为VIP用户之日开始计算	天
邮件服务器选项
邮件发送组件：请一定要选择服务器上已安装的组件
SMTP服务器地址：用来发送邮件的SMTP服务器如果你不清楚此参数含义，请联系你的空间商
SMTP登录用户名：当你的服务器需要SMTP身份验证时还需设置此参数
SMTP登录密码：当你的服务器需要SMTP身份验证时还需设置此参数
SMTP域名：如果用“name@domain.com”这样的用户名登录时，请指明domain.com
上传文件选项
上传文件大小限制：建议不要超过1024K，以免影响服务器性能	K
存放上传文件的目录：请输入相对于首页（Default.asp）的相对路径
允许的上传文件类型：只输入扩展名。每种文件类型用“\|”号分开。
删除文章时是否同时删除文章中的上传文件：此功能需要FSO支持。	> 是 > 否
>
你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能。请直接修改“Inc/config.asp”文件中的内容。