<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
If Not CheckAdmin("SiteConfig") Then
    Server.Transfer("showerr.asp")
    Response.End
End If
'╭──CaiSF发布网───────────────╮
'┃　　　　　　      　　             　　 ┃
'┃程序类型:发布站程序　　　　　　　       ┃
'┃购买认证:冰精灵GM基地　　　　　         ┃
'┃程序版本:Ver6.0　　　　　　　           ┃
'┃程序作者:CaiSF发布网　　　　　　　           ┃
'┃联 系 QQ:53660542                      ┃
'┃联系电话:18279334567　　　　　　　      ┃
'┃官方网站:http://Www.CaiSF.COM            ┃
'┃版权所有:CaiSF发布网　　　　　　             ┃
'┃　　　　　　　　             　　　　   ┃
'┃　         版权声明：转载请保留版权信息 ┃
'╰───────────Cool network───╯
Action = LCase(Request("action"))
titlename="系统基本设置"
Admin_header
Select Case action
  Case "reload"
    Call ReloadCache
  Case "save"
    Call SaveConfig
  Case "restore"
    Call RestoreConfig
  Case Else
    Call MainConfig
End Select
If FoundErr = True Then
	ReturnError(ErrMsg)
End If
Admin_footer
CloseConn
Sub MainConfig()
	dim start1,start2
	if QiKuCMS.ifopen=1 then start1= "checked"  else start2="checked" 
	Response.Write "<table align=""center"" border=""0"" cellspacing=""1"" cellpadding=""2"" class=""tableBorder"">" & vbCrLf
	Response.Write "<form name=""myform"" method=""POST"" action=""?action=save"">" & vbCrLf
        Response.Write "<table cellpadding=""3"" cellspacing=""1"" border=""0"" width=""100%"" class=""tableBorder"" align=center>" & vbCrLf
        Response.Write "<th colspan=0 height=25><font color=#ffffff>网站基本信息</th>" & vbCrLf
	Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder2"">" & vbCrLf
		Response.Write "<tr>" & vbCrLf
	Response.Write "<td width=""25%"" " & RightClass & ">网站状态：</td>" & vbCrLf
	Response.Write "<td width=""*"" " & LeftClass & ">开启<input type='radio' name='start' value='1' "&start1&">  关闭<input type='radio' name='start' value='0' "&start2&"></td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td width=""25%"" " & RightClass & ">访问限制：</td>" & vbCrLf
	Response.Write "<td width=""*"" " & LeftClass & "><textarea name='xzip' class=""qiku4_out"">"&QiKuCMS.xzip&"</textarea><span class=style1>填写要限制的IP,多个的话用，隔开</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td width=""25%"" " & RightClass & ">网站标题：</td>" & vbCrLf
	Response.Write "<td width=""*"" " & LeftClass & "><input type=""text"" name=""SiteName"" value=""" & QiKuCMS.WebName & """ size=""25"" class=""input_out""><span class=style1>例如：CaiSF发布网</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">网站地址：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""WebUrl"" value=""" & QiKuCMS.WebUrl & """ size=""25"" class=""input_out""><span class=style1>例如：http://Www.CaiSF.COM</span></td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td "& RightClass & ">版权信息：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><textarea name=""Copyright"" cols=""50"" rows=""5"" class=""qiku_out"">" & QiKuCMS.Copyright & "</textarea><span class=style1>支持HTML代码</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">网站描述优化：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><textarea name=""Renovates"" cols=""50"" rows=""5"" class=""qiku_out"">" & QiKuCMS.Renovates & "</textarea><span class=style1>请不要回车换行</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">关键词优化：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><textarea name=""WebKeywords"" cols=""50"" rows=""5"" class=""qiku_out"">" & QiKuCMS.WebKeywords & "</textarea> 用,隔开，建议密度适当 </td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">精品套黄前文字：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><textarea name=""IsNews"" cols=""50"" rows=""5"" class=""qiku_out"">" & QiKuCMS.IsNews & "</textarea><span class=style1>支持HTML代码</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">游戏类型ID：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""IndexGame"" value=""" & QiKuCMS.IndexGame & """ size=""5"" class=""input_out""><span class=style1>不要随意更改！</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">网站宽度：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""TabWidth"" value=""" & QiKuCMS.TabWidth & """ size=""5"" class=""input_out""><span class=style1>可用百分比或绝对值</span></td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">管理员QQ：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""Webmaster"" value=""" & QiKuCMS.Webmaster & """ size=""15"" class=""input_out""></td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "</table>" & vbCrLf
	Response.Write "<table width=""98%"" border=0><tr></td></tr></table>" & vbCrLf

        Response.Write "<table cellpadding=""3"" cellspacing=""1"" border=""0"" width=""100%"" class=""tableBorder"" align=center>" & vbCrLf
        Response.Write "<th colspan=2 height=25><font color=#ffffff>系统开关设置</th>" & vbCrLf
	Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder2"">" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td width=""25%"" " & RightClass & ">游戏审核：</td>" & vbCrLf
	Response.Write "<td width=""*"" " & LeftClass & ">" & vbCrLf
	Response.Write "<input type=""radio"" name=""sfUlock"" value=""0"" "
	If Clng(QiKuCMS.sfUlock)=0 then
	Response.Write "checked"
	End If
	Response.Write ">审核显示 " & vbCrLf
	Response.Write "<input type=""radio"" name=""sfUlock"" value=""1"" "
	If Clng(QiKuCMS.sfUlock)=1 then
	Response.Write "checked"
	End If
	Response.Write ">暂不审核" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">家族审核：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & ">" & vbCrLf
	Response.Write "<input type=""radio"" name=""jzUlock"" value=""0"" "
	If Clng(QiKuCMS.jzUlock)=0 then
	Response.Write "checked"
	End If
	Response.Write ">审核显示 " & vbCrLf
	Response.Write "<input type=""radio"" name=""jzUlock"" value=""1"" "
	If Clng(QiKuCMS.jzUlock)=1 then
	Response.Write "checked"
	End If
Response.Write ">暂不审核" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">家族审核：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & ">" & vbCrLf
	Response.Write "<input type=""radio"" name=""jzUlock"" value=""0"" "
	If Clng(QiKuCMS.jzUlock)=0 then
	Response.Write "checked"
	End If
	Response.Write ">审核显示 " & vbCrLf
	Response.Write "<input type=""radio"" name=""jzUlock"" value=""1"" "
	If Clng(QiKuCMS.jzUlock)=1 then
	Response.Write "checked"
	End If
	Response.Write ">暂不审核" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">点击查看：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & ">" & vbCrLf
	Response.Write "<input type=""radio"" name=""sfLook"" value=""0"" "
	If Clng(QiKuCMS.sfLook) = 0 then
	Response.Write "checked"
	End If
	Response.Write ">查看主页 " & vbCrLf
	Response.Write "<input type=""radio"" name=""sfLook"" value=""1"" "
	If Clng(QiKuCMS.sfLook)=1 then
	Response.Write "checked"
	End If
	Response.Write ">查看介绍" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">运行方式：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & ">" & vbCrLf
	Response.Write "<input type=""radio"" name=""ShowHtml"" value=""0"" "
	If Clng(QiKuCMS.ShowHtml) = 0 then
	Response.Write "checked"
	End If
	Response.Write ">全静态页 " & vbCrLf
	Response.Write "<input type=""radio"" name=""ShowHtml"" value=""1"" "
	If Clng(QiKuCMS.ShowHtml)=1 then
	Response.Write "checked"
	End If
	Response.Write ">全动态页" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">首页显示：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & ">" & vbCrLf
	Response.Write "<input name=""Indexsf1"" type=""checkbox"" value=""yes"" "
	If Clng(QiKuCMS.Indexsf1) = 1 then response.write "checked"
	Response.Write "> 今天游戏 "
	Response.Write "<input name=""Indexsf2"" type=""checkbox"" value=""yes"" "
	If Clng(QiKuCMS.Indexsf2) = 1 then response.write "checked"
	Response.Write "> 明天游戏 "
	Response.Write "<input name=""Indexsf3"" type=""checkbox"" value=""yes"" "
	If Clng(QiKuCMS.Indexsf3) = 1 then response.write "checked"
	Response.Write "> 后天游戏 "
	Response.Write "<input name=""Indexsf4"" type=""checkbox"" value=""yes"" "
	If Clng(QiKuCMS.Indexsf4) = 1 then response.write "checked"
	Response.Write "> 昨天游戏 "
	Response.Write "<input name=""Indexsf5"" type=""checkbox"" value=""yes"" "
	If Clng(QiKuCMS.Indexsf5) = 1 then response.write "checked"
	Response.Write "> 前天游戏 "

	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "</table>" & vbCrLf
	Response.Write "<table width=""98%"" border=0><tr></td></tr></table>" & vbCrLf

        Response.Write "<table cellpadding=""3"" cellspacing=""1"" border=""0"" width=""100%"" class=""tableBorder"" align=center>" & vbCrLf
        Response.Write "<th colspan=2 height=25><font color=#ffffff>系统采集设置</th>" & vbCrLf
	Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder2"">" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td width=""25%"" " & RightClass & ">游戏类型ID：</td>" & vbCrLf
	Response.Write "<td width=""*"" " & LeftClass & "><input type=""text"" name=""mirsfID"" value=""" & QiKuCMS.mirsfID & """ size=""5"" class=""input_out""> "
	Response.Write "每次采集不同类别游戏要设置，一定注意，不知道请<a href=admin_type.asp><font color=""#FF0000"">查看类型ID</font></a></td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">游戏天数：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""mirsfday"" value=""" & QiKuCMS.mirsfday & """ size=""5"" class=""input_out""> 本系统支持1-7天广告</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">是否通宵：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & ">" & vbCrLf
	Response.Write "<input type=""radio"" name=""sf_hot"" value=""0"" "
	If Clng(QiKuCMS.sf_hot) = 0 then
	Response.Write "checked"
	End If
	Response.Write ">手工通宵 " & vbCrLf
	Response.Write "<input type=""radio"" name=""sf_hot"" value=""1"" "
	If Clng(QiKuCMS.sf_hot)=1 then
	Response.Write "checked"
	End If
	Response.Write ">全部通宵" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">是否固顶：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & ">" & vbCrLf
	Response.Write "<input type=""radio"" name=""sf_top"" value=""0"" "
	If Clng(QiKuCMS.sf_top) = 0 then
	Response.Write "checked"
	End If
	Response.Write ">手工固顶 " & vbCrLf
	Response.Write "<input type=""radio"" name=""sf_top"" value=""1"" "
	If Clng(QiKuCMS.sf_top)=1 then
	Response.Write "checked"
	End If
	Response.Write ">全部固顶" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "</table>" & vbCrLf
	Response.Write "<table width=""98%"" border=0><tr></td></tr></table>" & vbCrLf
        Response.Write "<table cellpadding=""3"" cellspacing=""1"" border=""0"" width=""100%"" class=""tableBorder"" align=center>" & vbCrLf
        Response.Write "<th colspan=2 height=25><font color=#ffffff>信息背景设置</th>" & vbCrLf

	Response.Write "<table width=""99%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder2"">" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td width=""25%"" " & RightClass & ">全天私服：</td>" & vbCrLf
	Response.Write "<td width=""*"" " & LeftClass & "><input type=""text"" name=""bg_1"" value=""" & qikucms.bg_1 & """ size=""25""> "
	Response.Write "<SELECT id=bg_11 size=1 name=bg_11  onchange=""(document.myform.bg_1.value=this.options[this.selectedIndex].value)"">" & vbCrLf
	Response.Write "<option selected>颜色选择</option>" & vbCrLf
	SF_Bg
	Response.Write "</SELECT> 全天私服背景颜色！</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">鼠标经过：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_1_1"" value=""" & qikucms.bg_1_1 & """ size=""25""> "
	Response.Write "<SELECT id=bg_1_11 size=1 name=bg_1_11  onchange=""(document.myform.bg_1_1.value=this.options[this.selectedIndex].value)"">" & vbCrLf
	Response.Write "<option selected>颜色选择</option>" & vbCrLf
	SF_Bg
	Response.Write "</SELECT> 全天私服鼠标经过颜色！</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">当前开机：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_2"" value=""" & qikucms.bg_2 & """ size=""25""> "
	Response.Write "<SELECT id=bg_21 size=1 name=bg_21  onchange=""(document.myform.bg_2.value=this.options[this.selectedIndex].value)"">" & vbCrLf
	Response.Write "<option selected>颜色选择</option>" & vbCrLf
	SF_Bg
	Response.Write "</SELECT> 当前开机套黄背景颜色！</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">鼠标经过：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_2_2"" value=""" & qikucms.bg_2_2 & """ size=""25""> "
	Response.Write "<SELECT id=bg_2_21 size=1 name=bg_2_21  onchange=""(document.myform.bg_2_2.value=this.options[this.selectedIndex].value)"">" & vbCrLf
	Response.Write "<option selected>颜色选择</option>" & vbCrLf
	SF_Bg
	Response.Write "</SELECT> 当前开机套黄鼠标经过颜色！</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">已开私服：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_3"" value=""" & qikucms.bg_3 & """ size=""25""> "
	Response.Write "<SELECT id=bg_31 size=1 name=bg_31  onchange=""(document.myform.bg_3.value=this.options[this.selectedIndex].value)"">" & vbCrLf
	Response.Write "<option selected>颜色选择</option>" & vbCrLf
	SF_Bg
	Response.Write "</SELECT> 今天过点私服背景颜色！</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">鼠标经过：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_3_3"" value=""" & qikucms.bg_3_3 & """ size=""25""> "
	Response.Write "<SELECT id=bg_3_31 size=1 name=bg_3_31  onchange=""(document.myform.bg_3_3.value=this.options[this.selectedIndex].value)"">" & vbCrLf
	Response.Write "<option selected>颜色选择</option>" & vbCrLf
	SF_Bg
	Response.Write "</SELECT> 今天过点私服颜色！</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">未开私服：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_4"" value=""" & qikucms.bg_4 & """ size=""25""> "
	Response.Write "<SELECT id=bg_41 size=1 name=bg_41  onchange=""(document.myform.bg_4.value=this.options[this.selectedIndex].value)"">" & vbCrLf
	Response.Write "<option selected>颜色选择</option>" & vbCrLf
	SF_Bg
	Response.Write "</SELECT> 今日未到点私服背景颜色！</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf

	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">鼠标经过：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_4_4"" value=""" & qikucms.bg_4_4 & """ size=""25""> "
	Response.Write "<SELECT id=bg_4_41 size=1 name=bg_4_41  onchange=""(document.myform.bg_4_4.value=this.options[this.selectedIndex].value)"">" & vbCrLf
	Response.Write "<option selected>颜色选择</option>" & vbCrLf
	SF_Bg
	Response.Write "</SELECT>今日未到点私服经过颜色！</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">通宵私服：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_5"" value=""" & qikucms.bg_5 & """ size=""25""> "
	Response.Write "<SELECT id=bg_51 size=1 name=bg_51  onchange=""(document.myform.bg_5.value=this.options[this.selectedIndex].value)"">" & vbCrLf
	Response.Write "<option selected>颜色选择</option>" & vbCrLf
	SF_Bg
	Response.Write "</SELECT> 通宵私服背景颜色！</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf

	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">鼠标经过：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_5_5"" value=""" & qikucms.bg_5_5 & """ size=""25""> "
	Response.Write "<SELECT id=bg_5_51 size=1 name=bg_5_51  onchange=""(document.myform.bg_5_5.value=this.options[this.selectedIndex].value)"">" & vbCrLf
	Response.Write "<option selected>颜色选择</option>" & vbCrLf
	SF_Bg
	Response.Write "</SELECT>通宵私服经过颜色！</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">通宵固顶：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_6"" value=""" & qikucms.bg_6 & """ size=""25""> "
	Response.Write "<SELECT id=bg_61 size=1 name=bg_61  onchange=""(document.myform.bg_6.value=this.options[this.selectedIndex].value)"">" & vbCrLf
	Response.Write "<option selected>颜色选择</option>" & vbCrLf
	SF_Bg
	Response.Write "</SELECT> 通宵固顶私服背景颜色！</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf

	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">鼠标经过：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_6_6"" value=""" & qikucms.bg_6_6 & """ size=""25""> "
	Response.Write "<SELECT id=bg_6_61 size=1 name=bg_6_61  onchange=""(document.myform.bg_6_6.value=this.options[this.selectedIndex].value)"">" & vbCrLf
	Response.Write "<option selected>颜色选择</option>" & vbCrLf
	SF_Bg
	Response.Write "</SELECT>通宵固顶私服经过颜色！</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">已经开放：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_7"" value=""" & qikucms.bg_7 & """ size=""25""> "
	Response.Write "<SELECT id=bg_71 size=1 name=bg_71  onchange=""(document.myform.bg_7.value=this.options[this.selectedIndex].value)"">" & vbCrLf
	Response.Write "<option selected>颜色选择</option>" & vbCrLf
	SF_Bg
	Response.Write "</SELECT> 昨天已前开放私服背景颜色！</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf

	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">鼠标经过：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_7_7"" value=""" & qikucms.bg_7_7 & """ size=""25""> "
	Response.Write "<SELECT id=bg_7_71 size=1 name=bg_7_71  onchange=""(document.myform.bg_7_7.value=this.options[this.selectedIndex].value)"">" & vbCrLf
	Response.Write "<option selected>颜色选择</option>" & vbCrLf
	SF_Bg
	Response.Write "</SELECT>昨天已前开放私服经过颜色！</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">以后开放：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_8"" value=""" & qikucms.bg_8 & """ size=""25""> "
	Response.Write "<SELECT id=bg_81 size=1 name=bg_81  onchange=""(document.myform.bg_8.value=this.options[this.selectedIndex].value)"">" & vbCrLf
	Response.Write "<option selected>颜色选择</option>" & vbCrLf
	SF_Bg
	Response.Write "</SELECT> 以后开放私服背景颜色！</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf

	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">鼠标经过：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_8_8"" value=""" & qikucms.bg_8_8 & """ size=""25""> "
	Response.Write "<SELECT id=bg_8_81 size=1 name=bg_8_81  onchange=""(document.myform.bg_8_8.value=this.options[this.selectedIndex].value)"">" & vbCrLf
	Response.Write "<option selected>颜色选择</option>" & vbCrLf
	SF_Bg
	Response.Write "</SELECT> 今日私服非套黄鼠标经过颜色！</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "</table>" & vbCrLf
	Response.Write "<table width=""98%"" border=0><tr><td height=""5""></td></tr></table>" & vbCrLf
	Response.Write "</fieldset>" & vbCrLf

	Response.Write "<fieldset style=""cursor: default""><legend>&nbsp;系统其他设置 <a name=""setting5""></a> [<a href=""#top"">顶部</a>]</legend>" & vbCrLf
	Response.Write "<table width=""99%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder2"">" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td width=""25%"" " & RightClass & ">人气递增：</td>" & vbCrLf
	Response.Write "<td width=""*"" " & LeftClass & "><input type=""text"" name=""sfhits"" value=""" & QiKuCMS.sfhits & """ size=""10"" class=""input_out""> 游戏浏览一次增加人气值</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">通宵时间：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""hottime_1"" value=""" & QiKuCMS.hottime_1 & """ size=""5"" class=""input_out""> "
	Response.Write "→ <input type=""text"" name=""hottime_2"" value=""" & QiKuCMS.hottime_2 & """ size=""5"" class=""input_out""></td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">精品游戏：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""finePage"" value=""" & QiKuCMS.finePage & """ size=""25"" class=""input_out""> 用于首页精品游戏显示的个数</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">前台分页：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""MaxPerPage"" value=""" & QiKuCMS.MaxPerPage & """ size=""25"" class=""input_out""> 前台带分页的页面每页记录数</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">后台分页：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""AdminPage"" value=""" & QiKuCMS.AdminPage & """ size=""25"" class=""input_out""> 后台带分页的页面每页记录数</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td " & RightClass & ">游戏线路：</td>" & vbCrLf
	Response.Write "<td " & LeftClass & "><input type=""text"" name=""ssign"" value=""" & QiKuCMS.ssign & """ size=""50"" class=""input_out""> 看着办！用,隔开</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
 
	
	Response.Write "</table>" & vbCrLf
	Response.Write "<table width=""98%"" border=0><tr></td></tr></table>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td colspan=2 " & CenterClass & "><input class=btn type=""submit"" value=""保存设置"" name=""B1""></td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf

	Response.Write "</form>" & vbCrLf
	Response.Write "</table>" & vbCrLf
        Response.Write "<table cellpadding=""3"" cellspacing=""1"" border=""0"" width=""100%"" class=""tableBorder"" align=center>" & vbCrLf
        Response.Write "<th colspan=2 height=20><font color=#ffffff>CaiSF.Com发布系统" & Version & "</th>" & vbCrLf
End Sub
Sub SaveConfig()
	If Len(Request.Form("SiteName")) = 0 Or Len(Request.Form("SiteName")) => 50 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>网站名称不能为空或者超过50个字符！</li>"
	End If
	If Len(Request.Form("WebUrl")) = 0 Or Len(Request.Form("WebUrl")) => 255 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>网站地址不能为空或者超过255个字符！</li>"
	End If
	If Len(Request.Form("Renovates")) = 0 Or Len(Request.Form("Renovates")) => 255 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>网站标题不能为空或者超过255个字符！</li>"
	End If
	If Len(Request.Form("Copyright")) = 0 Or Len(Request.Form("Copyright")) => 5000 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>版权信息不能为空或者超过5000个字符！</li>"
	End If
	If FoundErr = True Then Exit Sub
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "select * from Gq_Config where id = 1"
	Rs.Open SQL,Conn,1,3
		Rs("SiteName")    = Trim(Request.Form("SiteName"))
		Rs("SiteUrl")      = Trim(Request.Form("WebUrl"))
		Rs("Renovates")   = Trim(Request.Form("Renovates"))
		Rs("Copyright")   = Trim(Request.Form("Copyright"))
		Rs("IndexGame")   = Trim(Request.Form("IndexGame"))
		Rs("TabWidth")    = Trim(Request.Form("TabWidth"))
		Rs("ShowHtml")    = Trim(Request.Form("ShowHtml"))
		Rs("Webmaster")   = Trim(Request.Form("Webmaster"))
		Rs("sfUlock")     = Trim(Request.Form("sfUlock"))
		Rs("JzUlock")     = Trim(Request.Form("JzUlock"))
		Rs("sfLook")      = Trim(Request.Form("sfLook"))
		Rs("mirsfID")     = Trim(Request.Form("mirsfID"))
		Rs("mirsfday")    = Trim(Request.Form("mirsfday"))
		Rs("sf_hot")      = Trim(Request.Form("sf_hot"))
		Rs("sf_top")      = Trim(Request.Form("sf_top"))
		Rs("bg_1")        = Trim(Request.Form("bg_1"))
		Rs("bg_2")        = Trim(Request.Form("bg_2"))
		Rs("bg_3")        = Trim(Request.Form("bg_3"))
		Rs("bg_4")        = Trim(Request.Form("bg_4"))
		Rs("bg_5")        = Trim(Request.Form("bg_5"))
		Rs("bg_6")        = Trim(Request.Form("bg_6"))
		Rs("bg_7")        = Trim(Request.Form("bg_7"))
		Rs("bg_8")        = Trim(Request.Form("bg_8"))
		Rs("bg_1_1")      = Trim(Request.Form("bg_1_1"))
		Rs("bg_2_2")      = Trim(Request.Form("bg_2_2"))
		Rs("bg_3_3")      = Trim(Request.Form("bg_3_3"))
		Rs("bg_4_4")      = Trim(Request.Form("bg_4_4"))
		Rs("bg_5_5")      = Trim(Request.Form("bg_5_5"))
		Rs("bg_6_6")      = Trim(Request.Form("bg_6_6"))
		Rs("bg_7_7")      = Trim(Request.Form("bg_7_7"))
		Rs("bg_8_8")      = Trim(Request.Form("bg_8_8"))
		Rs("sfhits")      = Trim(Request.Form("sfhits"))
		Rs("hottime_1")   = Trim(Request.Form("hottime_1"))
		Rs("hottime_2")   = Trim(Request.Form("hottime_2"))
		Rs("finePage")    = Trim(Request.Form("finePage"))
		Rs("MaxPerPage")  = Trim(Request.Form("MaxPerPage"))
		Rs("AdminPage")   = Trim(Request.Form("AdminPage"))
		Rs("ssign")       = Trim(Request.Form("ssign"))
		Rs("WebKeywords") = Trim(Request.Form("WebKeywords"))
		Rs("IsNews")      = Trim(Request.Form("IsNews"))
		Rs("ifopen")      = Trim(Request.Form("start"))
		Rs("xzip")      = Trim(Request.Form("xzip"))	 							
		If Trim(Request.form("Indexsf1"))="yes" then
			Rs("Indexsf1") = 1
		Else
			Rs("Indexsf1") = 0
		End If
		
		If Trim(Request.form("Indexsf2"))="yes" then
			Rs("Indexsf2") = 1
		Else
			Rs("Indexsf2") = 0
		End If
		If Trim(Request.form("Indexsf3"))="yes" then
			Rs("Indexsf3") = 1
		Else
			Rs("Indexsf3") = 0
		End If
		If Trim(Request.form("Indexsf4"))="yes" then
			Rs("Indexsf4") = 1
		Else
			Rs("Indexsf4") = 0
		End If
		If Trim(Request.form("Indexsf5"))="yes" then
			Rs("Indexsf5") = 1
		Else
			Rs("Indexsf5") = 0
		End If

		If Trim(Request.form("Indexsf0"))="yes" then
			Rs("Indexsf0") = 1
		Else
			Rs("Indexsf0") = 0
		End If
	Rs.update
	Rs.close:set Rs = Nothing
	Succeed("<li>恭喜您！设置成功。</li>")
End Sub
Sub SF_Bg()
	Response.Write "  <option style=""background-color:#F0F8FF;color: #F0F8FF"" value=""#F0F8FF"">#F0F8FF</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FAEBD7;color: #FAEBD7"" value=""#FAEBD7"">#FAEBD7</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#00FFFF;color: #00FFFF"" value=""#00FFFF"">#00FFFF</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#7FFFD4;color: #7FFFD4"" value=""#7FFFD4"">#7FFFD4</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#F0FFFF;color: #F0FFFF"" value=""#F0FFFF"">#F0FFFF</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#F5F5DC;color: #F5F5DC"" value=""#F5F5DC"">#F5F5DC</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFE4C4;color: #FFE4C4"" value=""#FFE4C4"">#FFE4C4</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#000000;color: #000000"" value=""#000000"">#000000</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFEBCD;color: #FFEBCD"" value=""#FFEBCD"">#FFEBCD</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#0000FF;color: #0000FF"" value=""#0000FF"">#0000FF</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#8A2BE2;color: #8A2BE2"" value=""#8A2BE2"">#8A2BE2</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#A52A2A;color: #A52A2A"" value=""#A52A2A"">#A52A2A</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#DEB887;color: #DEB887"" value=""#DEB887"">#DEB887</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#5F9EA0;color: #5F9EA0"" value=""#5F9EA0"">#5F9EA0</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#7FFF00;color: #7FFF00"" value=""#7FFF00"">#7FFF00</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#D2691E;color: #D2691E"" value=""#D2691E"">#D2691E</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FF7F50;color: #FF7F50"" value=""#FF7F50"">#FF7F50</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#6495ED;color: #6495ED"" value=""#6495ED"">#6495ED</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFF8DC;color: #FFF8DC"" value=""#FFF8DC"">#FFF8DC</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#DC143C;color: #DC143C"" value=""#DC143C"">#DC143C</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#00FFFF;color: #00FFFF"" value=""#00FFFF"">#00FFFF</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#00008B;color: #00008B"" value=""#00008B"">#00008B</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#008B8B;color: #008B8B"" value=""#008B8B"">#008B8B</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#B8860B;color: #B8860B"" value=""#B8860B"">#B8860B</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#A9A9A9;color: #A9A9A9"" value=""#A9A9A9"">#A9A9A9</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#006400;color: #006400"" value=""#006400"">#006400</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#BDB76B;color: #BDB76B"" value=""#BDB76B"">#BDB76B</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#8B008B;color: #8B008B"" value=""#8B008B"">#8B008B</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#556B2F;color: #556B2F"" value=""#556B2F"">#556B2F</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FF8C00;color: #FF8C00"" value=""#FF8C00"">#FF8C00</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#9932CC;color: #9932CC"" value=""#9932CC"">#9932CC</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#8B0000;color: #8B0000"" value=""#8B0000"">#8B0000</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#E9967A;color: #E9967A"" value=""#E9967A"">#E9967A</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#8FBC8F;color: #8FBC8F"" value=""#8FBC8F"">#8FBC8F</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#483D8B;color: #483D8B"" value=""#483D8B"">#483D8B</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#2F4F4F;color: #2F4F4F"" value=""#2F4F4F"">#2F4F4F</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#00CED1;color: #00CED1"" value=""#00CED1"">#00CED1</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#9400D3;color: #9400D3"" value=""#9400D3"">#9400D3</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FF1493;color: #FF1493"" value=""#FF1493"">#FF1493</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#00BFFF;color: #00BFFF"" value=""#00BFFF"">#00BFFF</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#696969;color: #696969"" value=""#696969"">#696969</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#1E90FF;color: #1E90FF"" value=""#1E90FF"">#1E90FF</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#B22222;color: #B22222"" value=""#B22222"">#B22222</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFFAF0;color: #FFFAF0"" value=""#FFFAF0"">#FFFAF0</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#228B22;color: #228B22"" value=""#228B22"">#228B22</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FF00FF;color: #FF00FF"" value=""#FF00FF"">#FF00FF</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#DCDCDC;color: #DCDCDC"" value=""#DCDCDC"">#DCDCDC</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#F8F8FF;color: #F8F8FF"" value=""#F8F8FF"">#F8F8FF</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFD700;color: #FFD700"" value=""#FFD700"">#FFD700</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#DAA520;color: #DAA520"" value=""#DAA520"">#DAA520</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#808080;color: #808080"" value=""#808080"">#808080</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#008000;color: #008000"" value=""#008000"">#008000</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#ADFF2F;color: #ADFF2F"" value=""#ADFF2F"">#ADFF2F</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#F0FFF0;color: #F0FFF0"" value=""#F0FFF0"">#F0FFF0</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FF69B4;color: #FF69B4"" value=""#FF69B4"">#FF69B4</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#CD5C5C;color: #CD5C5C"" value=""#CD5C5C"">#CD5C5C</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#4B0082;color: #4B0082"" value=""#4B0082"">#4B0082</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFFFF0;color: #FFFFF0"" value=""#FFFFF0"">#FFFFF0</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#F0E68C;color: #F0E68C"" value=""#F0E68C"">#F0E68C</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#E6E6FA;color: #E6E6FA"" value=""#E6E6FA"">#E6E6FA</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFF0F5;color: #FFF0F5"" value=""#FFF0F5"">#FFF0F5</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#7CFC00;color: #7CFC00"" value=""#7CFC00"">#7CFC00</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFFACD;color: #FFFACD"" value=""#FFFACD"">#FFFACD</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#ADD8E6;color: #ADD8E6"" value=""#ADD8E6"">#ADD8E6</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#F08080;color: #F08080"" value=""#F08080"">#F08080</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#E0FFFF;color: #E0FFFF"" value=""#E0FFFF"">#E0FFFF</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FAFAD2;color: #FAFAD2"" value=""#FAFAD2"">#FAFAD2</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#90EE90;color: #90EE90"" value=""#90EE90"">#90EE90</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#D3D3D3;color: #D3D3D3"" value=""#D3D3D3"">#D3D3D3</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFB6C1;color: #FFB6C1"" value=""#FFB6C1"">#FFB6C1</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFA07A;color: #FFA07A"" value=""#FFA07A"">#FFA07A</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#20B2AA;color: #20B2AA"" value=""#20B2AA"">#20B2AA</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#87CEFA;color: #87CEFA"" value=""#87CEFA"">#87CEFA</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#778899;color: #778899"" value=""#778899"">#778899</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#B0C4DE;color: #B0C4DE"" value=""#B0C4DE"">#B0C4DE</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFFFE0;color: #FFFFE0"" value=""#FFFFE0"">#FFFFE0</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#00FF00;color: #00FF00"" value=""#00FF00"">#00FF00</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#32CD32;color: #32CD32"" value=""#32CD32"">#32CD32</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FAF0E6;color: #FAF0E6"" value=""#FAF0E6"">#FAF0E6</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FF00FF;color: #FF00FF"" value=""#FF00FF"">#FF00FF</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#800000;color: #800000"" value=""#800000"">#800000</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#66CDAA;color: #66CDAA"" value=""#66CDAA"">#66CDAA</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#0000CD;color: #0000CD"" value=""#0000CD"">#0000CD</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#BA55D3;color: #BA55D3"" value=""#BA55D3"">#BA55D3</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#9370DB;color: #9370DB"" value=""#9370DB"">#9370DB</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#3CB371;color: #3CB371"" value=""#3CB371"">#3CB371</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#7B68EE;color: #7B68EE"" value=""#7B68EE"">#7B68EE</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#00FA9A;color: #00FA9A"" value=""#00FA9A"">#00FA9A</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#48D1CC;color: #48D1CC"" value=""#48D1CC"">#48D1CC</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#C71585;color: #C71585"" value=""#C71585"">#C71585</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#191970;color: #191970"" value=""#191970"">#191970</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#F5FFFA;color: #F5FFFA"" value=""#F5FFFA"">#F5FFFA</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFE4E1;color: #FFE4E1"" value=""#FFE4E1"">#FFE4E1</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFE4B5;color: #FFE4B5"" value=""#FFE4B5"">#FFE4B5</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFDEAD;color: #FFDEAD"" value=""#FFDEAD"">#FFDEAD</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#000080;color: #000080"" value=""#000080"">#000080</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FDF5E6;color: #FDF5E6"" value=""#FDF5E6"">#FDF5E6</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#808000;color: #808000"" value=""#808000"">#808000</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#6B8E23;color: #6B8E23"" value=""#6B8E23"">#6B8E23</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFA500;color: #FFA500"" value=""#FFA500"">#FFA500</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FF4500;color: #FF4500"" value=""#FF4500"">#FF4500</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#DA70D6;color: #DA70D6"" value=""#DA70D6"">#DA70D6</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#EEE8AA;color: #EEE8AA"" value=""#EEE8AA"">#EEE8AA</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#98FB98;color: #98FB98"" value=""#98FB98"">#98FB98</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#AFEEEE;color: #AFEEEE"" value=""#AFEEEE"">#AFEEEE</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#DB7093;color: #DB7093"" value=""#DB7093"">#DB7093</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFEFD5;color: #FFEFD5"" value=""#FFEFD5"">#FFEFD5</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFDAB9;color: #FFDAB9"" value=""#FFDAB9"">#FFDAB9</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#CD853F;color: #CD853F"" value=""#CD853F"">#CD853F</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFC0CB;color: #FFC0CB"" value=""#FFC0CB"">#FFC0CB</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#DDA0DD;color: #DDA0DD"" value=""#DDA0DD"">#DDA0DD</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#B0E0E6;color: #B0E0E6"" value=""#B0E0E6"">#B0E0E6</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#800080;color: #800080"" value=""#800080"">#800080</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FF0000;color: #FF0000"" value=""#FF0000"">#FF0000</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#BC8F8F;color: #BC8F8F"" value=""#BC8F8F"">#BC8F8F</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#4169E1;color: #4169E1"" value=""#4169E1"">#4169E1</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#8B4513;color: #8B4513"" value=""#8B4513"">#8B4513</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FA8072;color: #FA8072"" value=""#FA8072"">#FA8072</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#F4A460;color: #F4A460"" value=""#F4A460"">#F4A460</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#2E8B57;color: #2E8B57"" value=""#2E8B57"">#2E8B57</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFF5EE;color: #FFF5EE"" value=""#FFF5EE"">#FFF5EE</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#A0522D;color: #A0522D"" value=""#A0522D"">#A0522D</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#C0C0C0;color: #C0C0C0"" value=""#C0C0C0"">#C0C0C0</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#87CEEB;color: #87CEEB"" value=""#87CEEB"">#87CEEB</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#6A5ACD;color: #6A5ACD"" value=""#6A5ACD"">#6A5ACD</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#708090;color: #708090"" value=""#708090"">#708090</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFFAFA;color: #FFFAFA"" value=""#FFFAFA"">#FFFAFA</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#00FF7F;color: #00FF7F"" value=""#00FF7F"">#00FF7F</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#4682B4;color: #4682B4"" value=""#4682B4"">#4682B4</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#D2B48C;color: #D2B48C"" value=""#D2B48C"">#D2B48C</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#008080;color: #008080"" value=""#008080"">#008080</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#D8BFD8;color: #D8BFD8"" value=""#D8BFD8"">#D8BFD8</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FF6347;color: #FF6347"" value=""#FF6347"">#FF6347</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#40E0D0;color: #40E0D0"" value=""#40E0D0"">#40E0D0</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#EE82EE;color: #EE82EE"" value=""#EE82EE"">#EE82EE</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#F5DEB3;color: #F5DEB3"" value=""#F5DEB3"">#F5DEB3</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFFFFF;color: #FFFFFF"" value=""#FFFFFF"">#FFFFFF</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#F5F5F5;color: #F5F5F5"" value=""#F5F5F5"">#F5F5F5</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#FFFF00;color: #FFFF00"" value=""#FFFF00"">#FFFF00</option> " & vbCrLf
	Response.Write "  <option style=""background-color:#9ACD32;color: #9ACD32"" value=""#9ACD32"">#9ACD32</option> " & vbCrLf
End Sub
Sub SF_Bg1()
End Sub
%>
