siteconfigsave.asp

希瑞电驴小偷第三版 程序功能：添加链接、修改链接、删除链接、清空链接、管理链接等

<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true
%>
<!--#include file="inc/function.asp"-->
<%
if trim(request("Action"))="Save" then
	dim fso,hf
	set fso=Server.CreateObject("Scripting.FileSystemObject")
	set hf=fso.CreateTextFile(Server.mappath("inc/config.asp"),true)
	hf.write "<" & "%" & vbcrlf
	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 ErrMsg=" & chr(34) & trim(request("ErrMsg")) & chr(34) & "        '读取失败时,显示的出错信息" & vbcrlf
	hf.write "Const siteLogo=" & chr(34) & trim(request("siteLogo")) & chr(34) & "        'Logo地址" & 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 beiAn=" & chr(34) & trim(request("beiAn")) & chr(34) & "        '网站备案" & vbcrlf
	hf.write "'######广告设置#######" & vbcrlf
	hf.write "Const headAD=" & chr(34) & trim(request("headAD")) & chr(34) & "        '全站头部广告" & vbcrlf
	hf.write "Const topAD=" & chr(34) & trim(request("topAD")) & chr(34) & "        '首页顶部广告" & vbcrlf
	hf.write "Const midAD=" & chr(34) & trim(request("midAD")) & chr(34) & "        '首页中部广告" & vbcrlf
	hf.write "Const btAD=" & chr(34) & trim(request("btAD")) & chr(34) & "        '全部底部广告" & vbcrlf
	hf.write "Const showAD=" & chr(34) & trim(request("showAD")) & chr(34) & "        '内容页广告" & vbcrlf
	hf.write "Const linkAD=" & chr(34) & trim(request("linkAD")) & chr(34) & "        '内容页广告" & vbcrlf
	hf.write "%" & ">"
	hf.close
	set hf=nothing
	set fso=nothing
	response.Redirect "admin.asp?Success=True"
end if
%>