<!--#include file = "../inc/dbconn.asp"-->
<!--#include file = "CheckLogin.asp"-->
<!--#include file = "../inc/cache.asp"-->
<!--#include file = "../inc/function.asp"-->
<% LOADING_ADMIN_HEAD %>
<% call dbconn %>
<% response.buffer = true %>
<%
select case gqv("do")
	case "addsetup":addsetup
	case "editsetup":editsetup
	case "saveadd":saveadd
	case "saveedit":saveedit
	case else call alertbox("没有指定任何操作!",2)
end select
' *** ***  www.itmop.com  *** ***
sub addsetup
	dim rscheck
	set rscheck = conn.execute("select top 1 * from DH654_setup")
	if not rscheck.eof then
		rscheck.close:set rscheck = nothing
		response.write("<script>window.location.href=""?do=editsetup"";</script>")
		response.end()
	end if
	LINE "<form name=""form"" action=""?do=saveadd"" method=""post"">"
	LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" border=""0"">"
	LINE "<tr>"
	LINE "<td align=""center"" valign=""middle"">"
	LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" class=""tbl"" id=tbl>"
	LINE "<tr>"
	LINE "<td width=""100%"" align=""center"" height=""30"" colspan=""2"" class=""tbl_head"">系统设置</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">网站名称:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_name"" type=""text"" value="""" maxlength=""50"" size=""30"">&nbsp;例:<font color=""red"">654上网导航</font></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">网站管理员:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_user"" type=""text"" value="""" maxlength=""50"" size=""30"">&nbsp;例:<font color=""red"">乐府诗</font></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">网站关键字:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_keywords"" type=""text"" value="""" size=""30"">&nbsp;多个关键字请用<font color=""red"">,</font>隔开</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">网站描述语句:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_description"" type=""text"" value="""" size=""30"">&nbsp;例:<font color=""red"">轻松上网,简单生活</font></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">网站版权信息:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><textarea name=""site_copyright"" style=""width:220;height:80;""></textarea>&nbsp;支持<font color=""red"">HTML</font>语法</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">网站地址(域名):</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_url"" type=""text"" value=""http://"" maxlength=""50"" size=""30"">&nbsp;<font color=""red"">结尾不加[/],例:http://www.itmop.com</font></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">网站首页模板:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_index_temp"" type=""text"" value="""" maxlength=""50"" size=""30"">&nbsp;例:<font color=""red"">index.htm或dh/index.htm</font>(请正确填写)</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">网站首页模板:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_class_temp"" type=""text"" value="""" maxlength=""50"" size=""30"">&nbsp;例:<font color=""red"">class.htm或dh/class.htm</font>(请正确填写)</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">终极连接模板:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_url_temp"" type=""text"" value="""" maxlength=""50"" size=""30"">&nbsp;例:<font color=""red"">url.htm或dh/url.htm</font>(请正确填写)</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">生成文件后缀名:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%"">"
	LINE "<select name=""site_extname"">"
	LINE "<option value="".htm"">.htm</option>"
	LINE "<option value="".html"">.html</option>"
	LINE "<option value="".shtm"">.shtm</option>"
	LINE "<option value="".shtml"">.shtml</option>"
	LINE "<option value="".asp"">.asp</option>"
	LINE "</select>&nbsp;<font color=""red"">此项慎改!</font>若修改并生成后,请手动删除原生成文件!"
	LINE "</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">网站根目录:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_root"" type=""text"" value="""" maxlength=""50"" size=""30"">&nbsp;例:<font color=""red"">/root</font>(虚拟路径,根目录则留空)</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">文件生成目录:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_html"" type=""text"" value="""" maxlength=""50"" size=""30"">&nbsp;例:<font color=""red"">/web</font>(根目录则留空，非空则/root/web)</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">总上传目录:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_upload"" type=""text"" value="""" maxlength=""50"" size=""30"">&nbsp;例:<font color=""red"">upload</font>(仅填写目录名)</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" align=""center"" colspan=""2"">"
	LINE "<input name=""submit1"" type=""submit"" value=""添加设置"" onclick=""this.disabled=true;document.form.submit();"">&nbsp;"
	LINE "<input name=""submit2"" type=""reset"" value=""重新填写"">&nbsp;"
	LINE "<input name=""submit3"" type=""button"" value=""返回"" onclick=""window.history.back();"">"
	LINE "</td>"
	LINE "</tr>"
	LINE "</table>"
	LINE "</td>"
	LINE "</tr>"
	LINE "</table>"
	LINE "</form>"
end sub
' *** ***  www.itmop.com  *** ***
sub editsetup
	dim rs,sql,databox
	set rs = server.createobject(G_654_RS)
	sql = "select top 1 * from DH654_setup order by id desc"
	rs.open sql,conn,1,1
	if not rs.eof then
	databox = rs.getrows()
	rs.close:set rs = nothing
	dim tempstr01,tempstr02,tempstr03,tempstr04,tempstr05
	if databox(10,0) = ".htm" then tempstr01 = "selected"
	if databox(10,0) = ".html" then tempstr02 = "selected"
	if databox(10,0) = ".shtm" then tempstr03 = "selected"
	if databox(10,0) = ".shtml" then tempstr04 = "selected"
	if databox(10,0) = ".asp" then tempstr05 = "selected"
	LINE "<form name=""form"" action=""?do=saveedit"" method=""post"">"
	LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" border=""0"">"
	LINE "<tr>"
	LINE "<td align=""center"" valign=""middle"">"
	LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" class=""tbl"" id=tbl>"
	LINE "<tr>"
	LINE "<td width=""100%"" align=""center"" height=""30"" colspan=""2"" class=""tbl_head"">系统设置</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">网站名称:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_name"" type=""text"" value=""" & databox(1,0) & """ maxlength=""50"" size=""30"">&nbsp;例:<font color=""red"">654上网导航</font></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">网站管理员:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_user"" type=""text"" value=""" & databox(2,0) & """ maxlength=""50"" size=""30"">&nbsp;例:<font color=""red"">乐府诗</font></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">网站关键字:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_keywords"" type=""text"" value=""" & databox(3,0) & """ size=""30"">&nbsp;多个关键字请用<font color=""red"">,</font>隔开</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">网站描述语句:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_description"" type=""text"" value=""" & databox(4,0) & """ size=""30"">&nbsp;例:<font color=""red"">轻松上网,简单生活</font></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">网站版权信息:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><textarea name=""site_copyright"" style=""width:350;height:80;"">" & databox(5,0) & "</textarea>&nbsp;支持<font color=""red"">HTML</font>语法</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">网站地址(域名):</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_url"" type=""text"" value=""" & databox(6,0) & """ maxlength=""50"" size=""30"">&nbsp;<font color=""red"">结尾不加[/],例:http://www.itmop.com</font></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">网站首页模板:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_index_temp"" type=""text"" value=""" & databox(7,0) & """ maxlength=""50"" size=""30"">&nbsp;例:<font color=""red"">index.htm或dh/index.htm</font>(请正确填写)</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">网站分页模板:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_class_temp"" type=""text"" value=""" & databox(8,0) & """ maxlength=""50"" size=""30"">&nbsp;例:<font color=""red"">class.htm或dh/class.htm</font>(请正确填写)</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">终极连接模板:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_url_temp"" type=""text"" value=""" & databox(9,0) & """ maxlength=""50"" size=""30"">&nbsp;例:<font color=""red"">url.htm或dh/url.htm</font>(请正确填写)</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">生成文件后缀名:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%"">"
	LINE "<select name=""site_extname"">"
	LINE "<option value="".htm"" " & tempstr01 & ">.htm</option>"
	LINE "<option value="".html"" " & tempstr02 & ">.html</option>"
	LINE "<option value="".shtm"" " & tempstr03 & ">.shtm</option>"
	LINE "<option value="".shtml"" " & tempstr04 & ">.shtml</option>"
	LINE "<option value="".asp"" " & tempstr05 & ">.asp</option>"
	LINE "</select>&nbsp;<font color=""red"">此项慎改!</font>若修改并生成后,请手动删除原生成文件!"
	LINE "</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">编辑器:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%"">"
	LINE "<select name=""site_editor"">"
	LINE "<option value=""Fckeditor"" >Fckeditor</option>"
	LINE "<option value=""Editor"">Editor</option>"
	LINE "</select>&nbsp;"
	LINE "</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">网站根目录:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_root"" type=""text"" value=""" & databox(11,0) & """ maxlength=""50"" size=""30"">&nbsp;例:<font color=""red"">/root</font>(虚拟路径,根目录则留空)</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">文件生成目录:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_html"" type=""text"" value=""" & databox(12,0) & """ maxlength=""50"" size=""30"">&nbsp;例:<font color=""red"">/web</font>(根目录则留空，非空则/root/web)</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">总上传目录:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_upload"" type=""text"" value=""" & databox(13,0) & """ maxlength=""50"" size=""30"">&nbsp;例:<font color=""red"">upload</font>(仅填写目录名)</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">搜索引擎:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""site_soso"" type=""text"" value=""" & databox(14,0) & """ maxlength=""50"" size=""30"">&nbsp;例:<font color=""red"">http://so.654.cn/go.asp?key=</font>(相关搜索)</td>"
	LINE "</tr>"
	LINE "</td>"
	LINE "</tr>"
	LINE "</table>"
	LINE "</td>"
	LINE "</tr>"
	LINE "</table>"
	
	LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" border=""0"">"
	LINE "<tr>"
	LINE "<td align=""center"" valign=""middle"">"
	LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" class=""tbl"" id=tbl>"
	LINE "<tr>"
	LINE "<td width=""100%"" align=""center"" height=""30"" colspan=""2"" class=""tbl_head"">彩 色 盒</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">网址/栏目:<BR>（逗号<font color=""red"">，</font>分开）</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><textarea name=""site_ColorBox"" style=""width:350;height:80;"">" & databox(15,0) & "</textarea>&nbsp;用于栏目，网址等的色彩料</td>"
	LINE "</tr>"
	LINE "</tr>"
	LINE "</td>"
	LINE "</tr>"
	LINE "</table>"
	LINE "</td>"
	LINE "</tr>"
	LINE "</table>"

	LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" border=""0"">"
	LINE "<tr>"
	LINE "<td align=""center"" valign=""middle"">"
	LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" class=""tbl"" id=tbl>"
	LINE "<tr>"
	LINE "<td width=""100%"" align=""center"" height=""30"" colspan=""2"" class=""tbl_head"">邮箱信息</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">邮箱帐号:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""SMTPServerUserName"" type=""text"" value=""" & databox(25,0) & """ maxlength=""50"" size=""30"" >&nbsp;例:<font color=""red"">youname</font></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">邮箱密码:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""SMTPServerPassword"" type=""Password"" value=""" & databox(26,0) & """ maxlength=""50"" size=""33"" >&nbsp;例:<font color=""red"">xxxxxxx</font></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">MailDomain:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""MailDomain"" type=""text"" value=""" & databox(27,0) & """ maxlength=""50"" size=""30"" >&nbsp;例:<font color=""red"">126.com</font></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">SMTPServer:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""SMTPServer"" type=""text"" value=""" & databox(28,0) & """ maxlength=""50"" size=""30"" >&nbsp;例:<font color=""red"">smtp.126.com</font></td>"
	LINE "</tr>"	
	LINE "</tr>"
	LINE "</td>"
	LINE "</tr>"
	LINE "</table>"
	LINE "</td>"
	LINE "</tr>"
	LINE "</table>"


	LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" border=""0"">"
	LINE "<tr>"
	LINE "<td align=""center"" valign=""middle"">"
	LINE "<table align=""center"" width=""100%"" cellpadding=""2"" cellspacing=""1"" class=""tbl"" id=tbl>"
	LINE "<tr>"
	LINE "<td width=""100%"" align=""center"" height=""30"" colspan=""2"" class=""tbl_head"">统计信息显示</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">当前日期:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""TJ_day"" type=""text"" value=""" & databox(17,0) & """ maxlength=""50"" size=""30"" readonly=""true"">&nbsp;例:2007-2-<font color=""red"">08</font></td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">当前小时:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""TJ_hour"" type=""text"" value=""" & databox(18,0) & """ maxlength=""50"" size=""30"" readonly=""true"">&nbsp;<font color=""red"">24</font>小时制</td>"
	LINE "</tr>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" width=""20%"" align=""right"">当前时间:</td>"
	LINE "<td bgcolor=""#ffffff"" width=""80%""><input name=""TJ_now"" type=""text"" value=""" & databox(19,0) & """ maxlength=""50"" size=""30"" readonly=""true"">&nbsp;一年<font color=""red"">48~53</font>次(闰年)</td>"
	LINE "</tr>"
	LINE "</tr>"
	LINE "</td>"
	LINE "</tr>"
	LINE "</table>"
	LINE "</td>"
	LINE "</tr>"
	LINE "</table>"
	
	LINE "<table align=""center"" width=""99%"" cellpadding=""2"" cellspacing=""1"" class=""tbl"" id=tbl>"
	LINE "<tr>"
	LINE "<td bgcolor=""#ffffff"" align=""center"">"
	LINE "<input name=""id"" type=""hidden"" value=""" & databox(0,0) & """>"
	LINE "<input name=""submit1"" type=""submit"" value=""修改设置"" onclick=""this.disabled=true;document.form.submit();"">&nbsp;"
	LINE "<input name=""submit2"" type=""reset"" value=""重新填写"">&nbsp;"
	LINE "<input name=""submit3"" type=""button"" value=""返回"" onclick=""window.history.back();"">"
	LINE "</td>"
	LINE "</tr>"
	LINE "</table>"
	LINE "</form>"
	databox = ""
	else
	response.write("读取系统设置失败!请添加设置![<a href=""?do=addsetup"">进入系统设置</a>]")
	response.end()
	end if
end sub
' *** ***  www.itmop.com  *** ***
sub saveadd
	if gfv("site_name") = "" then
		call alertbox("[网站名称]不能为空!",2)
	elseif gfv("site_user") = "" then
		call alertbox("[网站管理员]不能为空!",2)
	elseif gfv("site_keywords") = "" then
		call alertbox("[网站关键字]不能为空!",2)
	elseif gfv("site_description") = "" then
		call alertbox("[网站描述语句]不能为空!",2)
	elseif gfv("site_copyright") = "" then
		call alertbox("[网站版权信息]不能为空!",2)
	elseif gfv("site_upload") = "" then
		call alertbox("[总上传目录]不能为空!",2)
	elseif gfv("site_index_temp") = "" then
		call alertbox("[网站首页模板]不能为空!",2)
	elseif gfv("site_class_temp") = "" then
		call alertbox("[网站分页模板]不能为空!",2)
	elseif gfv("site_url_temp") = "" then
		call alertbox("[终极连接模板]不能为空!",2)
	elseif gfv("site_url") = "" then
		call alertbox("[网站地址(域名)]不能为空!",2)
	end if
	dim rs,sql
	set rs = server.createobject(G_654_RS)
	sql = "select top 1 * from DH654_setup"
	rs.open sql,conn,1,3
	rs.addnew
	rs("site_name") = gfv("site_name")
	rs("site_user") = gfv("site_user")
	rs("site_keywords") = gfv("site_keywords")
	rs("site_description") = gfv("site_description")
	rs("site_copyright") = gfv("site_copyright")
	rs("site_url") = trim(gfv("site_url"))
	rs("site_index_temp") = gfv("site_index_temp")
	rs("site_class_temp") = gfv("site_class_temp")
	rs("site_url_temp") = gfv("site_url_temp")
	rs("site_extname") = gfv("site_extname")
	rs("site_root") = trim(gfv("site_root"))
	rs("site_html") = trim(gfv("site_html"))
	rs("site_upload") = trim(gfv("site_upload"))

	rs("TJ_day") =day(now)   
	rs("TJ_hour") = hour(now) 
	rs("TJ_now") = now()     
	rs("addtime") = dateformat(now(),1)
	rs("site_editor") = "Fckeditor"
	rs("site_ColorBox") = "#6495ED,#000000,#0000FF,#8A2BE2,#A52A2A,#DEB887,#5F9EA0,#000000,#D2691E,#FF7F50,#DC143C,#00008B,#008B8B,#B8860B,#A9A9A9,#006400,#BDB76B,#8B008B,#556B2F,#FF8C00,#9932CC,#8B0000,#E9967A,#8FBC8F,#483D8B,#2F4F4F,#00CED1,#9400D3,#FF1493,#00BFFF,#696969,#1E90FF,#B22222,#875764,#228B22,#345343,#FFD700,#DAA520,#808080,#008000,#CD5C5C,#4B0082,#087664,#7CFC00,#ADD8E6,#F08080,#D3D3D3,#FFB6C1,#FFA07A,#20B2AA,#87CEFA,#778899,#B0C4DE,#32CD32,#FF00FF,#800000,#66CDAA,#0000CD,#BA55D3,#9370DB,#3CB371,#7B68EE,#00FA9A,#48D1CC,#C71585,#191970,#000080,#808000,#6B8E23,#FFA500,#FF4500,#DA70D6,#98FB98,#DB7093,#CD853F,#FFC0CB,#DDA0DD,#B0E0E6,#800080,#FF0000,#BC8F8F,#4169E1,#8B4513,#FA8072,#F4A460,#2E8B57,#A0522D,#C0C0C0,#87CEEB,#6A5ACD,#708090,#4682B4,#D2B48C,#008080,#D8BFD8,#FF6347,#40E0D0,#EE82EE,#F5DEB3,#435454,#9ACD32"
	rs("site_Ku") = "招商,游戏,下载,文学,军事,体育,音乐,视频,证券,新闻,聊天,社区,博客,交友,星座,动漫,邮箱,健康,女性,房产,汽车,手机,人才,硬件,购物"
	rs("site_Channel") = "城市导航,主打分站,热门网址,热门搜索,名站导航,话题(上),话题(中),话题(下),实用工具,常用软件,垂直导航,网站榜中榜,游戏专题,流行音乐榜,人气影视榜,火爆游戏榜,炫酷图铃榜"

	rs.update
	rs.close:set rs = nothing
	call SendTo654cn(gfv("site_name"),gfv("site_user"),gfv("site_url"),Version)
	call alertbox("恭喜!添加系统设置成功!",2)
end sub
' *** ***  www.itmop.com  *** ***
sub saveedit
    if not Check_Popedom("H501") then call alertbox("你没有权限操作",2)
	if gfv("site_name") = "" then
		call alertbox("[网站名称]不能为空!",2)
	elseif gfv("site_user") = "" then
		call alertbox("[网站管理员]不能为空!",2)
	elseif gfv("site_keywords") = "" then
		call alertbox("[网站关键字]不能为空!",2)
	elseif gfv("site_description") = "" then
		call alertbox("[网站描述语句]不能为空!",2)
	elseif gfv("site_copyright") = "" then
		call alertbox("[网站版权信息]不能为空!",2)
	elseif gfv("site_upload") = "" then
		call alertbox("[总上传目录]不能为空!",2)
	elseif gfv("site_index_temp") = "" then
		call alertbox("[网站首页模板]不能为空!",2)
	elseif gfv("site_class_temp") = "" then
		call alertbox("[网站分页模板]不能为空!",2)
	elseif gfv("site_url_temp") = "" then
		call alertbox("[终极连接模板]不能为空!",2)
	elseif gfv("site_url") = "" then
		call alertbox("[网站地址(域名)]不能为空!",2)
	end if
	dim rs,sql
	set rs = server.createobject(G_654_RS)
	sql = "select top 1 * from DH654_setup where id=" & gfv("id")
	rs.open sql,conn,1,3
	rs("site_name") = gfv("site_name")
	rs("site_user") = gfv("site_user")
	rs("site_keywords") = gfv("site_keywords")
	rs("site_description") = gfv("site_description")
	rs("site_copyright") = gfv("site_copyright")
	rs("site_url") = trim(gfv("site_url"))
	rs("site_index_temp") = gfv("site_index_temp")
	rs("site_class_temp") = gfv("site_class_temp")
	rs("site_url_temp") = gfv("site_url_temp")
	rs("site_extname") = gfv("site_extname")
	rs("site_editor") = trim(gfv("site_editor"))
	rs("site_root") = trim(gfv("site_root"))
	rs("site_html") = trim(gfv("site_html"))
	rs("site_upload") = trim(gfv("site_upload"))
	rs("site_soso") = trim(gfv("site_soso"))
	rs("site_ColorBox") = trim(gfv("site_ColorBox"))
	rs("SMTPServerUserName") = trim(gfv("SMTPServerUserName"))
	rs("SMTPServerPassword") = trim(gfv("SMTPServerPassword"))
	rs("MailDomain") = trim(gfv("MailDomain"))
	rs("SMTPServer") = trim(gfv("SMTPServer"))
	
	rs("TJ_day") =day(now)    
	rs("TJ_hour") = hour(now)  
	rs("TJ_now") = now()      
	
	rs.update
	rs.close:set rs = nothing
	call alertbox("恭喜!修改系统设置成功!\n\n若文件夹设置有变,请手动转移文件!",2)
end sub
%>
<% LOADING_ADMIN_FOOT %>
