admin_webconsave.asp

大榕树网络文章管理系统

<%
Option Explicit
Response.buffer=true
const purviewlevel=2
%>
<!--#include file="admin_PurviewChe.asp" -->
<%
if trim(request("webconfig"))="save" then
	dim fso,config
	set fso=Server.CreateObject("Scripting.FileSystemObject")
	set config=fso.CreateTextFile(Server.mappath("../inc/webconfig.asp"),true)
	config.write "<" & "%" & vbcrlf
	config.write "Const webName=" & chr(34) & trim(request("webName")) & chr(34) & "        '网站名称" & vbcrlf
    config.write "Const webText="& chr(34) & trim(request("webText")) & chr(34) & "       '网站页面显示的标题" & vbcrlf
	config.write "Const webLogoUrl="& chr(34) &  trim(request("webLogoUrl")) & chr(34) &"  '网站Logo地址" & vbcrlf
    config.write "Const webUrl="& chr(34) & trim(request("webUrl")) & chr(34) & "      '网站链接地地址" & vbcrlf
    config.write "Const webkey="& chr(34) &  trim(request("webkey")) & chr(34) &"     '网站关键字" & vbcrlf
    config.write "Const webCopyright="& chr(34) &  trim(request("webCopyright")) & chr(34) &"     '网站所属版权" & vbcrlf
	config.write "Const webManager="& chr(34) &  trim(request("webManager")) & chr(34) &"     '站长名称" & vbcrlf
   	config.write "Const webManagerEmail="& chr(34) &  trim(request("webManagerEmail")) & chr(34) &"     '站长Email" & vbcrlf	
   	config.write "Const webBeian="& chr(34) &  trim(request("webBeian")) & chr(34) &"     '网站备案链接" & vbcrlf	
   	config.write "Const BeianNo="& chr(34) &  trim(request("BeianNo")) & chr(34) &"     '备案号" & vbcrlf	
	
	config.write "Const UserRegshow="& chr(34) & trim(request("UserRegshow")) & chr(34) &"     '是否开放用户注册" & vbcrlf
	config.write "Const UserLoginshow="& chr(34)  & trim(request("UserLoginshow")) & chr(34) & "   '是否开放用户登录"  & vbcrlf
	config.write "Const UserArtAddshow="& chr(34) & trim(request("UserArtAddshow")) & chr(34) & "   '是否允许用户发表文章"  & vbcrlf
	config.write "Const UserArtManshow="& chr(34)  & trim(request("UserArtManshow")) & chr(34) & "    '是允许用户管理文章" & vbcrlf
	config.write "Const FriendLinkshow="& chr(34) & trim(request("FriendLinkshow")) & chr(34) & "    '是否开放友情链接" & vbcrlf
	config.write "Const UserCommentshow="& chr(34) & trim(request("UserCommentshow")) & chr(34) & "    '是否开放用户评论" & vbcrlf
	config.write "Const BbsShowshow="& chr(34) & trim(request("BbsShowshow")) & chr(34) & "   '是否开放BBS" & vbcrlf
	config.write "Const BbsAddshow="& chr(34) & trim(request("BbsAddshow")) & chr(34) & "   '是否开放BBS发贴功能" & vbcrlf
	config.write "Const BbsRegshow="& chr(34) & trim(request("BbsRegshow")) & chr(34) & "   '是否开放BBS回复" & vbcrlf
	config.write "Const AdvTopshow="& chr(34) & trim(request("AdvTopshow")) & chr(34) & "   '是否开启页面顶部广告" & vbcrlf
	config.write "Const AdvIndexshow="& chr(34) & trim(request("AdvIndexshow")) & chr(34) & "  '是否开启页面开头广告" & vbcrlf
	config.write "Const AdvModshow="& chr(34) & trim(request("AdvModshow")) & chr(34) & "  '是否开启页面中部广告" & vbcrlf
	config.write "Const AdvDownshow="& chr(34) & trim(request("AdvDownshow")) & chr(34) & "  '是否开启页面底部广告" & vbcrlf
	config.write "Const AdvOpenshow="& chr(34) & trim(request("AdvOpenshow")) & chr(34) & "  '是否开启弹出广告" & vbcrlf
	config.write "Const AdvIndexLRshow="& chr(34) & trim(request("AdvIndexLRshow")) & chr(34) & "  '是否开启首页左右广告" & vbcrlf
	config.write "Const VoteShowshow="& chr(34) & trim(request("VoteShowshow")) & chr(34) & "  '是否开放本站调查" & vbcrlf
	config.write "Const UserShowshow="& chr(34) & trim(request("UserShowshow")) & chr(34) & "  '是否显示用户排行" & vbcrlf
	config.write "Const WebShowshow="& chr(34) & trim(request("WebShowshow")) & chr(34) & "  '是否显示本站统计" & vbcrlf
	config.write "Const UserPassShow="& chr(34) & trim(request("UserPassShow")) & chr(34) & "  '是否开启用户审核功能" & vbcrlf
	config.write "Const AnnWindowOpenShow="& chr(34) & trim(request("AnnWindowOpenShow")) & chr(34) & "  '是否弹出公告" & vbcrlf
	config.write "Const BBSPassed="& chr(34) & trim(request("BBSPassed")) & chr(34) & "  '是否开启BBS审核功能" & vbcrlf
	config.write "Const rebbspass="& chr(34) & trim(request("rebbspass")) & chr(34) & "  '是否开启BBS回复审核功能" & vbcrlf
	config.write "Const compass="& chr(34) & trim(request("compass")) & chr(34) & "  '是否开启评论审核功能" & vbcrlf
	config.write "Const usuploadphoto="& chr(34) & trim(request("usuploadphoto")) & chr(34) & "  '是否允许用户上传图像" & vbcrlf


	config.write "Const AllArts="& chr(34) & trim(request("AllArts")) & chr(34) & "  '所有文章每页显示数" & vbcrlf
	config.write "Const SmallClassArts="& chr(34) & trim(request("SmallClassArts")) & chr(34) & "  '小类面板显示的文章数" & vbcrlf
	config.write "Const SearchArts="& chr(34) & trim(request("SearchArts")) & chr(34) & "  '搜索面板每页显示文章数" & vbcrlf
	config.write "Const ArtComments="& chr(34) & trim(request("ArtComments")) & chr(34) & "  '文章评论每页最多显示数" & vbcrlf
	config.write "Const BbsTitles="& chr(34) & trim(request("BbsTitles")) & chr(34) & "  'BBS每页显示主题数" & vbcrlf
	config.write "Const BbsRegs="& chr(34) & trim(request("BbsRegs")) & chr(34) & "  'BBS回复最多显示数" & vbcrlf
	config.write "Const FriendLinks="& chr(34) & trim(request("FriendLinks")) & chr(34) & "  '友情链接每页显示链接数" & vbcrlf
	config.write "Const Anns="& chr(34) & trim(request("Anns")) & chr(34) & "  '公告每页显示数" & vbcrlf
	config.write "Const ArticleHots="& chr(34) & trim(request("ArticleHots")) & chr(34) & "  '文章转为精华文章点击数" & vbcrlf
	config.write "Const flashhits="& chr(34) & trim(request("flashhits")) & chr(34) & "  '自动转为初级作家" & vbcrlf
	config.write "Const ArticleCount="& chr(34) & trim(request("ArticleCount")) & chr(34) & "  '文章内容每页显示数" & vbcrlf
	config.write "Const Imghitss="& chr(34) & trim(request("Imghitss")) & chr(34) & "  '自动转为中级作家" & vbcrlf
	config.write "Const softhitss="& chr(34) & trim(request("softhitss")) & chr(34) & "  '自动转为高级作家" & vbcrlf	
			
	config.write "Const EnableUploadFile="& chr(34) & trim(request("EnableUploadFile")) & chr(34) & "  '是否开放文件上传功能" & vbcrlf
	config.write "Const MaxFileSize="& chr(34) &  trim(request("MaxFileSize")) & chr(34) & "   '文件上传大小限制" & vbcrlf
	config.write "Const SaveUpFilesPath="& chr(34) & trim(request("SaveUpFilesPath")) & chr(34) & "   '存放文件的路径" & vbcrlf
	config.write "Const UpFileType="& chr(34) & trim(request("UpFileType")) & chr(34) & "   '允许上传文件的类型" & vbcrlf
	config.write "Const DelUpFiles="& chr(34) & trim(request("DelUpFiles")) & chr(34) & "   '删除文章时是否同时删除在文章中的文件" & vbcrlf
	config.write "%" & ">"
	config.close
	set config=nothing
	set fso=nothing
	response.redirect"admin_WebConfig.asp?success=true"
	end if
%>