admin_config.asp

本系统是一套开源WEB的网站管理系统

else
	newablenews=1
end if
if Request("ableArtical")="" then
	newableArtical=0
else
	newableArtical=1
end if
if Request("ablePic")="" then
	newablePic=0
else
	newablePic=1
end if
if Request("ableDown")="" then
	newableDown=0
else
	newableDown=1
end if
if Request("ableRes")="" then
	newableRes=0
else
	newableRes=1
end if

configStr=chr(60)&"%"&vbNewline
configStr=configStr&"dim webname,webur,logourl,createDate,webboss,webEmail,webKeyWord,descriptions,copyrightmsg"&vbnewline&_
					"dim webstate,weifu,isOpenCounter,onlinetime,adminVar,adminVal,userVar,userVal,colorRS,ms_sqlinOpen,ms_submit,filterIp"&vbnewline&_
					"dim viewIp,killKeyWord,killUserName"&vbnewline&_
					"dim ms_isCode,linkOpen,guestbookOpen,guestbookPass,reGuestbook"&vbnewline&_
					"dim userSystemOpen,userGrage,pointNum,moneyNum,moneyName,moneyUnits,pointName,pointUnits,regIsSend,msgContent,ableNews,ableArtical,ablePic,ableDown,ableRes,fabuPass,fabuPointNum,jifen2money_j,jifen2money_m,money2jifen_m,money2jifen_j"&vbnewline&_
					"dim adminUpImgExt,adminImgSize,upFileExt,UpFileSize"&vbnewline&_
					"dim userUpPopedom,userUpPath,userUpImgAllowExt,userUpImgSize,userUpFileAllowExt,userUpFileSize"&vbnewline&_
					"dim indexNewsNum,indexArtNum,indexPicNum,indexDownNum,indexResNum,indexGuestbookNum,indexUserNum,indexMsgNum,indexFLinkNum"&vbnewline&_
					"dim NewsPage,newsOrderNum,newsAboutNum,newsPlNum"&vbnewline&_
					"dim articalPage,articalOrderNum,articalAboutNum,articlePlNum"&vbnewline&_
					"dim downPage,downOrderNum,downAboutNum,downPlNum"&vbnewline&_
					"dim picPage,picOrderNum,picAboutNum,picPlNum"&vbnewline&_
					"dim resPage,resOrderNum,resAboutNum,resPlNum"&vbnewline&_
					"dim friendLinkpage,guestbookPage"&vbNewLine&_
					"                                                                                                  'Powered By:Maosin CMS"&vbNewLine
configStr=configStr&"'-------------------------基本信息----------------------------"&vbnewline
configStr=configStr&"webname="&chr(34)&Request("webname")&chr(34)&" '网站名字"&vbNewLine
configStr=configStr&"weburl="&chr(34)&Request("weburl")&chr(34)&" '网站地址"&vbNewLine
configStr=configStr&"logourl="&chr(34)&Request("logourl")&chr(34)&" 'LOGO地址"&vbNewLine
configStr=configStr&"CreateDate="&chr(34)&Request("CreateDate")&chr(34)&" '建站时间"&vbNewLine
configStr=configStr&"webboss="&chr(34)&Request("webboss")&chr(34)&" '站长姓名"&vbNewLine
configStr=configStr&"webEmail="&chr(34)&Request("webEmail")&chr(34)&vbNewLine
configStr=configStr&"webkeyword="&chr(34)&Request("webkeyword")&chr(34)&" '网站关键字"&vbNewLine
configStr=configStr&"descriptions="&chr(34)&Request("description")&chr(34)&" '网站描述"&vbNewLine
configStr=configStr&"copyrightmsg="&chr(34)&Request("copyrightmsg")&chr(34)&" '版权信息"&vbNewLine
configStr=configStr&"'-------------------------网站环境/变量/安全----------------------------"&vbnewline
configStr=configStr&"webstate="&Request("webstate")&" '网站开关，0关闭，1开放"&vbNewLine
configStr=configStr&"weifu="&chr(34)&Request("weifu")&chr(34)&" '关闭原因"&vbNewLine
configStr=configStr&"isOpenCounter="&Request("isOpenCounter")&" '是否启用站内统计，0否，1是，2仅启用在线统计，3仅启用访问统计"&vbNewLine
configStr=configStr&"onlinetime="&Request("onlinetime")&" '用户在线时长"&vbNewLine
configStr=configStr&"adminVar="&chr(34)&Request("adminVar")&chr(34)&" '管理员变量名"&vbNewLine
configStr=configStr&"adminVal="&chr(34)&Request("adminVal")&chr(34)&" '管理员变量值"&vbNewLine
configStr=configStr&"userVar="&chr(34)&Request("userVar")&chr(34)&" '用户变量名"&vbNewLine
configStr=configStr&"userVal="&chr(34)&Request("userVal")&chr(34)&" '用户变量值"&vbNewLine
configStr=configStr&"isAdminLogon="&Request("isAdminLogon")&" '后台管理是否要在前台登录,0否,1是"&vbNewLine
configStr=configStr&"colorRS="&chr(34)&Request("colorRS")&chr(34)&"'网站颜色集合"&vbNewLine
configStr=configStr&"ms_sqlinOpen="&Request("ms_sqlinOpen")&" '是否开启SQL防注功能,0不开启,1为开启"&vbNewLine
configStr=configStr&"ms_submit="&Request("ms_submit")&" '是否允许外部提交数据,0否,1是"&vbNewLine
configStr=configStr&"filterIp="&chr(34)&Request("filterIp")&chr(34)&" 'IP地址封锁,多个IP用|号分隔，支持通配符*， 如：127.0.0.*就限制了以127.0.0开头的IP访问。"&vbNewLine
configStr=configStr&"'-------------------------数据内容显示过滤----------------------------"&vbnewline
configStr=configStr&"viewIp="&Request("viewIp")&" 'IP地址显示格式，4表示显全部，3表示前3位，2表示前2位，1表示前1位"&vbNewLine
configStr=configStr&"killKeyWord="&chr(34)&Request("killKeyWord")&chr(34)&" '脏话过滤/替换,要过滤的字符=过滤后的字符 ，每个过滤字符用|号分割开。"&vbNewLine
configStr=configStr&"killUserName="&chr(34)&Request("killUserName")&chr(34)&" '保留注册名"&vbNewLine
configStr=configStr&"'-------------------------网站交互功能设置----------------------------"&vbnewline
configStr=configStr&"ms_isCode="&Request("ms_isCode")&" '提交内容是否使用验证码,0否，1是"&vbNewLine
configStr=configStr&"linkOpen="&Request("linkOpen")&" '友情连接申请是否开放，0否，1是"&vbNewLine
configStr=configStr&"guestbookOpen="&Request("guestbookOpen")&" '留言系统设置,0不开放，1开放，2会员开放"&vbNewLine
configStr=configStr&"guestbookPass="&Request("guestbookPass")&" '留言审核,0不用审核，1审核，2只游客审核"&vbNewLine
configStr=configStr&"reGuestbook="&Request("reGuestbook")&" '留言是否开启会员回复，0否，1是"&vbNewLine
configStr=configStr&"'-------------------------会员相关参数设置----------------------------"&vbnewline
configStr=configStr&"userSystemOpen="&Request("userSystemOpen")&" '会员系统开关设置,0完全关闭(停止会员注册/登录),1半开放(暂停新会员注册，老会员可登录),2审核开放(会员注册需要通过审核),3自由开放(会员自由注册，不用通过审核)"&vbNewLine
configStr=configStr&"userGrage="&Request("userGrage")&" '新会员注册初始等级,1为普通会员，2为VIP会员"&vbNewLine
configStr=configStr&"pointNum="&Request("pointNum")&" '新会员注册可获积分"&vbNewLine
configStr=configStr&"moneyNum="&Request("moneyNum")&" '新会员注册可获货币"&vbNewLine
configStr=configStr&"moneyName="&chr(34)&Request("moneyName")&chr(34)&" '会员货币名"&vbNewLine
configStr=configStr&"moneyUnits="&chr(34)&Request("moneyUnits")&chr(34)&" '货币单位"&vbNewLine
configStr=configStr&"pointName="&chr(34)&Request("pointName")&chr(34)&" '会员点数名"&vbNewLine
configStr=configStr&"pointUnits="&chr(34)&Request("pointUnits")&chr(34)&" '点数单位"&vbNewLine
configStr=configStr&"regIsSend="&Request("sendms")&" '新用户注册成功是否发送短消息,0否，1是"&vbNewLine
configStr=configStr&"msgContent="&chr(34)&Request("msgContent")&chr(34)&" '短信内容"&vbNewLine
configStr=configStr&"ableNews="&newableNews&" '是否会员允许发布新闻，0否，1是"&vbNewLine
configStr=configStr&"ableArtical="&newableArtical&" '是否会员允许发布文章，0否，1是"&vbNewLine
configStr=configStr&"ablePic="&newablePic&" '是否会员允许发布图片，0否，1是"&vbNewLine
configStr=configStr&"ableDown="&newableDown&" '是否会员允许发布下载，0否，1是"&vbNewLine
configStr=configStr&"ableRes="&newableRes&" '是否会员允许发布免费资源，0否，1是"&vbNewLine
configStr=configStr&"fabuPass="&Request("fabuPass")&" '发布信息内容是否要审核，0否，1是"&vbNewLine
configStr=configStr&"fabuPointNum="&Request("fabuPointNum")&" '发布信息成功可加积分数"&vbNewLine
configStr=configStr&"jifen2money_j="&Request("jifen2money_j")&" '需点数"&vbNewLine
configStr=configStr&"jifen2money_m="&Request("jifen2money_m")&" '得货币"&vbNewLine
configStr=configStr&"money2jifen_m="&Request("money2jifen_m")&" '需货币"&vbNewLine
configStr=configStr&"money2jifen_j="&Request("money2jifen_j")&" '得点数"&vbNewLine
configStr=configStr&"'-------------------------后台管理上传设置----------------------------"&vbnewline
configStr=configStr&"adminUpImgExt="&chr(34)&Request("adminUpImgExt")&chr(34)&" '后台管理允许图片上传类型，多个请用“;”分隔"&vbNewLine
configStr=configStr&"adminImgSize="&Request("adminImgSize")&" '上传大小，单位：KB"&vbNewLine
configStr=configStr&"upFileExt="&chr(34)&Request("upFileExt")&chr(34)&" '后台管理允许其它文件类型，多个请用“;”分隔"&vbNewLine
configStr=configStr&"UpFileSize="&Request("UpFileSize")&" '上传大小，单位：KB"&vbNewLine
configStr=configStr&"'-------------------------前台用户上传设置----------------------------"&vbnewline
configStr=configStr&"userUpPopedom="&Request("userUpPopedom")&" '前台用户上传权限,0关闭上传，1开放上传，2VIP用户开放"&vbNewLine
configStr=configStr&"userUpPath="&chr(34)&Request("userUpPath")&chr(34)&" '上传路径"&vbNewLine
configStr=configStr&"userUpImgAllowExt="&chr(34)&Request("userUpImgAllowExt")&chr(34)&" '前台用户上传可上传图片类型"&vbNewLine
configStr=configStr&"userUpImgSize="&Request("userUpImgSize")&" '上传大小，单位：KB"&vbNewLine
configStr=configStr&"userUpFileAllowExt="&chr(34)&Request("userUpFileAllowExt")&chr(34)&" '前台用户上传其它文件类型"&vbNewLine
configStr=configStr&"userUpFileSize="&Request("userUpFileSize")&" '上传大小，单位：KB"&vbNewLine
configStr=configStr&"'-------------------------首页显示记录设置----------------------------"&vbnewline
configStr=configStr&"indexNewsNum="&Request("indexNewsNum")&" '首页显示新闻数"&vbNewLine
configStr=configStr&"indexArtNum="&Request("indexArtNum")&" '首页显示文章数"&vbNewLine
configStr=configStr&"indexPicNum="&Request("indexPicNum")&" '首页显示图片数"&vbNewLine
configStr=configStr&"indexDownNum="&Request("indexDownNum")&" '首页显示下载数"&vbNewLine
configStr=configStr&"indexResNum="&Request("indexResNum")&" '首页显示免费资源数"&vbNewLine
configStr=configStr&"indexGuestbookNum="&Request("indexGuestbookNum")&" '首页显示留言数"&vbNewLine
configStr=configStr&"indexUserNum="&Request("indexUserNum")&" '首页显示用户排行数"&vbNewLine
configStr=configStr&"indexMsgNum="&Request("indexMsgNum")&" '首页显示公告消息数"&vbNewLine
configStr=configStr&"indexFLinkNum="&Request("indexFLinkNum")&" '首页显示友情链接数"&vbNewLine
configStr=configStr&"'-------------------------新闻栏目分页显示信息----------------------------"&vbnewline
configStr=configStr&"NewsPage="&Request("NewsPage")&" '每页显示新闻条数"&vbNewLine
configStr=configStr&"newsOrderNum="&Request("newsOrderNum")&" '热门/推荐显示记录数"&vbNewLine
configStr=configStr&"newsAboutNum="&Request("newsAboutNum")&" '相关显示记录数"&vbNewLine
configStr=configStr&"newsPlNum="&Request("newsPlNum")&" '相关评论显示记录数"&vbNewLine
configStr=configStr&"'-------------------------文章栏目显示信息----------------------------"&vbnewline
configStr=configStr&"articalPage="&Request("articalPage")&" '每页显示文章条数"&vbNewLine
configStr=configStr&"articalOrderNum="&Request("articalOrderNum")&" '热门/推荐显示记录数"&vbNewLine
configStr=configStr&"articalAboutNum="&Request("articalAboutNum")&" '相关显示记录数"&vbNewLine
configStr=configStr&"articlePlNum="&Request("articlePlNum")&" '相关评论显示记录数"&vbNewLine
configStr=configStr&"'-------------------------下载栏目显示信息----------------------------"&vbnewline
configStr=configStr&"downPage="&Request("downPage")&" '每页显示的下载个数"&vbNewLine
configStr=configStr&"downOrderNum="&Request("downOrderNum")&" '热门/推荐显示记录数"&vbNewLine
configStr=configStr&"downAboutNum="&Request("downAboutNum")&" '相关显示记录数"&vbNewLine
configStr=configStr&"downPlNum="&Request("downPlNum")&" '相关评论显示记录数"&vbNewLine
configStr=configStr&"'-------------------------图片栏目显示选项----------------------------"&vbnewline
configStr=configStr&"picPage="&Request("picPage")&" '每页显示图片的个数"&vbNewLine
configStr=configStr&"picOrderNum="&Request("picOrderNum")&" '热门/推荐显示记录数"&vbNewLine
configStr=configStr&"picAboutNum="&Request("picAboutNum")&" '相关显示记录数"&vbNewLine
configStr=configStr&"picPlNum="&Request("picPlNum")&" '相关评论显示记录数"&vbNewLine
configStr=configStr&"'-------------------------免费资源栏目显示选项----------------------------"&vbnewline
configStr=configStr&"resPage="&Request("resPage")&vbNewLine
configStr=configStr&"resOrderNum="&Request("resOrderNum")&vbNewLine
configStr=configStr&"resAboutNum="&Request("resAboutNum")&vbNewLine
configStr=configStr&"resPlNum="&Request("resPlNum")&vbNewLine
configStr=configStr&"'-------------------------其它显示设置----------------------------"&vbnewline
configStr=configStr&"friendLinkpage="&Request("friendLinkpage")&vbNewLine
configStr=configStr&"guestbookPage="&Request("guestbookPage")&vbNewLine
configStr=configStr&"                                                                                                       'Powered By:Maosin CMS"&vbNewLine
configStr=configStr&"%"&chr(62)
configfile="../include/config.asp"
filepath=Server.MapPath(configfile)
'------------------------如果服务器不支持adodb.stream组,请用文件组件---------------------
'Set fso=Server.CreateObject("Scripting.FileSystemObject")
'set stream=fso.openTextFile(filepath,2,false,-2)
'stream.write configstr
'stream.close
'Set fso=Nothing
'response.write stream.ReadAll
Set objStream=Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type=2
objStream.charset="gb2312"
objStream.writeText configStr
Response.Write(objStream.readtext())
objStream.saveToFile filepath,2
objStream.close
set objstream=nothing
adminShowMsg "成功信息","恭喜恭喜,配置修改成功</br>如果您的主机不支持FSO组件,请手工修改 include/config.asp 文件的参数<p><a href=admin_config.asp>直接返回配置页……</a></p>"
End Sub
'========================================================
'MaoSin CMS 1.1      Power by maosin.com
'Email: [e-mail] , [e-mail]
'Web: http://www.maosin.com  http://www.maosin.net
'Copyright (C) 2006 maosin.com All Rights Reserved.
'========================================================
%>