<!--#include file="Admin_Const.asp"-->
<%
if Cl.Admin_Purview(0)<>1 then Admin_ShowErr("<br /><li>您无此操作权限！</li>")
dim Action
dim strDir,strAdminDir
strDir=Trim(request.ServerVariables("SCRIPT_NAME"))
strAdminDir=split(strDir,"/")(Ubound(split(strDir,"/"))-1) & "/"
strDir=left(strDir,instr(lcase(strDir),"/"&Lcase(strAdminDir)))
Action=Trim(request("Action"))
Header
%>
  <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" Class="border">
    <tr> 
     <td height="22" colspan=2 align=center class="title"><a name="Top"></a><strong>网 站 配 置</strong></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'"> 
      <td width="70" height="30"><strong>管理导航：</strong></td>
      
    <td height="30"><a href="#SiteInfo">网站信息配置</a> | <a href="#SiteOption">网站选项配置</a> | <a href="#User">用户选项</a> 
      | <a href="#Email">邮件服务器选项</a> | <a href="#UpLoad">上传文件选项</a><%if SysTemVersion>2 then%> | <a href="#Product">商城综合设置</a><%end if%> | <a href="#Other">网站其他设置</a></td>
    </tr>
  </table>
<br />
<%
if Action="SaveConfig" then
	call SaveConfig()
else
	call ShowConfig()
end if
if FoundErr=True then
	Admin_ShowErr(ErrMsg)
end if
Footer
Sub ShowConfig()
%>
<form method="POST" action="Admin_Setup.asp" id="theform" name="theform">
  <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" Class="border">
    <tr> 
      <td height="22" colspan="2" class="title"> <a name="SiteInfo"></a><strong> 网站信息配置&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</strong><a href="#Top"><font color="white">（顶&nbsp;部）</font></a></td>	 
    </tr>
   <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>网站　名称：</strong></td>
      <td width="75%" height="25"> 
        <input name="Cl.Web_Info(0)" type="text" id="Cl.Web_Info(0)" value="<%=Cl.Web_Info(0)%>" size="50">
      </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>网站　标题：</strong></td>
      <td width="75%" height="25"> 
        <input name="Cl.Web_Info(1)" type="text" id="Cl.Web_Info(1)" value="<%=Cl.Web_Info(1)%>" size="50">
      </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>网站关键字：</strong></td>
      <td width="75%" height="25"> 
        <input name="Cl.Web_Info(2)" type="text" id="Cl.Web_Info(2)" value="<%=Cl.Web_Info(2)%>" size="80">
		<br /><font color=#3370CC>将被搜索引擎用来搜索您网站的关键内容每个关键字用“|”号分隔</font>
      </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>网站　描述：</strong></td>
      <td width="75%" height="25"> 
        <textarea name="Cl.Web_Info(3)" cols="41" rows="4" id="Cl.Web_Info(3)"><%=Cl.Web_Info(3)%></textarea>
		<a href="javascript:admin_Size(-5,'Cl.Web_Info(3)')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(5,'Cl.Web_Info(3)')"><img src="images/plus.gif" unselectable="on" border='0'></a><br /><font color=#3370CC>将被搜索引擎用来说明您网站的主要内容</font>
      </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'"> 
      <td width="25%" height="25" align=right><strong>网站　地址：</strong></td>
      <td width="75%" height="25"> 
        <input name="Cl.Web_Info(4)" type="text" id="Cl.Web_Info(4)" value="<%=Cl.Web_Info(4)%>" size="80" maxlength="255"><br /><font color=#3370CC>请添写完整URL地址</font>
      </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'"> 
      <td width="25%" height="25" align=right><strong>LOGO　地址：</strong></td>
      <td width="75%" height="25"> 
        <input name="Cl.Web_Info(5)" type="text" id="Cl.Web_Info(5)" value="<%=Cl.Web_Info(5)%>" size="80" maxlength="255"><br /><font color=#3370CC>请添写完整URL地址</font>
      </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'"> 
      <td width="25%" height="25" align=right><strong>Banner地址：</strong></td>
      <td width="75%" height="25"> 
        <input name="Cl.Web_Info(6)" type="text" id="Cl.Web_Info(6)" value="<%=Cl.Web_Info(6)%>" size="80" maxlength="255"><br /><font color=#3370CC>请添写完整URL地址。若为空，则在Banner处显示广告管理中预设的广告。</font>
      </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'"> 
      <td width="25%" height="25" align=right><strong>站长姓名/信箱：</strong></td>
      <td width="75%" height="25"> 
        <input name="Cl.Web_Info(7)" type="text" id="Cl.Web_Info(7)" value="<%=Cl.Web_Info(7)%>" size="20" maxlength="20">&nbsp;/&nbsp;<input name="Cl.Web_Info(8)" type="text" id="Cl.Web_Info(8)" value="<%=Cl.Web_Info(8)%>" size="25" maxlength="100">
      </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'"> 
      <td width="25%" height="25" align=right><strong>版权　信息：</strong></td>
      <td width="75%" height="25"> 
        <textarea name="Cl.Web_Info(9)" cols="41" rows="4" id="Cl.Web_Info(9)"><%=Cl.Web_Info(9)%></textarea>
		<a href="javascript:admin_Size(-5,'Cl.Web_Info(9)')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(5,'Cl.Web_Info(9)')"><img src="images/plus.gif" unselectable="on" border='0'></a><br /><font color=#3370CC>显示于网站底部的版权信息，支持HTML语法。</font>
      </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><font color=red><strong>安装　目录：</strong></font></td>
      <td width="75%" height="25">
        <input name="Cl.Web_Info(10)" type="text" id="Cl.Web_Info(10)" value="<%=strDir%>" size="50" maxlength="20" Disabled><br /><font color=red>系统安装目录（相对于根目录的位置），系统会自动获得正确的路径，只需保存设置即可。</font>
      </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><font color=blue><strong>管理　目录：</strong></font></td>
      <td width="75%" height="25">
        <input name="Cl.Web_Info(14)" type="text" id="Cl.Web_Info(14)" value="<%=Cl.Web_Info(14)%>" size="50" maxlength="20"><br /><font color=#3370CC>系统安装目录（相对于根目录的位置），后面请带“/”<br />
		当前系统管理目录为“<font color="#ff0000"><%=strAdminDir%></font>”，若修改后，请用手动将管理目录“<font color="#ff0000"><%=strAdminDir%></font>”重命名。</font>
      </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'"> 
      <td width="25%" height="25" align=right><strong>网站当前状态：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Info(11)" value="Open" <%if Cl.Web_Info(11)="Open" then response.write "checked"%> >
        打开 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Info(11)" value="Close" <%if Cl.Web_Info(11)="Close" then response.write "checked"%> >
        关闭&nbsp;&nbsp;&nbsp;&nbsp;<font color=#3370CC>维护期间可设置关闭网站</font></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>关闭网站原因：</strong></td>
      <td width="75%" height="25">
        <textarea name="Cl.Web_Info(12)" cols="41" rows="4" id="Cl.Web_Info(12)"><%=Cl.Web_Info(12)%></textarea>
		<a href="javascript:admin_Size(-5,'Cl.Web_Info(12)')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(5,'Cl.Web_Info(12)')"><img src="images/plus.gif" unselectable="on" border='0'></a><br /><font color=#3370CC>在网站关闭情况下显示，支持html语法</font>
      </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>FSO组件的名称：</strong></td>
      <td><input name="Cl.Web_Info(13)" type="text" id="Cl.Web_Info(13)" value="<%=Cl.Web_Info(13)%>" size="50" maxlength="50"><br /><font color=#3370CC>如果你的网站将FSO(FileSystemObject)组件的名称进行了更改，请在此输入更改过的名称。</font></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'"> 
      <td width="25%" height="25" align=right><strong>是否使用HTML生成：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Info(15)" value="1" <%if Cl.Web_Info(15) = "1" then response.write "checked"%>>
        生成Html &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Info(15)" value="0" <%if Cl.Web_Info(15)="0" then response.write "checked"%>>
        不生成Html<br /><font color=#3370CC>HTML生成总开关，要开启生成HTML功能服务器需支持FSO。</font></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>HTML文件存放主目录：</strong></td>
      <td><input name="Cl.Web_Info(16)" type="text" id="Cl.Web_Info(16)" value="<%=Cl.Web_Info(16)%>" size="50" maxlength="50"><br /><font color=#3370CC>相对于根目录，开启HTML功能生效，后面请带“/”，若修改后，请用手动将存放目录“<%=Cl.Web_Info(16)%>”重命名。</font></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>网站默认模板/风格：</strong></td>
      <td>
		模板：<select name="Web_Styleid">
		<%
		Dim rs_s
		set rs_s = Cl.Execute("select ID,StyleName from Cl_Style Order by ID")
		if rs_s.eof and rs_s.bof then
			response.write "请先添加模板！"
		else
			do while not rs_s.eof
				response.write "<option value="""&rs_s(0)&""""
				If rs_s(0)=Cl.StyleID Then response.write " selected"
				response.write ">"&rs_s(1)&"</option>"
				rs_s.MoveNext
			Loop
		End If
		Set rs_s=Nothing
		%>
		</select>&nbsp;&nbsp;CSS风格：<select name="Web_cssid">
		<%
		Dim strTempCss,strCssName
		strTempCss=Split(Cl.CacheData(15,0),"@@@")(0)
		strCssName=Split(strTempCss,"|||")
		for i=0 to ubound(strCssName)-1
			response.write "<option value="""&i&""""
			If i=Cl.CssID Then response.write " selected"
			response.write ">"&strCssName(i)&"</option>"
		next%>
		</select></td>
    </tr>
  </table>
  <br />
<table border="0" cellspacing="1" cellpadding="0"  align=center class="Border">
    <tr> 
      <td height="25" colspan="2" class="title"><a name="SitePACK"></a><strong> 创力官方通讯设置&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</strong><a href="#Top"><font color="white">（顶&nbsp;部）</font></a></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>是否起用官方自动通讯系统</strong></td>
      <td>
		<input type=radio name="Cl.Web_Pack(0)" value=1 <%if cint(Cl.Web_Pack(0))=1 then%>checked<%end if%>>是&nbsp;
		<input type=radio name="Cl.Web_Pack(0)" value=0 <%if cint(Cl.Web_Pack(0))=0 then%>checked<%end if%>>否&nbsp;
		&nbsp;&nbsp;&nbsp;&nbsp;
	 <font color=#3370CC>开启后可在网站后台收到官方最新通知（建议开启）</font></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>开启通讯系统用户名与密码</strong></td>
      <td>
		用户名：<input type=text size="21" name="Cl.Web_Pack(1)" value="<%=Cl.Web_Pack(1)%>" maxlength="50">&nbsp;&nbsp;通讯密码：<input type=text size="21" name="Cl.Web_Pack(2)" value="<%=Cl.Web_Pack(2)%>" maxlength="20"><br /><font color=#3370CC>用户名和密码请到</font> <a href="http://bbs.aspoo.cn/Reg.asp" target=_blank><strong><font color=#3370CC>创力官方</font></strong></a> <font color=#3370CC>获取</font>
    </tr>
</table>
  <br />
  <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" Class="border">
    <tr> 
      <td height="25" colspan="2" class="title"><a name="SiteOption"></a><strong> 网站选项配置&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</strong><a href="#Top"><font color="white">（顶&nbsp;部）</font></a></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>是否显示页面执行时：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(0)" value="Yes" <%if Cl.Web_Setting(0)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(0)" value="No" <%if Cl.Web_Setting(0)="No" then response.write "checked"%> >
        否</td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>是否弹出公告窗口：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(1)" value="Yes" <%if Cl.Web_Setting(1)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(1)" value="No" <%if Cl.Web_Setting(1)="No" then response.write "checked"%> >
        否 &nbsp;&nbsp;&nbsp;&nbsp; 
		窗口宽度：<input name="Cl.Web_Setting(2)(0)" type="text" id="Cl.Web_Setting(2)(0)" value="<%=Split(Cl.Web_Setting(2),"|")(0)%>" size="5" maxlength="4">&nbsp;&nbsp;高度：<input name="Cl.Web_Setting(2)(1)" type="text" id="Cl.Web_Setting(2)(1)" value="<%=Split(Cl.Web_Setting(2),"|")(1)%>" size="5" maxlength="4">&nbsp;&nbsp;<font color=#3370CC>填写数字，不能小于1</font></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>评论是否启用脏话过滤：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(3)" value="Yes" <%if Cl.Web_Setting(3)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(3)" value="No" <%if Cl.Web_Setting(3)="No" then response.write "checked"%> >
        否</td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>文章是否启用脏话过滤：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(4)" value="Yes" <%if Cl.Web_Setting(4)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(4)" value="No" <%if Cl.Web_Setting(4)="No" then response.write "checked"%> >
        否</td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>留言是否启用脏话过滤：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(5)" value="Yes" <%if Cl.Web_Setting(5)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(5)" value="No" <%if Cl.Web_Setting(5)="No" then response.write "checked"%> >
        否</td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>是否启用留言审核功能：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(6)" value="Yes" <%if Cl.Web_Setting(6)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(6)" value="No" <%if Cl.Web_Setting(6)="No" then response.write "checked"%> >
        否 &nbsp;&nbsp;&nbsp;&nbsp; 
        <font color=#3370CC>如禁用留言审核功能，则新留言将直接发表</font></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>删除内容同时删除上传文件：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(7)" value="Yes" <%if Cl.Web_Setting(7)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(7)" value="No" <%if Cl.Web_Setting(7)="No" then response.write "checked"%> >
        否 &nbsp;&nbsp;&nbsp;&nbsp; 
        <font color=#3370CC>此功能需要FSO支持。</font></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>是否启用防SQL注入：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(8)" value="Yes" <%if Cl.Web_Setting(8)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(8)" value="No" <%if Cl.Web_Setting(8)="No" then response.write "checked"%> >
        否</td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>是否使用HTML脚本过滤：</strong></td>
      <td height="25">
        <input type="radio" name="Cl.Web_Setting(9)" value="Yes" <%if Cl.Web_Setting(9)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(9)" value="No" <%if Cl.Web_Setting(9)="No" then response.write "checked"%> >
        否<br />
        </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>要过滤的HTML脚本：</strong></td>
      <td height="25">
        <input name="Cl.Web_Setting(10)" type="text" id="Cl.Web_Setting(10)" value="<%=Cl.Web_Setting(10)%>" size="80" maxlength="250"><br /><font color=#3370CC>如过滤的字符为script，则内容页等HTML语法中将清除script脚本。可留空，多个可用“|”分隔。</font></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>是否使用防盗链：</strong></td>
      <td height="25">
        <input type="radio" name="Cl.Web_Setting(11)" value="Yes" <%if Cl.Web_Setting(11)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(11)" value="No" <%if Cl.Web_Setting(11)="No" then response.write "checked"%> >
        否 &nbsp;&nbsp;&nbsp;&nbsp;
        <font color=#3370CC>如果使用防盗链，则下载文件时自动随机重命名。只支持本地文件！</td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>是否开放友情链接申请：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(12)" value="Yes" <%if Cl.Web_Setting(12)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(12)" value="No" <%if Cl.Web_Setting(12)="No" then response.write "checked"%> >
        否</td>
    </tr>
	<input name="Cl.Web_Setting(13)" type="hidden" value="0">
<!--
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>前台是否禁右键菜单：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(43)" value="Yes" <%if Cl.Web_Setting(43)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input name="Cl.Web_Setting(43)" type="radio" value="No" <%if Cl.Web_Setting(43)="No" then response.write "checked"%> >
        否</td>
    </tr>-->
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>前台是否禁保存网页：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(44)" value="Yes" <%if Cl.Web_Setting(44)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input name="Cl.Web_Setting(44)" type="radio" value="No" <%if Cl.Web_Setting(44)="No" then response.write "checked"%> >
        否</td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>热门的点击数：</strong></td>
      <td height="25"> 
        <input name="Cl.Web_Setting(14)" type="text" id="Cl.Web_Setting(14)" value="<%=Cl.Web_Setting(14)%>" size="6" maxlength="5"> 次数&nbsp;&nbsp;&nbsp;<font color=#3370CC>各频道内容点击数达到此数时就会被设为热门。</font>
      </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>Session会话的保持时间：</strong></td>
      <td height="25"> 
        <input name="Cl.Web_Setting(15)" type="text" id="Cl.Web_Setting(15)" value="<%=Cl.Web_Setting(15)%>" size="6" maxlength="2">
        分钟&nbsp;&nbsp;&nbsp;<font color=#3370CC>为了安全，请不要将时间设得太长。建议设为20分钟。</font></td>
    </tr>
	<input name="Cl.Web_Setting(16)" type="hidden" value="0">
  </table>
  <br />
  <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" Class="border">
    <tr> 
      <td height="25" colspan="2" class="title"><a name="User"></a><strong> 用户选项&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</strong><a href="#Top"><font color="white">（顶&nbsp;部）</font></a></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>是否允许新用户注册：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(21)" value="Yes" <%if Cl.Web_Setting(21)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(21)" value="No" <%if Cl.Web_Setting(21)="No" then response.write "checked"%> >
        否</td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>最短/最长用户名长度：</strong></td>
      <td height="25">
        最短：<input name="Cl.Web_Setting(22)(0)" type="text" id="Cl.Web_Setting(22)(0)" value="<%=Split(Cl.Web_Setting(22),"|")(0)%>" size="3" maxlength="2">&nbsp;&nbsp;最长：<input name="Cl.Web_Setting(22)(1)" type="text" id="Cl.Web_Setting(22)(1)" value="<%=Split(Cl.Web_Setting(22),"|")(1)%>" size="3" maxlength="2">&nbsp;&nbsp;<font color=#3370CC>填写数字，不能小于1大于50</font></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>新用户注册是否需要邮件验证：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(23)" value="Yes" <%if Cl.Web_Setting(23)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(23)" value="No" <%if Cl.Web_Setting(23)="No" then response.write "checked"%> >
        否<br />
       <font color=#3370CC> 若选择“是”，则用户注册后系统会发一封带有验证码的邮件给此用户，用户必须在通过邮件验证后才能真正成为正式注册用户</font></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25"><strong>新用户注册是否需要管理员认证：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(24)" value="Yes" <%if Cl.Web_Setting(24)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(24)" value="No" <%if Cl.Web_Setting(24)="No" then response.write "checked"%> >
        否<br />
        <font color=#3370CC>若选择是，则用户必须在通过管理员认证后才能真正成功正式注册用户。</font></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>用户注册成功后是否发邮件信息：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(25)" value="Yes" <%if Cl.Web_Setting(25)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(25)" value="No" <%if Cl.Web_Setting(25)="No" then response.write "checked"%> >
        否<br />
        <font color=#3370CC>若选择“是”，则用户注册成功后系统会把用户名跟密码发给此用户</font></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>用户<font color=blue>金钱</font>的项目名称：</strong></td>
      <td><input name="Cl.Web_Setting(26)" type="text" id="Cl.Web_Setting(26)" value="<%=Cl.Web_Setting(26)%>" size="18" maxlength="16">&nbsp;<strong>单位：</strong><input name="Cl.Web_Setting(27)" type="text" id="Cl.Web_Setting(27)" value="<%=Cl.Web_Setting(27)%>" size="10" maxlength="8"><br />
	  <font color=#3370CC>如默认的“金钱”名称可改为“储值”。</font></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>用户<font color=blue>点数</font>的项目名称：</strong></td>
      <td><input name="Cl.Web_Setting(28)" type="text" id="Cl.Web_Setting(28)" value="<%=Cl.Web_Setting(28)%>" size="18" maxlength="16">&nbsp;<strong>单位：</strong><input name="Cl.Web_Setting(29)" type="text" id="Cl.Web_Setting(29)" value="<%=Cl.Web_Setting(29)%>" size="10" maxlength="8"><br />
	  <font color=#3370CC>如默认的“点数”名称可改为“C币”。</font></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>用户<%=Cl.Web_Setting(26)%>与<%=Cl.Web_Setting(28)%>的转换比率：</strong></td>
      <td> 
        每 <strong><font color="red">1</font></strong> <%=Cl.Web_Setting(27)%><%=Cl.Web_Setting(26)%>可(转换/购买) <input name="Cl.Web_Setting(30)" type="text" id="Cl.Web_Setting(30)" value="<%=Cl.Web_Setting(30)%>" size="6" maxlength="5"> <%=Cl.Web_Setting(29)%>(<%=Cl.Web_Setting(28)%>/等值充值卡)
		</td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>用户<%=Cl.Web_Setting(26)%>与有效期的延长比率：</strong></td>
      <td> 
        每 <strong><font color="red">1</font></strong> <%=Cl.Web_Setting(27)%><%=Cl.Web_Setting(26)%>可(延长/购买) <input name="Cl.Web_Setting(31)" type="text" id="Cl.Web_Setting(31)" value="<%=Cl.Web_Setting(31)%>" size="6" maxlength="5"> 天(有效期/等值充值卡)
		</td>
    </tr>
	<input name="Cl.Web_Setting(32)" type="hidden" value="0">
	<input name="Cl.Web_Setting(33)" type="hidden" value="0">
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>允许发表评论的用户级别：</strong></td>
      <td height="25">
	  <input name="Cl.Web_Setting(34)" type="hidden" id="Cl.Web_Setting(34)" value="<%=Cl.Web_Setting(34)%>">
	  <input name="Cl.Web_Setting(34)View" type="text" id="Cl.Web_Setting(34)View" value="<%=Cl.GetUserGroupName(Cl.Web_Setting(34))%>" size="80" onclick="SelectUserGroup('Cl.Web_Setting(34)');" Readonly><br />
        <font color=#3370CC>只有具有相应权限的人才能发表评论，这里为总设置。</font>
      </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>允许发表留言的用户级别：</strong></td>
      <td height="25">
		<input name="Cl.Web_Setting(35)" type="hidden" id="Cl.Web_Setting(35)" value="<%=Cl.Web_Setting(35)%>">
        <input name="Cl.Web_Setting(35)View" type="text" id="Cl.Web_Setting(35)View" value="<%=Cl.GetUserGroupName(Cl.Web_Setting(35))%>" size="80" onclick="SelectUserGroup('Cl.Web_Setting(35)');" Readonly>
        <br />
        <font color=#3370CC>只有具有相应级别的用户才能发表留言。</font>
      </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>是否弹出短消息接收：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(36)" value="Yes" <%if Cl.Web_Setting(36)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input name="Cl.Web_Setting(36)" type="radio" value="No" <%if Cl.Web_Setting(36)="No" then response.write "checked"%> >
        否</td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>是否启用添加资料<%=Cl.Web_Setting(28)%>功能：</strong></td>
      <td> 
        <input type="radio" name="Cl.Web_Setting(37)" value="1" <%if Cl.Web_Setting(37)=1 then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(37)" value="0" <%if Cl.Web_Setting(37)=0 then response.write "checked"%> >
        否 &nbsp;&nbsp;&nbsp;&nbsp; 
        <font color=#3370CC>如果此功能开启，资料审核后才添加相应<%=Cl.Web_Setting(28)%>！</font></td>
    </tr>
  </table>
  <br />
  <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" Class="border">
    <tr> 
      <td height="25" colspan="2" class="title"><a name="CheckOption"></a><strong> 验证码选项&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</strong><a href="#Top"><font color="white">（顶&nbsp;部）</font></a></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>登录是否使用验证码：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(39)" value="Yes" <%if Cl.Web_Setting(39)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(39)" value="No" <%if Cl.Web_Setting(39)="No" then response.write "checked"%> >
        否</td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>注册是否使用验证码：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(40)" value="Yes" <%if Cl.Web_Setting(40)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(40)" value="No" <%if Cl.Web_Setting(40)="No" then response.write "checked"%> >
        否</td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>留言是否使用验证码：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(41)" value="Yes" <%if Cl.Web_Setting(41)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(41)" value="No" <%if Cl.Web_Setting(41)="No" then response.write "checked"%> >
        否</td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>申请链接是否使用验证码：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(42)" value="Yes" <%if Cl.Web_Setting(42)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(42)" value="No" <%if Cl.Web_Setting(42)="No" then response.write "checked"%> >
        否</td>
    </tr>
  </table>
  <br />
  <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" Class="border">
    <tr>
      <td height="25" colspan="2" class="title"><a name="CheckOption"></a><strong> 网站统计选项&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</strong><a href="#Top"><font color="white">（顶&nbsp;部）</font></a></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>是否使用网站统计：</strong></td>
      <td height="25">
        <input type="radio" name="Cl.Web_Setting(45)" value="Yes" <%if Cl.Web_Setting(45)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(45)" value="No" <%if Cl.Web_Setting(45)="No" then response.write "checked"%> >
        否 &nbsp;&nbsp;&nbsp;&nbsp;<font color=#3370CC>开启本功能较消耗资源</font></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>是否判断用户来源：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(46)" value="Yes" <%if Cl.Web_Setting(46)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(46)" value="No" <%if Cl.Web_Setting(46)="No" then response.write "checked"%> >
        否 &nbsp;&nbsp;&nbsp;&nbsp;<font color=#3370CC>开启本功能较消耗资源</font></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>是否判断浏览器和操作系统：</strong></td>
      <td height="25"> 
        <input type="radio" name="Cl.Web_Setting(47)" value="Yes" <%if Cl.Web_Setting(47)="Yes" then response.write "checked"%> >
        是 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="Cl.Web_Setting(47)" value="No" <%if Cl.Web_Setting(47)="No" then response.write "checked"%> >
        否 &nbsp;&nbsp;&nbsp;&nbsp;<font color=#3370CC>开启本功能较消耗资源</font></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>删除不活动用户时间：</strong></td>
      <td height="25"><input type="text" name="Cl.Web_Setting(48)" size="6" value="<%=Cl.Web_Setting(48)%>" maxlength="5">&nbsp;分钟</td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>查看在线列表权限：</strong></td>
      <td height="25">
		<input name="Cl.Web_Setting(49)" type="hidden" id="Cl.Web_Setting(49)" value="<%=Cl.Web_Setting(49)%>">
        <input name="Cl.Web_Setting(49)View" type="text" id="Cl.Web_Setting(49)View" value="<%=Cl.GetUserGroupName(Cl.Web_Setting(49))%>" size="80" onclick="SelectUserGroup('Cl.Web_Setting(49)');" Readonly><br />
        <font color=#3370CC>只有具有相应权限的人才能查看在线列。</font>
      </td>
    </tr>
  </table>
  <br />
  <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" Class="border">
    <tr> 
      <td height="25" colspan="2" class="title"><a name="Email"></a><strong> 邮件服务器选项&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</strong><a href="#Top"><font color="white">（顶&nbsp;部）</font></a></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>邮件发送组件：</strong></td>
      <td height="25">
        <select name="Cl.Web_Setting(17)" id="Cl.Web_Setting(17)" onChange="chkselect(options[selectedIndex].value,'know1');">
        <option value="0">不支持
        <option value="1">JMAIL
        <option value="2">CDONTS
        <option value="3">ASPEMAIL
        </select>&nbsp;&nbsp;&nbsp;<font color=#3370CC>请一定要选择服务器上已安装的组件</font><div id=know1></div>
      </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>SMTP Server地址：</strong></td>
      <td height="25"> 
        <input name="Cl.Web_Setting(18)" type="text" id="Cl.Web_Setting(18)" value="<%=Cl.Web_Setting(18)%>" size="40"><br />
      <font color=#3370CC> 此邮件服务器地址的填写是根据管理员邮箱而定，例如管理员邮箱为abc@163.net，则此栏可填：smtp.163.net。</font>
      </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>邮件登录用户名：</strong></td>
      <td height="25"> 
        <input name="Cl.Web_Setting(19)" type="text" id="Cl.Web_Setting(19)" value="<%=Cl.Web_Setting(19)%>" size="40"><br /><font color=#3370CC>只有在网站使用设置中打开了发送邮件功能，该填写内容方有效</font>
      </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="25%" height="25" align=right><strong>邮件登录密码：</strong></td>
      <td height="25"> 
        <input name="Cl.Web_Setting(20)" type="PassWord" id="Cl.Web_Setting(20)" value="<%=Cl.Web_Setting(20)%>" size="40"><br /><font color=#3370CC>只有在网站使用设置中打开了发送邮件功能，该填写内容方有效</font>
      </td>
    </tr>
</table>
<br />
<table border="0" align="center" cellpadding="0" cellspacing="1" Class="border">
    <tr> 
      <td height="25" colspan="2" class="title"><a name="Upload"></a><strong> 上传文件总设置&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</strong><a href="#Top"><font color="white">（顶&nbsp;部）</font></a></td>
    </tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>选取上传组件：</strong></td>
		<td>
		<select name="Cl.Upload_Setting(1)" id="Cl.Upload_Setting(1)" onChange="chkselect(options[selectedIndex].value,'know2');">
		<option value="999">完全关闭上传功能
		<option value="0">无组件上传类
		<option value="1">Aspupload3.0组件 
		<option value="2">SA-FileUp 4.0组件
		<option value="3">DvFile-Up V1.0组件
		</option></select><div id="know2"></div>
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>选取生成预览图片组件：</strong></td>
		<td> 
		<select name="Cl.Upload_Setting(2)" id="Cl.Upload_Setting(2)" onChange="chkselect(options[selectedIndex].value,'know3');">
		<option value="999">关闭
		<option value="0">CreatePreviewImage组件
		<option value="1">AspJpeg组件
		<option value="2">SA-ImgWriter组件
		</select><div id="know3"></div>
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>图片水印设置开关：</strong></td>
		<td> 
			<SELECT name="Cl.Upload_Setting(3)" id="Cl.Upload_Setting(3)">
			<OPTION value="0">关闭水印效果</OPTION>
			<OPTION value="1">水印文字效果</OPTION>
			<OPTION value="2">水印图片效果</OPTION>
			</SELECT>
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>上传图片添加水印文字信息：</strong></td>
		<td>
		<INPUT TYPE="text" name="Cl.Upload_Setting(4)" size=40 value="<%=Cl.Upload_Setting(4)%>">
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>上传添加水印字体大小：</strong></td>
		<td> 
		<INPUT TYPE="text" name="Cl.Upload_Setting(5)" size=10 value="<%=Cl.Upload_Setting(5)%>"> <strong>px</strong>
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>上传添加水印字体颜色：</strong></td>
		<td>
		<input type="text" name="Cl.Upload_Setting(6)" id="Cl.Upload_Setting(6)" size=10 value="<%=Cl.Upload_Setting(6)%>">
		<img border=0 src="../images/Gcolor.gif" style="cursor:pointer;background-Color:<%=Cl.Upload_Setting(6)%>;" onclick="Getcolor(this,'Cl.Upload_Setting(6)');" title="选取颜色!" align="absmiddle">
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>上传添加水印字体名称：</strong></td>
		<td>
		<SELECT name="Cl.Upload_Setting(7)" id="Cl.Upload_Setting(7)">
		<option value="宋体">宋体</option>
		<option value="楷体_GB2312">楷体</option>
		<option value="新宋体">新宋体</option>
		<option value="黑体">黑体</option>
		<option value="隶书">隶书</option>
		<OPTION value="Andale Mono" selected>Andale Mono</OPTION> 
		<OPTION value=Arial>Arial</OPTION> 
		<OPTION value="Arial Black">Arial Black</OPTION> 
		<OPTION value="Book Antiqua">Book Antiqua</OPTION>
		<OPTION value="Century Gothic">Century Gothic</OPTION> 
		<OPTION value="Comic Sans MS">Comic Sans MS</OPTION>
		<OPTION value="Courier New">Courier New</OPTION>
		<OPTION value=Georgia>Georgia</OPTION>
		<OPTION value=Impact>Impact</OPTION>
		<OPTION value=Tahoma>Tahoma</OPTION>
		<OPTION value="Times New Roman" >Times New Roman</OPTION>
		<OPTION value="Trebuchet MS">Trebuchet MS</OPTION>
		<OPTION value="Script MT Bold">Script MT Bold</OPTION>
		<OPTION value=Stencil>Stencil</OPTION>
		<OPTION value=Verdana>Verdana</OPTION>
		<OPTION value="Lucida Console">Lucida Console</OPTION>
		</SELECT>
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>上传水印字体是否粗体：</strong></td>
		<td> 
		<SELECT name="Cl.Upload_Setting(8)" id="Cl.Upload_Setting(8)">
		<OPTION value=0>否</OPTION>
		<OPTION value=1>是</OPTION>
		</SELECT>
		</td>
	</tr>
<!-- 上传图片添加水印LOGO图片定义 -->
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>添加水印LOGO图片信息：</strong></td>
		<td>
		<INPUT TYPE="text" name="Cl.Upload_Setting(9)" size=40 value="<%=Cl.Upload_Setting(9)%>">
		<br /><font color=#3370CC>填写LOGO的图片相对路径</font>
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>上传图片添加水印透明度：</strong></td>
		<td> 
		<INPUT TYPE="text" name="Cl.Upload_Setting(10)" size=10 value="<%=Cl.Upload_Setting(10)%>"> 如60%请填写0.6
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>水印图片去除底色：</strong></td>
		<td> 
		<INPUT TYPE="text" name="Cl.Upload_Setting(11)" id="Cl.Upload_Setting(11)" size=10 value="<%=Cl.Upload_Setting(11)%>"> 
		<img border=0 src="../images/Gcolor.gif" style="cursor:pointer;background-Color:<%=Cl.Upload_Setting(11)%>;" onclick="Getcolor(this,'Cl.Upload_Setting(11)');" title="选取颜色!" align="absmiddle">&nbsp;&nbsp;<font color=#3370CC>保留为空则水印图片不去除底色。</font>
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>水印文字或图片的长宽定义：</strong></td>
		<td> 
		宽度：<INPUT TYPE="text" name="Cl.Upload_Setting(12)" size=10 value="<%=Cl.Upload_Setting(12)%>"> 象素
		高度：<INPUT TYPE="text" name="Cl.Upload_Setting(13)" size=10 value="<%=Cl.Upload_Setting(13)%>"> 象素
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>添加水印LOGO位置坐标：</strong></td>
		<td>
		<SELECT name="Cl.Upload_Setting(14)" id="Cl.Upload_Setting(14)">
		<option value="0">左上</option>
		<option value="1">左下</option>
		<option value="2">居中</option>
		<option value="3">右上</option>
		<option value="4">右下</option>
		</SELECT>
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>生成预览图片大小设置：</strong></td>
		<td>
			宽度：<INPUT TYPE="text" name="Cl.Upload_Setting(15)" size=10 value="<%=Cl.Upload_Setting(15)%>"> 象素
			高度：<INPUT TYPE="text" name="Cl.Upload_Setting(16)" size=10 value="<%=Cl.Upload_Setting(16)%>"> 象素
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>生成预览图片大小规则选项：</strong></td>
		<td> 
			<SELECT name="Cl.Upload_Setting(17)" id="Cl.Upload_Setting(17)">
			<OPTION value=0>固定</OPTION>
			<OPTION value=1>等比例缩小</OPTION>
			</SELECT>
		</td>
	</tr>
<!-- 上传图片添加水印LOGO图片定义 -->
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>上传目录设定：</strong></td>
		<td>
		<input type=text name="Cl.Upload_Setting(0)" value="<%=Cl.Upload_Setting(0)%>"><br /><font color="#FF0000">如果修改了此项，请用FTP手工创建目录和移动原有上传文件</font>
		</td>
	</tr>
</table>
<br />
<%if SysTemVersion>2 then%>
<table border="0" align="center" cellpadding="0" cellspacing="1" Class="border">
    <tr> 
      <td height="25" colspan="2" class="title"><a name="Product"></a><strong> 商城综合设置&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</strong><a href="#Top"><font color="white">（顶&nbsp;部）</font></a></td>
    </tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>商品订单编号前缀：</strong></td>
		<td>
		<input type=text name="Cl.Product_Setting(0)" value="<%=Cl.Product_Setting(0)%>">
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>在线支付单编号前缀：</strong></td>
		<td>
		<input type=text name="Cl.Product_Setting(1)" value="<%=Cl.Product_Setting(1)%>">
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>允许游客购买商品：</strong></td>
		<td>
		<input type="radio" name="Cl.Product_Setting(2)" value="1" <%if Cl.Product_Setting(2)="1" then response.write "checked"%>> 允许 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="Cl.Product_Setting(2)" value="0" <%if Cl.Product_Setting(2)<>"1" then response.write "checked"%>> 不允许
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>在线支付平台选择：</strong></td>
		<td>
		<select name="Cl.Product_Setting(3)" id="Cl.Product_Setting(3)">
          <option value="0" <%if Cl.Product_Setting(3)="0" then %>selected<%end if%>>关闭在线支付</option>
          <option value="1" <%if Cl.Product_Setting(3)="1" then %>selected<%end if%>>网银在线支付</option>
        </select>
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>在线支付商户号：</strong></td>
		<td>
		<input type=text name="Cl.Product_Setting(4)" value="<%=Cl.Product_Setting(4)%>"><br /><font color="#FF0000">您在在线支付平台申请的商户ID</font>
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>在线支付MD5私钥：</strong></td>
		<td>
		<input type=text name="Cl.Product_Setting(5)" value="<%=Cl.Product_Setting(5)%>" size=40><br /><font color="#FF0000">您在在线支付平台中设置的MD5私钥</font>
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>在线支付手续费率：</strong></td>
		<td>
		<input name="Cl.Product_Setting(7)" type="text" id="Cl.Product_Setting(7)" value="<%=Cl.Product_Setting(7)%>" size="5" maxlength="2" style="text-align:right">%
		&nbsp;&nbsp;&nbsp;&nbsp;
		<input name="Cl.Product_Setting(6)" type="checkbox" value="1"  <%if Cl.Product_Setting(6)="1" then %>checked<%end if%> > 手续费由付款人额外支付
		</td>
	</tr>
    <tr class="tdbg">
		<td width="25%" height="25" align=right><strong>商品税率设置：</strong></td>            
		<td>
		<input name="Cl.Product_Setting(9)" type="text" value="<%=Cl.Product_Setting(9)%>" size="5" style="text-align: right;" maxlength="2">% 
		&nbsp;&nbsp;&nbsp;&nbsp;
		<input type="checkbox" name="Cl.Product_Setting(8)" value="1" <%if Cl.Product_Setting(8)="1" then%>checked<%end if%>> 商品税金由付款人额外支付
		</td>
	</tr>
    <tr class="tdbg">
		<td width="25%" height="25" align=right><strong>在线支付额外赠送：</strong></td>            
		<td>
		<%=Cl.Web_Setting(26)%>：<input name="Cl.Product_Setting(10)" type="text" id="Cl.Product_Setting(10)" value="<%=Cl.Product_Setting(10)%>" size="5" maxlength="3" style="text-align: right;">&nbsp;<%=Cl.Web_Setting(27)%>＋支付金额的<input name="Cl.Product_Setting(11)" type="text" id="Cl.Product_Setting(11)" value="<%=Cl.Product_Setting(11)%>" size="5" maxlength="2" style="text-align: right;">%<br />
		<%=Cl.Web_Setting(28)%>：<input name="Cl.Product_Setting(12)" type="text" id="Cl.Product_Setting(12)" value="<%=Cl.Product_Setting(12)%>" size="5" maxlength="3" style="text-align: right;">&nbsp;<%=Cl.Web_Setting(29)%>＋支付金额的<input name="Cl.Product_Setting(13)" type="text" id="Cl.Product_Setting(13)" value="<%=Cl.Product_Setting(13)%>" size="5" maxlength="2" style="text-align: right;">%
		</td>
	</tr>
</table>
<br />
<%end if%>
<table border="0" align="center" cellpadding="0" cellspacing="1" Class="border">
    <tr> 
      <td height="25" colspan="2" class="title"><a name="Other"></a><strong> 网站其他设置&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</strong><a href="#Top"><font color="white">（顶&nbsp;部）</font></a></td>
    </tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>是否启用网站Rss：</strong></td>
		<td>
		<input type="radio" name="Cl.Web_Setting(50)" value="Yes" <%if Cl.Web_Setting(50)="Yes" then response.write "checked"%>> 启用 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="Cl.Web_Setting(50)" value="No" <%if Cl.Web_Setting(50)="No" then response.write "checked"%>> 关闭
		</td>
	</tr>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td width="25%" height="25" align=right><strong>是否启用网站Wap：</strong></td>
		<td>
		<input type="radio" name="Cl.Web_Setting(51)" value="Yes" <%if Cl.Web_Setting(51)="Yes" then response.write "checked"%>> 启用 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="Cl.Web_Setting(51)" value="No" <%if Cl.Web_Setting(51)="No" then response.write "checked"%>> 关闭
		</td>
	</tr>
</table>
<br />
<Div align=Center>
	<input name="Action" type="hidden" id="Action" value="SaveConfig">
	<input name="cmdSave" type="submit" id="cmdSave" value="&nbsp;保存设置&nbsp;">
</Div>
</form>
<script language="JavaScript" type="text/javascript">
CheckSel('Cl.Web_Setting(17)','<%=Cl.Web_Setting(17)%>');
CheckSel('Cl.Upload_Setting(1)','<%=Cl.Upload_Setting(1)%>');
CheckSel('Cl.Upload_Setting(2)','<%=Cl.Upload_Setting(2)%>');
CheckSel('Cl.Upload_Setting(3)','<%=Cl.Upload_Setting(3)%>');
CheckSel('Cl.Upload_Setting(7)','<%=Cl.Upload_Setting(7)%>');
CheckSel('Cl.Upload_Setting(8)','<%=Cl.Upload_Setting(8)%>');
CheckSel('Cl.Upload_Setting(14)','<%=Cl.Upload_Setting(14)%>');
CheckSel('Cl.Upload_Setting(17)','<%=Cl.Upload_Setting(17)%>');
</script>
<div id="Issubport0" style="display:none"></div>
<div id="Issubport999" style="display:none"></div>
<%
Dim InstalledObjects(11)
InstalledObjects(1) = "Adodb.Stream"				'Adodb.Stream
InstalledObjects(2) = "Persits.Upload"				'Aspupload3.0
InstalledObjects(3) = "SoftArtisans.FileUp"			'SA-FileUp 4.0
InstalledObjects(4) = "DvFile.Upload"				'DvFile-Up V1.0
'-----------------------
InstalledObjects(5) = "CreatePreviewImage.cGvbox"	'CreatePreviewImage
InstalledObjects(6) = "Persits.Jpeg"				'AspJpeg
InstalledObjects(7) = "SoftArtisans.ImageGen"		'SoftArtisans ImgWriter V1.21
InstalledObjects(8) = "sjCatSoft.Thumbnail"		'sjCatSoft.Thumbnail V2.6

InstalledObjects(9) = "JMail.Message"				'JMail 4.3
InstalledObjects(10) = "CDONTS.NewMail"				'CDONTS
InstalledObjects(11) = "Persits.MailSender"			'ASPEMAIL

For i=1 to 11
	Response.Write "<div id=""Issubport"&i&""" style=""display:none"">"
	If Cl.ChkObjInstalled(InstalledObjects(i)) Then Response.Write InstalledObjects(i)&":<font color=red><strong>√</strong>服务器支持!</font>" Else Response.Write InstalledObjects(i)&"<strong>×</strong>服务器不支持!" 
	Response.Write "</div>"
Next
%>
<script language="JavaScript" type="text/javascript">
<!--
function chkselect(s,divid)
{
var divname='Issubport';
var chkreport;
	s=Number(s)
	if (divid=="know1")
	{
	s+=8;
	if (s==8){s=999;}
	divname=divname+s;
	}
	if (divid=="know2")
	{
	s+=1;
	if (s==1000){s=999;}
	divname=divname+s;
	}
	if (divid=="know3")
	{
	s+=5;
	if (s==1004){s=999;}
	divname=divname+s;
	}
document.getElementById(divid).innerHTML=divname;
chkreport=document.getElementById(divname).innerHTML;
document.getElementById(divid).innerHTML=chkreport;
}
//-->
</script>
<%
end sub

sub SaveConfig()
	Dim HtmlSwitch,IndexHtmlSwitch
	dim NewWeb_Info,NewWeb_Pack,NewWeb_Setting,NewWeb_StyleID,NewWeb_CssID,NewWeb_Cookies
	Dim NewUpload_Setting,NewProduct_Setting,sU_S0
'=====================================================================================
	NewWeb_Info = Trim(request("Cl.Web_Info(0)")) & "$"'网站名称
	NewWeb_Info = NewWeb_Info & Trim(request("Cl.Web_Info(1)")) & "$"'网站标题
	NewWeb_Info = NewWeb_Info & Trim(request("Cl.Web_Info(2)")) & "$"'网站关键字
	NewWeb_Info = NewWeb_Info & Trim(request("Cl.Web_Info(3)")) & "$"'搜索引擎说明
	NewWeb_Info = NewWeb_Info & Trim(request("Cl.Web_Info(4)")) & "$"'网站地址
	NewWeb_Info = NewWeb_Info & Trim(request("Cl.Web_Info(5)")) & "$"'Logo地址
	NewWeb_Info = NewWeb_Info & Trim(request("Cl.Web_Info(6)")) & "$"'Banner地址
	NewWeb_Info = NewWeb_Info & Trim(request("Cl.Web_Info(7)")) & "$"'站长姓名
	NewWeb_Info = NewWeb_Info & Trim(request("Cl.Web_Info(8)")) & "$"'站长信箱
	NewWeb_Info = NewWeb_Info & Trim(request("Cl.Web_Info(9)")) & "$"'版权信息
	NewWeb_Info = NewWeb_Info & Trim(strDir) & "$"'网站安装目录
	NewWeb_Info = NewWeb_Info & Trim(request("Cl.Web_Info(11)")) & "$"'网站当前状态
	NewWeb_Info = NewWeb_Info & Trim(request("Cl.Web_Info(12)")) & "$"'关闭网站原因
	NewWeb_Info = NewWeb_Info & Trim(request("Cl.Web_Info(13)")) & "$"'FSO组件名
	NewWeb_Info = NewWeb_Info & Replace(Trim(request("Cl.Web_Info(14)"))&"/","//","/") & "$"'管理目录
	If Not Cl.ChkObjInstalled(Trim(request("Cl.Web_Info(13)"))) Then
		HtmlSwitch="0"
	else
		HtmlSwitch=Trim(request("Cl.Web_Info(15)"))
    end if
	if Not IsNumeric(HtmlSwitch) then HtmlSwitch="0"
	NewWeb_Info = NewWeb_Info & HtmlSwitch & "$"'是否生成HTML
	NewWeb_Info = NewWeb_Info & Replace(Trim(request("Cl.Web_Info(16)"))&"/","//","/") & "$"'HTML文件目录
	NewWeb_Info = NewWeb_Info & "@@" & Cl.CacheData(1,0)(1)
'=====================================================================================
	NewWeb_Pack = Trim(request("Cl.Web_Pack(0)")) & "|||"
	NewWeb_Pack = NewWeb_Pack & Trim(request("Cl.Web_Pack(1)")) & "|||"
	NewWeb_Pack = NewWeb_Pack & Trim(request("Cl.Web_Pack(2)"))
	NewWeb_Pack = NewWeb_Pack & "@@" & Cl.CacheData(6,0)(1)
'=====================================================================================
	NewWeb_Setting = Trim(request("Cl.Web_Setting(0)")) & "$"
	NewWeb_Setting = NewWeb_Setting & Trim(request("Cl.Web_Setting(1)")) & "$"
	NewWeb_Setting = NewWeb_Setting & Cl.ChkClng(request("Cl.Web_Setting(2)(0)")) & "|"
	NewWeb_Setting = NewWeb_Setting & Cl.ChkClng(request("Cl.Web_Setting(2)(1)")) & "$"
	for i=3 to 21
	NewWeb_Setting = NewWeb_Setting & Trim(request("Cl.Web_Setting("&i&")")) & "$"
	next
	NewWeb_Setting = NewWeb_Setting & Cl.ChkClng(request("Cl.Web_Setting(22)(0)")) & "|"
	NewWeb_Setting = NewWeb_Setting & Cl.ChkClng(request("Cl.Web_Setting(22)(1)")) & "$"
	for i=23 to 29
	NewWeb_Setting = NewWeb_Setting & Trim(request("Cl.Web_Setting("&i&")")) & "$"
	next
	NewWeb_Setting = NewWeb_Setting & Cl.ChkClng(request("Cl.Web_Setting(30)")) & "$"
	for i=31 to 52
	NewWeb_Setting = NewWeb_Setting & Trim(request("Cl.Web_Setting("&i&")")) & "$"
	next
'=====================================================================================
	NewWeb_StyleID	= Cl.ChkClng(request("Web_styleid"))
	NewWeb_CssID	= Cl.ChkClng(request("Web_cssid"))
'=====================================================================================
	sU_S0	=Trim(request("Cl.Upload_Setting(0)"))
	If sU_S0="" then Call Cl.OutMsg("上传目录不能为空！","javascript:history.go(-1)")
	if right(sU_S0,1)<>"/" then sU_S0=sU_S0 & "/"
	NewUpload_Setting=sU_S0 & "$" & Trim(request("Cl.Upload_Setting(1)")) & "$"
	for i=2 to 17
	NewUpload_Setting=NewUpload_Setting & Trim(request("Cl.Upload_Setting("&i&")")) & "$"
	next
'=====================================================================================
	if SysTemVersion>2 then
	NewProduct_Setting = Trim(request("Cl.Product_Setting(0)")) & "|||"
	NewProduct_Setting = NewProduct_Setting & Trim(request("Cl.Product_Setting(1)")) & "|||"
	NewProduct_Setting = NewProduct_Setting & Cl.ChkClng(request("Cl.Product_Setting(2)")) & "|||"
	NewProduct_Setting = NewProduct_Setting & Cl.ChkClng(request("Cl.Product_Setting(3)")) & "|||"
	NewProduct_Setting = NewProduct_Setting & Trim(request("Cl.Product_Setting(4)")) & "|||"
	NewProduct_Setting = NewProduct_Setting & Trim(request("Cl.Product_Setting(5)")) & "|||"
	NewProduct_Setting = NewProduct_Setting & Cl.ChkClng(request("Cl.Product_Setting(6)")) & "|||"
	NewProduct_Setting = NewProduct_Setting & Cl.ChkClng(request("Cl.Product_Setting(7)")) & "|||"
	NewProduct_Setting = NewProduct_Setting & Cl.ChkClng(request("Cl.Product_Setting(8)")) & "|||"
	NewProduct_Setting = NewProduct_Setting & Cl.ChkClng(request("Cl.Product_Setting(9)")) & "|||"
	NewProduct_Setting = NewProduct_Setting & Cl.ChkClng(request("Cl.Product_Setting(10)")) & "|||"
	NewProduct_Setting = NewProduct_Setting & Cl.ChkClng(request("Cl.Product_Setting(11)")) & "|||"
	NewProduct_Setting = NewProduct_Setting & Cl.ChkClng(request("Cl.Product_Setting(12)")) & "|||"
	NewProduct_Setting = NewProduct_Setting & Cl.ChkClng(request("Cl.Product_Setting(13)")) & "|||"
	Cl.Execute("Update Cl_Setup Set Product_Setting='"&replace(NewProduct_Setting,"'","''")&"'")
	end if
'=====================================================================================
	Cl.Execute("Update Cl_Setup Set Web_Info='" & replace(NewWeb_Info,"'","''") & "',Web_Setting='" & replace(NewWeb_Setting,"'","''") & "',Web_StyleID="&NewWeb_StyleID&",Web_CssID="&NewWeb_CssID&",Web_Pack='" & replace(NewWeb_Pack,"'","''") & "',Upload_Setting='"&replace(NewUpload_Setting,"'","''")&"' ")
	If Not Cl.ChkObjInstalled(Trim(request("Cl.Web_Info(13)"))) or Trim(request("Cl.Web_Info(15)"))="0" Then
		Cl.Execute("Update Cl_Channel Set IsCreateHtml=0")
		Response.Write "<script language='JavaScript' type='text/JavaScript'>parent.left.location.reload();</script>"
	end if
	Cl.Delcahe("setup")
	Cl.SaveAdminLog
	Response.Write Cl.ShowSuc("<div align='center'>网站配置保存成功！&gt;&gt;<strong><a href=Admin_Setup.asp>点击返回</a></strong><div>")
end sub
%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 3.1						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: aspoo@126.com			Info@aspoo.cn　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>
