ye_jibenshezhi_save.asp

类似于baidu的百度知道

<!--#include file="../Config.asp"-->
<!--#include file="code.asp"-->
<%if session("admin")="" then
response.write"你没有登录或是非法用户!<meta http-equiv=refresh content='1;url=../Index.asp'>"
response.End()
end if%>
<%
'option explicit
response.buffer=true	
Const PurviewLevel=1    '操作权限
%>
<%
if trim(request("Action"))="Save" then
	dim fso,hf
	set fso=Server.CreateObject("Scripting.FileSystemObject")
	set hf=fso.CreateTextFile(Server.mappath("../Config.asp"),true)
	hf.write "<" & "%" & vbcrlf
	hf.write "Const webname=" & chr(34) & trim(request("webname")) & chr(34) & "        '网站名称" & vbcrlf
	hf.write "Const weburl=" & chr(34) & trim(request("weburl")) & chr(34) & "        '网站地址" & vbcrlf
	hf.write "Const webmaster=" & chr(34) & trim(request("webmaster")) & chr(34) & "        '管理员QQ" & vbcrlf
	hf.write "Const weblogo=" & chr(34) & trim(request("weblogo")) & chr(34) & "        '网站LOGO" & vbcrlf	
	hf.write "Const dbPath=" & chr(34) & trim(request("dbPath")) & chr(34) & "        '数据库存放目录(末尾不要加 / )" & vbcrlf
	hf.write "Const dbname=" & chr(34) & trim(request("dbname")) & chr(34) & "        '数据库文件名" & vbcrlf
	hf.write "Const sqldbPath=" & chr(34) & trim(request("sqldbPath")) & chr(34) & "        '防SQL注入系统数据库存放目录(末尾需加 / )" & vbcrlf
	hf.write "Const sqldbname=" & chr(34) & trim(request("sqldbname")) & chr(34) & "        '防SQL注入系统数据库文件名" & vbcrlf
	hf.write "Const sqladminpass=" & chr(34) & trim(request("sqladminpass")) & chr(34) & "        '防SQL注入系统后台密码" & vbcrlf	
	hf.write "Const MaxPerPage=" & trim(request("MaxPerPage")) &"        '每页的问题数" & vbcrlf
	hf.write "Const UserMaxPerPage=" & trim(request("UserMaxPerPage")) &"        '用户信息中心每页的问题数" & vbcrlf
	hf.write "Const IndexUserMax=" & trim(request("IndexUserMax")) &"        '查看用户信息每页的问题数" & vbcrlf
	hf.write "Const Indexwen=" & trim(request("Indexwen")) &"        '首页是否显示所有问题数。1为是，0为否" & vbcrlf
	hf.write "Const Indexda=" & trim(request("Indexda")) &"        '首页是否显示所有回答数。1为是，0为否" & vbcrlf
	hf.write "Const Indexjie=" & trim(request("Indexjie")) &"        '首页是否显示已解决问题数。1为是，0为否" & vbcrlf
	hf.write "Const Indexweijie=" & trim(request("Indexweijie")) &"        '首页是否显示未解决问题数。1为是，0为否" & vbcrlf
	hf.write "Const Indextou=" & trim(request("Indextou")) &"        '首页是否显示投票中问题数。1为是，0为否" & vbcrlf
	hf.write "Const Indexuser=" & trim(request("Indexuser")) &"        '首页是否显示总注册用户数。1为是，0为否" & vbcrlf
	hf.write "Const Indextui=" & trim(request("Indextui")) &"        '首页精彩推荐条数" & vbcrlf
	hf.write "Const Indexdaijie=" & trim(request("Indexdaijie")) &"        '首页待解决的问题条数" & vbcrlf
	hf.write "Const Indexxinjie=" & trim(request("Indexxinjie")) &"        '首页新解决的问题条数" & vbcrlf
	hf.write "Const Indexts=" & trim(request("Indexts")) &"        '首页投票中的问题条数" & vbcrlf
	hf.write "Const IndexUserpai=" & trim(request("IndexUserpai")) &"        '首页总积分排行榜显示的人数" & vbcrlf
	hf.write "Const IndexUserjin=" & trim(request("IndexUserjin")) &"        '首页显示的最新注册用户人数" & vbcrlf
	hf.write "Const regf=" & trim(request("regf")) &"        '用户注册时获得的积分" & vbcrlf
	hf.write "Const dadf=" & trim(request("dadf")) &"        '用户回答一个问题所得的积分" & vbcrlf
	hf.write "Const dajiadf=" & trim(request("dajiadf")) &"        '用户回答被提问者采纳为最佳答案所得的积分" & vbcrlf
	hf.write "Const clwendf=" & trim(request("clwendf")) &"        '用户处理过期问题所得的积分" & vbcrlf
	hf.write "Const tpdf=" & trim(request("tpdf")) &"        '用户投票所得的积分" & vbcrlf
	hf.write "Const pldf=" & trim(request("pldf")) &"        '用户对最佳答案发表评论所得的积分" & vbcrlf
	hf.write "Const tjwendf=" & trim(request("tjwendf")) &"        '问题被选为精彩推荐提问者所得的积分" & vbcrlf
	hf.write "Const tjdadf=" & trim(request("tjdadf")) &"        '问题被选为精彩推荐最佳回答者所得的积分" & vbcrlf
	hf.write "Const hpdadf=" & trim(request("hpdadf")) &"        '最佳答案受到大量好评回答者所得的积分" & vbcrlf
	hf.write "Const twf=" & trim(request("twf")) &"        '用户发表一个问题所减少的积分" & vbcrlf
	hf.write "Const wenkf=" & trim(request("wenkf")) &"        '提问上线后被管理员删除所扣除的积分" & vbcrlf
	hf.write "Const dakf=" & trim(request("dakf")) &"        '回答上线后被管理员删除所扣除的积分" & vbcrlf
	hf.write "Const plkf=" & trim(request("plkf")) &"        '评论上线后被删除所扣除的积分" & vbcrlf
	hf.write "Const gqkf=" & trim(request("gqkf")) &"        '问题15天内不处理所扣除的积分" & vbcrlf
	hf.write "Const md=" & trim(request("md")) &"        '是否允许匿名提问。1为是，0为否" & vbcrlf
	hf.write "Const mdf=" & trim(request("mdf")) &"        '用户匿名提问所需积分" & vbcrlf
	hf.write "Const gx=" & trim(request("gx")) &"        '是否启用共享资料功能。1为是，0为否" & vbcrlf
	hf.write "Const xzjl=" & trim(request("xzjl")) &"        '用户无偿提供资料下载系统奖励的积分" & vbcrlf
	hf.write "Const fen1=" & trim(request("fen1")) &"        '升到1级所需积分" & vbcrlf
	hf.write "Const fen2=" & trim(request("fen2")) &"        '升到2级所需积分" & vbcrlf
	hf.write "Const fen3=" & trim(request("fen3")) &"        '升到3级所需积分" & vbcrlf
	hf.write "Const fen4=" & trim(request("fen4")) &"        '升到4级所需积分" & vbcrlf
	hf.write "Const fen5=" & trim(request("fen5")) &"        '升到5级所需积分" & vbcrlf
	hf.write "Const fen6=" & trim(request("fen6")) &"        '升到6级所需积分" & vbcrlf
	hf.write "Const fen7=" & trim(request("fen7")) &"        '升到7级所需积分" & vbcrlf
	hf.write "Const fen8=" & trim(request("fen8")) &"        '升到8级所需积分" & vbcrlf
	hf.write "Const fen9=" & trim(request("fen9")) &"        '升到9级所需积分" & vbcrlf
	hf.write "Const fen10=" & trim(request("fen10")) &"        '升到10级所需积分" & vbcrlf
	hf.write "Const ji1=" & chr(34) & trim(request("ji1")) & chr(34) & "        '1级用户的头衔" & vbcrlf
	hf.write "Const ji2=" & chr(34) & trim(request("ji2")) & chr(34) & "        '2级用户的头衔" & vbcrlf
	hf.write "Const ji3=" & chr(34) & trim(request("ji3")) & chr(34) & "        '3级用户的头衔" & vbcrlf
	hf.write "Const ji4=" & chr(34) & trim(request("ji4")) & chr(34) & "        '4级用户的头衔" & vbcrlf
	hf.write "Const ji5=" & chr(34) & trim(request("ji5")) & chr(34) & "        '5级用户的头衔" & vbcrlf
	hf.write "Const ji6=" & chr(34) & trim(request("ji6")) & chr(34) & "        '6级用户的头衔" & vbcrlf
	hf.write "Const ji7=" & chr(34) & trim(request("ji7")) & chr(34) & "        '7级用户的头衔" & vbcrlf
	hf.write "Const ji8=" & chr(34) & trim(request("ji8")) & chr(34) & "        '8级用户的头衔" & vbcrlf
	hf.write "Const ji9=" & chr(34) & trim(request("ji9")) & chr(34) & "        '9级用户的头衔" & vbcrlf
	hf.write "Const ji10=" & chr(34) & trim(request("ji10")) & chr(34) & "        '10级用户的头衔" & vbcrlf
	hf.write "Const welcome=" & chr(34) & trim(request("welcome")) & chr(34) & "        '首页欢迎词" & vbcrlf
	hf.write "%" & ">" & vbcrlf
	hf.close
	set hf=nothing
	set fso=nothing
	response.Redirect "Ye_JiBenSheZhi.asp?Success=True"
end if
%>