<!--#include file=../conn.asp-->
<!-- #include file="inc/const.asp" -->
<%Head()
	dim admin_flag
	admin_flag=",1,"
	if not master or instr(","&session("flag")&",",admin_flag)=0 then
		Errmsg=ErrMsg + "<BR><li>本页面为管理员专用，请<a href=../"&LoginUrl&" target=_top>登录</a>后进入。<br><li>您没有管理本页面的权限。"
		Ms_error()
	Else
		if request("action")="setsave" then
		call setsave()
		else
		call main()
		end if
		Footer()
	End If

sub main()%>
<iframe width="260" height="165" id="colourPalette" src="../images/nc_selcolor.htm" style="visibility:hidden; position: absolute; left: 0px; top: 0px;border:1px gray solid" frameborder="0" scrolling="no" ></iframe>
<form name="form1" method="post" action="?action=setsave">
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
<tr> 
<th height="23" colspan="3"  id=tabletitlelink>交友系统基本设置项</th>
</tr>
<tr>
      <td height="25" colspan="3" class="forumrow">[<a href="admin_setting.asp?#1">基本设置</a>] 
        [<a href="admin_setting.asp?#2"><font color="#FF0000">安全设置</font></a><a href="../admin_folder.asp" target="_blank">更改</a>] 
        [<a href="admin_setting.asp?#3">用户注册</a>] [<a href="admin_setting.asp?#4">系统设置</a>] 
        [<a href="admin_setting.asp?#5">在线和用户来源</a>] [<a href="admin_setting.asp?#6">邮件选项</a>] 
        [<a href="admin_setting.asp?#7">防刷新机制</a>] [<a href="admin_setting.asp?#8">上传设置</a>] 
        [<a href="admin_setting.asp?#9">会员登录</a>] [<a href="admin_setting.asp?#10">用户选项</a>] 
        [<a href="admin_setting.asp?#11">系统翻页设置</a>] [<a href="admin_setting.asp?#12">系统短信</a>] 
        [<a href="admin_setting.asp?#13">热点设置</a>] [<a href="admin_setting.asp?#14">VIP设置</a>] 
        [<a href="admin_setting.asp?#15">客服中心</a>]</td>
</tr>
</table><br>
<A name=1></A>
  <table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr align="left"> 
      <th height="23" colspan="2"  id=tabletitlelink>基本设置</th>
    </tr>
    <tr> 
      <td width="34%" height="22" class="forumrow"><u>网站名称</U><br>
        设置前台显示的网站名称</td>
      <td width="66%" height="22" class="forumrow"> <input name="websetting(0)" type="text" value="<%=webname%>" size="30"></td>
    </tr>
    <tr> 
      <td height="21" class="forumRowHighlight"><U>网站地址</U><br>
        请输入正确的地址以"/"结尾 </td>
      <td height="21" class="forumRowHighlight"><input name="websetting(1)" type="text" value="<%=Homeurl%>" size="30"></td>
    </tr>
    <tr> 
      <td height="14" class="forumrow"><U>二级域名</U><br>
        根域名，支持泛域名输入“.”，不支持输入@ </td>
      <td height="10" class="forumrow"><input name="websetting(2)" type="text" value="<%=WebUrl%>" size="30">
        不必输入http://如.xmrxw.com或者@xmrxw.com</td>
    </tr>
    <tr>
      <td height="10" class="forumrow"><u>二级域名过滤</u></td>
      <td height="10" class="forumrow"><input name="websetting(14)" type="text" id="websetting(14)" value="<%=freeurl%>" size="30"></td>
    </tr>
    <tr> 
      <td height="12" class="forumRowHighlight"><u>网站Logo</u></td>
      <td height="0" class="forumRowHighlight"><input name="websetting(3)" type="text" value="<%=Weblogo%>" size="30">
        请输入相对路径Logo地址</td>
    </tr>
    <tr> 
      <td height="12" class="forumrow"><u>运行状态</u><br>
        维护期间可设置关闭系统</td>
      <td height="0" class="forumrow"> <input name="websetting(4)" type="radio" value="0" <%if Openclose=0 then%>checked<%end if%>>
        打开 
        <input type="radio" name="websetting(4)" value="1" <%if Openclose=1 then%>checked<%end if%>>
        关闭</td>
    </tr>
    <tr> 
      <td height="25" class="forumRowHighlight"><u>维护说明</U><br>
        在系统关闭情况下显示！<font color="#FF0000">输入时不要换行（回车）</font></td>
      <td height="2" class="forumRowHighlight"><textarea name="websetting(5)" cols="50" rows="3" id=TdStopReadme><%=StopReadme%></textarea> 
        <a href="javascript:admin_Size(-5,'TdStopReadme')"><img src="images/minus.gif" unselectable="on" border='0'></a> 
        <a href="javascript:admin_Size(5,'TdStopReadme')"><img src="images/plus.gif" unselectable="on" border='0'></a></td>
    </tr>
    <tr> 
      <td height="25" class="forumrow"><U>定时设置</U><br> </td>
      <td height="5" class="forumrow"><input name="websetting(8)" type="radio" value="1" <%if split(OpenTime,"|")(2)=1 then%>checked<%end if%>>
        开启 
        <input name="websetting(8)" type="radio" value="0" <%if split(OpenTime,"|")(2)=0 then%>checked<%end if%>>
        关闭</td>
    </tr>
    <tr> 
      <td height="25" class="forumRowHighlight"><u>定时设置</u><br>
        请根据需要选择开或关</td>
      <td height="10" class="forumRowHighlight"> <select name="websetting(6)" id="websetting(6)">
          <option value="0">0点</option>
          <option value="1">1点</option>
          <option value="2">2点</option>
          <option value="3">3点</option>
          <option value="4">4点</option>
          <option value="5">5点</option>
          <option value="6">6点</option>
          <option value="7">7点</option>
          <option value="8">8点</option>
          <option value="9">9点</option>
          <option value="10">10点</option>
          <option value="11">11点</option>
          <option value="12">12点</option>
          <option value="13">13点</option>
          <option value="14">14点</option>
          <option value="15">15点</option>
          <option value="16">16点</option>
          <option value="17">17点</option>
          <option value="18">18点</option>
          <option value="19">19点</option>
          <option value="20">20点</option>
          <option value="21">21点</option>
          <option value="22">22点</option>
          <option value="22">23点</option>
          <option value="24">24点</option>
        </select>
        － 
        <select name="websetting(7)" id="websetting(7)">
          <option value="0">0点</option>
          <option value="1">1点</option>
          <option value="2">2点</option>
          <option value="3">3点</option>
          <option value="4">4点</option>
          <option value="5">5点</option>
          <option value="6">6点</option>
          <option value="7">7点</option>
          <option value="8">8点</option>
          <option value="9">9点</option>
          <option value="10">10点</option>
          <option value="11">11点</option>
          <option value="12">12点</option>
          <option value="13">13点</option>
          <option value="14">14点</option>
          <option value="15">15点</option>
          <option value="16">16点</option>
          <option value="17">17点</option>
          <option value="18">18点</option>
          <option value="19">19点</option>
          <option value="20">20点</option>
          <option value="21">21点</option>
          <option value="22">22点</option>
          <option value="22">23点</option>
          <option value="24">24点</option>
        </select>
        从几点到几点开放</td>
    </tr>
    <tr> 
      <td height="14" class="forumrow"><u>创建日期</U><br>
        (格式：YYYY-M-D)</td>
      <td height="10" class="forumrow"> <input name="websetting(9)" type="text" size="30" value=<%=split(OpenTime,"|")(3)%>> 
      </td>
    </tr>
    <tr> 
      <td height="10" class="forumRowHighlight"><u>版权信息</U><br>
        <font color="#FF0000">输入时不要换行（回车）</font></td>
      <td height="10" class="forumRowHighlight"><textarea name="websetting(10)" cols="50" rows="4" id=Tdwebsetting(10)><%=Copyright%></textarea> 
        <a href="javascript:admin_Size(-5,'Tdwebsetting(10)')"><img src="images/minus.gif" unselectable="on" border='0'></a> 
        <a href="javascript:admin_Size(5,'Tdwebsetting(10)')"><img src="images/plus.gif" unselectable="on" border='0'></a></td>
    </tr>
  </table>
  <br><A name=2></A>
  <table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr align="left"> 
      <th height="23" colspan="2"  id=tabletitlelink>安全设置项[<a href="#top">顶部</a>]</th>
    </tr>
    <tr> 
      <td width="34%" height="12" class="forumrow"><u>后台目录</U><br>
        缺省目录为admin为安全起见,不让其他人知道目录,请修改</td>
      <td width="66%" height="12" class="forumrow"><input name="websetting(11)" type="text" id="websetting(11)" size="30" value=<%=Adminpath%>>
        <br>
        注意：目录名称后面要有&quot;/&quot;，如&quot;admin/&quot; </td>
    </tr>
    <tr> 
      <td height="5" class="forumRowHighlight"><u>Cookie目录</u><br>
        防止跨站读取，请修改</td>
      <td height="5" class="forumRowHighlight"><input name="websetting(12)" type="text" id="websetting(12)" size="30" value=<%=Cookiepath%>> 
        <br>
        注意：目录名称后面要有&quot;/&quot;，如&quot;/love/&quot; </td>
    </tr>
    <tr> 
      <td height="2" class="forumrow"><u>后台IP登陆</u></td>
      <td height="2" class="forumrow"><input type="radio" name="websetting(13)" value="0" <%if ChkIPLogin=0 then%>checked<%end if%>>
        关闭 
        <input name="websetting(13)" type="radio" value="1" <%if ChkIPLogin=1 then%>checked<%end if%>>
        开启</td>
    </tr>
    <tr>
      <td height="3" class="forumrow"><u>后台登录文件</U><br>
        缺省登录文件为admin_login.asp为安全起见,不让其他人知道文件名,请修改</td>
      <td height="3" class="forumrow"><input name="websetting(15)" type="text" id="websetting(15)" value="<%=LoginUrl%>" size="30">
      </td>
    </tr>
	    <tr>
      <td height="3" class="forumrow"><u>数据库备份目录</U><br>
        本目录只对Access数据库有效，注意目录之后必须有“/”</td>
      <td height="3" class="forumrow"><input name="websetting(16)" type="text" id="websetting(16)" value="<%=split(Dbbackup,"|")(0)%>" size="30">
      </td>
    </tr>
	    <tr>
      <td height="3" class="forumrow"><u>数据库备份文件名</U><br>
        本目录只对Access数据库有效</td>
      <td height="3" class="forumrow"><input name="websetting(17)" type="text" id="websetting(17)" value="<%=split(Dbbackup,"|")(1)%>" size="30">
      </td>
    </tr>
  </table>
  <br><A name=3></A>
  <table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr align="left"> 
      <th height="23" colspan="2"  id=tabletitlelink>用户注册设置[<a href="#top">顶部</a>]</th>
    </tr>
    <tr> 
      <td width="34%" height="12" class="forumrow"><u>是否允许新用户注册</u><br>
        关闭后系统将不能注册</td>
      <td width="66%" height="12" class="forumrow"><input name="Usersetting(0)" type="radio" value="1" <%if Regclose=1 then%>checked<%end if%>>
        否 
        <input type="radio" name="Usersetting(0)" value="0" <%if Regclose=0 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="-2" class="forumrow"><U>开启随机注册密码</U><br>
        确认您的站点支持发送mail，所包含密码为系统随机生成 </td>
      <td height="0" class="forumrow"><input name="Usersetting(2)" type="radio" value="0" <%if Rndpass=0 then%>checked<%end if%>>
        否 
        <input type="radio" name="Usersetting(2)" value="1" <%if Rndpass=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="0" class="forumRowHighlight"><u>开启自动人物配置</u><br>
        注册时只要用户输入正确的邮件即赠送金钱</td>
      <td height="1" class="forumRowHighlight"><input type="radio" name="Usersetting(3)" value="0" <%if split(Userattr,"|")(0)=0 then%>checked<%end if%>>
        否 
        <input name="Usersetting(3)" type="radio" value="1" <%if split(Userattr,"|")(0)=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="2" class="forumrow"><U>自动配置人物点数</U><br>
        请确认已开启自动人物配置</td>
      <td height="2" class="forumrow"><input name="Usersetting(4)" type="text" size="5" value="<%=split(Userattr,"|")(1)%>"></td>
    </tr>
    <tr> 
      <td height="-2" class="forumRowHighlight"><u>最短用户名长度</u><br>
        填写数字，不能小于1大于50</td>
      <td height="2" class="forumRowHighlight"> <input name="Usersetting(5)" type="text" id="Usersetting(5)" value="<%=split(Reguserlen,"|")(0)%>" size="5"></td>
    </tr>
    <tr> 
      <td height="-1" class="forumrow"><U>最长用户名长度</U><br>
        填写数字，不能小于1大于50</td>
      <td height="3" class="forumrow"> <input name="Usersetting(6)" type="text" id="Usersetting(6)" value="<%=split(Reguserlen,"|")(1)%>" size="5"></td>
    </tr>
    <tr> 
      <td height="-1" class="forumRowHighlight"><u>注册间隔时间</U><br>
        如不想限制可填写0</td>
      <td height="6" class="forumRowHighlight"> <input name="Usersetting(7)" type="text" id="Usersetting(7)" value="<%=Regtimes%>" size="5">
        秒</td>
    </tr>
    <tr> 
      <td height="-1" class="forumrow"><u>注册需要认证</U></td>
      <td height="6" class="forumrow"><input name="Usersetting(8)" type="radio" value="0" <%if Regchecked=0 then%>checked<%end if%>>
        否 
        <input type="radio" name="Usersetting(8)" value="1" <%if Regchecked=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="0" class="forumRowHighlight"><u>一个Email只能注册一个帐号</U></td>
      <td height="6" class="forumRowHighlight"><input name="Usersetting(9)" type="radio" value="0" <%if Emailctrl=0 then%>checked<%end if%>>
        否 
        <input type="radio" name="Usersetting(9)" value="1" <%if Emailctrl=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="-2" class="forumrow"><U>开启注册邮件发送</U><br>
        请确认您打开了邮件功能</td>
      <td height="2" class="forumrow"><input name="Usersetting(10)" type="radio" value="0" <%if Regemail=0 then%>checked<%end if%>>
        否 
        <input type="radio" name="Usersetting(10)" value="1" <%if Regemail=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="-1" class="forumRowHighlight"><U>开启短信欢迎新注册用户</U></td>
      <td height="3" class="forumRowHighlight"><input type="radio" name="Usersetting(11)" value="0" <%if Regsendmsg=0 then%>checked<%end if%>>
        否 
        <input name="Usersetting(11)" type="radio" value="1" <%if Regsendmsg=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="0" class="forumrow"><U>注册立即登录</U></td>
      <td height="6" class="forumrow"><input type="radio" name="Usersetting(12)" value="0" <%if Reglogin=0 then%>checked<%end if%>>
        否 
        <input name="Usersetting(12)" type="radio" value="1" <%if Reglogin=1 then%>checked<%end if%>>
        是</td>
    </tr>
  </table>
  <br><A name=4></A>
  <table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr align="left"> 
      <th height="23" colspan="2"  id=tabletitlelink>系统设置项[<a href="#top">顶部</a>]</th>
    </tr>
    <tr> 
      <td width="34%" height="12" class="forumrow"><U>服务器时差</U></td>
      <td width="66%" height="12" class="forumrow"> <select name="Sersettin(0)">
          <option value="-23" >-23 
          <option value="-22" >-22 
          <option value="-21" >-21 
          <option value="-20" >-20 
          <option value="-19" >-19 
          <option value="-18" >-18 
          <option value="-17" >-17 
          <option value="-16" >-16 
          <option value="-15" >-15 
          <option value="-14" >-14 
          <option value="-13" >-13 
          <option value="-12" >-12 
          <option value="-11" >-11 
          <option value="-10" >-10 
          <option value="-9" >-9 
          <option value="-8" >-8 
          <option value="-7" >-7 
          <option value="-6" >-6 
          <option value="-5" >-5 
          <option value="-4" >-4 
          <option value="-3" >-3 
          <option value="-2" >-2 
          <option value="-1" >-1 
          <option value="0" selected>0 
          <option value="1" >1 
          <option value="2" >2 
          <option value="3" >3 
          <option value="4" >4 
          <option value="5" >5 
          <option value="6" >6 
          <option value="7" >7 
          <option value="8" >8 
          <option value="9" >9 
          <option value="10" >10 
          <option value="11" >11 
          <option value="12" >12 
          <option value="13" >13 
          <option value="14" >14 
          <option value="15" >15 
          <option value="16" >16 
          <option value="17" >17 
          <option value="18" >18 
          <option value="19" >19 
          <option value="20" >20 
          <option value="21" >21 
          <option value="22" >22 
          <option value="23" >23 </select></td>
    </tr>
    <tr> 
      <td height="5" class="forumRowHighlight"><U>脚本超时时间</U><br>
        默认为300，一般不做更改</td>
      <td height="5" class="forumRowHighlight"><input name="Sersettin(1)" type="text" id="Sersettin(1)" size="5" value=<%=StopTimeOut%>>
        秒 </td>
    </tr>
    <tr> 
      <td height="6" class="forumrow"><U>是否显示页面执行时间</U></td>
      <td height="6" class="forumrow"><input type="radio" name="Sersettin(2)" value="0" <%if StarEndtime=0 then%>checked<%end if%>>
        关闭 
        <input name="Sersettin(2)" type="radio" value="1" <%if StarEndtime=1 then%>checked<%end if%>>
        开启</td>
    </tr>
    <tr> 
      <td height="2" class="forumRowHighlight"><U>禁止注册邮件字符</U><br>
        系统禁止注册邮件字符#,!,% </td>
      <td height="2" class="forumRowHighlight"> <input name="Sersettin(3)" type="text" id="Sersettin(3)" value="<%=SplitEmail%>" size="30"> 
        <br>
        以&quot;,&quot; 分隔开</td>
    </tr>
    <tr> 
      <td height="1" class="forumrow"><U>禁止注册字符</U><br>
        用户名禁止包含这些字符</td>
      <td height="1" class="forumrow"><input name="Sersettin(4)" type="text" id="Sersettin(4)" value="<%=RSplitWord%>" size="30"> 
        <br>
        以&quot;,&quot; 分隔开 </td>
    </tr>
    <tr> 
      <td height="0" class="forumRowHighlight"><U>坏词语过滤</U><br>
        词语之间以"|"分开，<font color="#FF0000">输入时不要换行（回车）</font></td>
      <td height="0" class="forumRowHighlight"><textarea name="Sersettin(5)" cols="50" rows="3" id="TdSersettin(5)"><%=BadWords%></textarea> 
        <a href="javascript:admin_Size(-5,'TdSersettin(5)')"><img src="images/minus.gif" unselectable="on" border='0'></a> 
        <a href="javascript:admin_Size(5,'TdSersettin(5)')"><img src="images/plus.gif" unselectable="on" border='0'></a></td>
    </tr>
    <tr>
      <td height="0" class="forumrow"><u>程序注册号</u><br>
        正版用户请输入注册号，可为0</td>
      <td height="0" class="forumrow"><input name="Sersettin(6)" type="text" size="10" value=<%=UpcodeID%>></td>
    </tr>
  </table>
  <br><A name=5></A>
  <table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr align="left"> 
      <th height="23" colspan="2"  id=tabletitlelink>在线和用户来源设置[<a href="#top">顶部</a>]</th>
    </tr>
    <%dim useronset
	useronset=split(Onlineset,"|")%>
    <tr> 
      <td width="34%" height="5" class="forumRowHighlight"><U>显示在线会员</U></td>
      <td width="66%" height="5" class="forumRowHighlight"><input type="radio" name="Onsetting(0)" value="0" <%if Showonline=0 then%>checked<%end if%>>
        关闭 
        <input name="Onsetting(0)" type="radio" value="1" <%if Showonline=1 then%>checked<%end if%>>
        打开</td>
    </tr>
    <tr>
      <td width="34%" height="6" class="forumrow"><u>在线显示用户IP</u><br>
        开启本功能较消耗资源</td>
      <td height="6" class="forumrow"><input type="radio" name="Onsetting(1)" value="0" <%if useronset(0)=0 then%>checked<%end if%>>
        保密 
        <input name="Onsetting(1)" type="radio" value="1" <%if useronset(0)=1 then%>checked<%end if%>>
        公开</td>
    </tr>
    <tr> 
      <td height="5" class="forumRowHighlight"><U>在线显示用户来源</U><br>
        开启本功能较消耗资源</td>
      <td height="5" class="forumRowHighlight"><input type="radio" name="Onsetting(2)" value="0" <%if useronset(1)=0 then%>checked<%end if%>>
        保密 
        <input name="Onsetting(2)" type="radio" value="1" <%if useronset(1)=1 then%>checked<%end if%>>
        公开</td>
    </tr>
    <tr> 
      <td height="-2" class="forumrow"><U>显示用户当前位置</U></td>
      <td height="2" class="forumrow"><input type="radio" name="Onsetting(3)" value="0" <%if useronset(2)=0 then%>checked<%end if%>>
        否 <input name="Onsetting(3)" type="radio" value="1" <%if useronset(2)=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="-1" class="forumRowHighlight"><U>显示用户登录和活动时间</U></td>
      <td height="3" class="forumRowHighlight"><input type="radio" name="Onsetting(4)" value="0" <%if useronset(3)=0 then%>checked<%end if%>>
        否 
        <input name="Onsetting(4)" type="radio" value="1"  <%if useronset(3)=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="-1" class="forumrow"><U>显示用户浏览器和操作系统</U></td>
      <td height="-1" class="forumrow"><input type="radio" name="Onsetting(5)" value="0" <%if useronset(4)=0 then%>checked<%end if%>>
        否 
        <input name="Onsetting(5)" type="radio" value="1" <%if useronset(4)=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="-1" class="forumRowHighlight"><U>在线名单显示客人在线</U><br>
        为节省资源建议关闭</td>
      <td height="-1" class="forumRowHighlight"><input type="radio" name="Onsetting(6)" value="0" <%if useronset(5)=0 then%>checked<%end if%>>
        关闭 
        <input type="radio" name="Onsetting(6)" value="1" <%if useronset(5)=1 then%>checked<%end if%>>
        打开</td>
    </tr>
    <tr> 
      <td height="-1" class="forumrow"><U>在线名单显示用户在线</U><br>
        为节省资源建议关闭</td>
      <td height="-1" class="forumrow"><input type="radio" name="Onsetting(7)" value="0" <%if useronset(6)=0 then%>checked<%end if%>>
        关闭 
        <input type="radio" name="Onsetting(7)" value="1" <%if useronset(6)=1 then%>checked<%end if%>>
        打开</td>
    </tr>
    <tr> 
      <td height="0" class="forumRowHighlight"><U>删除不活动用户时间</U><br>
        可设置删除多少分钟内不活动用户<br>
        单位：分钟，请输入数字</td>
      <td height="6" class="forumRowHighlight"><input name="Onsetting(8)" type="text" size="5" value=<%=useronset(7)%>>
        分钟 </td>
    </tr>
    <tr> 
      <td height="2" class="forumrow"><U>系统允许同时在线数</U><br>
        如不想限制，可设置为0</td>
      <td height="2" class="forumrow"><input name="Onsetting(9)" type="text" size="5" value=<%=useronset(8)%>>
        人 </td>
    </tr>
    <tr> 
      <td height="3" class="forumRowHighlight"><U>展开用户在线列表每页显示用户数</U></td>
      <td height="3" class="forumRowHighlight"><input name="Onsetting(10)" type="text" size="5" value=<%=useronset(9)%>>
        人 </td>
    </tr>
  </table>
  <br><A name=6></A>
  <table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr align="left"> 
      <th height="23" colspan="2"  id=tabletitlelink>邮件选项[<a href="#top">顶部</a>]</th>
    </tr>
    <tr> 
      <td width="34%" height="12" class="forumrow"><u>发送邮件组件</u> <br>
        如果您的服务器不支持下列组件，请选择不支持</td>
      <td width="66%" height="12" class="forumrow"><select name="Mailsetting(0)" id="Mailsetting(0)" onChange="chkselect(options[selectedIndex].value,'know1');">
          <option value="0" <%if Mailtype=0 then%>selected<%end if%>>不支持 
          <option value="1" <%if Mailtype=1 then%>selected<%end if%>>JMAIL 
          <option value="2" <%if Mailtype=2 then%>selected<%end if%>>CDONTS 
          <option value="3" <%if Mailtype=3 then%>selected<%end if%>>ASPEMAIL 
        </select> <div id=know1></div></td>
    </tr>
    <tr> 
      <td height="5" class="forumRowHighlight"> <U>SMTP Server地址</U> <BR>
        只有在系统使用设置中打开了发送邮件功能，该填写内容方有效</td>
      <td height="5" class="forumRowHighlight"> <input name="Mailsetting(1)" type="text" id="Mailsetting(1)" value="<%=Mailsmtp%>" size="30"></td>
    </tr>
    <tr> 
      <td height="2" class="forumrow"><U>邮件登录用户名</U><BR>
        只有在论坛使用设置中打开了发送邮件功能，该填写内容方有效</td>
      <td height="2" class="forumrow"> <input name="Mailsetting(2)" type="text" id="Mailsetting(2)" value="<%=Mailuser%>" size="30"></td>
    </tr>
    <tr> 
      <td height="1" class="forumRowHighlight"><U>邮件登录密码</U></td>
      <td height="1" class="forumRowHighlight"> <input name="Mailsetting(3)" type="password" id="Mailsetting(3)" value="<%=Mailpass%>" size="30"></td>
    </tr>
    <tr> 
      <td height="0" class="forumrow"><U>会员可对外发送邮件</U></td>
      <td height="0" class="forumrow"><input type="radio" name="Mailsetting(4)" value="0" <%if Mailpost=0 then%>checked<%end if%>>
        否 <input name="Mailsetting(4)" type="radio" value="1" <%if Mailpost=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr>
      <td height="0" class="forumRowHighlight"><U>管理员邮件</U><br>
邮件地址包括发送、联系</td>
      <td height="0" class="forumRowHighlight"><input name="Mailsetting(5)" type="text" id="Mailsetting(5)" value="<%=Mailsend%>" size="30"></td>
    </tr>
  </table>
  <br><A name=7></A>
  <table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr align="left"> 
      <th height="23" colspan="2"  id=tabletitlelink>防刷新机制[<a href="#top">顶部</a>]</th>
    </tr>
    <tr> 
      <%dim reflashset
	reflashset=split(Reflash,"|")%>
      <td width="34%" height="12" class="forumrow"><U>防刷新机制</U><br>
        如选择打开请填写下面的限制刷新时间</td>
      <td width="66%" height="12" class="forumrow"><input type="radio" name="Mailsetting(7)" value="0" <%if reflashset(0)=0 then%>checked<%end if%>>
        关闭 
        <input name="Mailsetting(7)" type="radio" value="1" <%if reflashset(0)=1 then%>checked<%end if%>>
        打开</td>
    </tr>
    <tr> 
      <td height="5" class="forumRowHighlight">浏览刷新时间间隔<br>
        填写该项目请确认您打开了防刷新机制</td>
      <td height="5" class="forumRowHighlight"><input name="Mailsetting(8)" type="text" value="<%=reflashset(1)%>" size="5">
        秒</td>
    </tr>
    <tr> 
      <td height="2" class="forumrow">防刷新功能有效的页面<br>
        请确认您打开了防刷新功能<br>
        您指定的页面将有防刷新作用，用户在限定的时间内不能重复打开该页面，具有一定减少资源消耗的作用<br>
        每个页面名请用“|”符号隔开</td>
      <td height="2" class="forumrow"> <input name="Mailsetting(9)" type="text" value="<%=REflashpage%>" size="50"></td>
    </tr>
	
    <tr> 
      <td height="-2" class="forumRowHighlight"><U>注册是否采用验证码</U><br>
        开启此项可以防止恶意注册</td>
      <td height="2" class="forumRowHighlight"><input type="radio" name="Mailsetting(10)" value="0" <%if Codeshow(0)=0 then%>checked<%end if%>>
        否 
        <input name="Mailsetting(10)" type="radio" value="1" <%if Codeshow(0)=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="-1" class="forumrow"><U>登录是否采用验证码</U><br>
        开启此项可以防止恶意登录</td>
      <td height="3" class="forumrow"><input type="radio" name="Mailsetting(11)" value="0" <%if Codeshow(1)=0 then%>checked<%end if%>>
        否 
        <input name="Mailsetting(11)" type="radio" value="1" <%if Codeshow(1)=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="-1" class="forumRowHighlight"><U>短信是否采用验证码</U><br>
        开启此项可以防止恶意发送短信</td>
      <td height="6" class="forumRowHighlight"><input type="radio" name="Mailsetting(12)" value="0" <%if Codeshow(2)=0 then%>checked<%end if%>>
        否 
        <input name="Mailsetting(12)" type="radio" value="1" <%if Codeshow(2)=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="-1" class="forumrow"><U>日记是否采用验证码</U><br>
        开启此项可以防止恶意发送日记</td>
      <td height="6" class="forumrow"><input type="radio" name="Mailsetting(13)" value="0" <%if Codeshow(3)=0 then%>checked<%end if%>>
        否 
        <input name="Mailsetting(13)" type="radio" value="1" <%if Codeshow(3)=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="-1" class="forumRowHighlight"><U>约会是否采用验证码</U><br>
        开启此项可以防止恶意发送约会</td>
      <td height="6" class="forumRowHighlight"><input type="radio" name="Mailsetting(14)" value="0" <%if Codeshow(4)=0 then%>checked<%end if%>>
        否 
        <input name="Mailsetting(14)" type="radio" value="1" <%if Codeshow(4)=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="-1" class="forumrow"><U>聚会是否采用验证码</U><br>
        开启此项可以防止恶意发送聚会</td>
      <td height="6" class="forumrow"><input type="radio" name="Mailsetting(15)" value="0" <%if Codeshow(5)=0 then%>checked<%end if%>>
        否 
        <input name="Mailsetting(15)" type="radio" value="1" <%if Codeshow(5)=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="-1" class="forumRowHighlight"><U>文章是否采用验证码</U><br>
        开启此项可以防止恶意发送文章</td>
      <td height="6" class="forumRowHighlight"><input type="radio" name="Mailsetting(16)" value="0" <%if Codeshow(6)=0 then%>checked<%end if%>>
        否 
        <input name="Mailsetting(16)" type="radio" value="1" <%if Codeshow(6)=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="0" class="forumrow"><U>相册是否采用验证码</U><br>
        开启此项可以防止恶意上传相册</td>
      <td height="6" class="forumrow"><input type="radio" name="Mailsetting(17)" value="0" <%if Codeshow(7)=0 then%>checked<%end if%>>
        否 
        <input name="Mailsetting(17)" type="radio" value="1" <%if Codeshow(7)=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="-2" class="forumRowHighlight"><U>取密是否采用验证码</U><br>
        开启此项可以防止恶意获取密码</td>
      <td height="2" class="forumRowHighlight"><input type="radio" name="Mailsetting(18)" value="0" <%if Codeshow(8)=0 then%>checked<%end if%>>
        否 
        <input name="Mailsetting(18)" type="radio" value="1" <%if Codeshow(8)=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr>
      <td height="0" class="forumrow"><U>网址是否采用验证码</U><br>
        开启此项可以防止恶意添加网址</td>
      <td height="3" class="forumrow"><input type="radio" name="Mailsetting(19)" value="0" <%if Codeshow(9)=0 then%>checked<%end if%>>
        否 
        <input name="Mailsetting(19)" type="radio" value="1" <%if Codeshow(9)=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr>
      <td height="6" class="forumRowHighlight"><U>好友是否采用验证码</U><br>
        开启此项可以防止恶意添加好友</td>
      <td height="6" class="forumRowHighlight"><input type="radio" name="Mailsetting(20)" value="0" <%if Codeshow(10)=0 then%>checked<%end if%>>
        否 
        <input name="Mailsetting(20)" type="radio" value="1" <%if Codeshow(10)=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr>
      <td height="6" class="forumRowHighlight"><U>征婚是否采用验证码</U><br>
        开启此项可以防止恶意添加征婚</td>
      <td height="6" class="forumRowHighlight"><input type="radio" name="Mailsetting(21)" value="0" <%if Codeshow(11)=0 then%>checked<%end if%>>
        否 
        <input name="Mailsetting(21)" type="radio" value="1" <%if Codeshow(11)=1 then%>checked<%end if%>>
        是</td>
    </tr>
  </table>
  <br><A name=8></A>
  <table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr align="left"> 
      <th width="100%" height="23" colspan="2"  id=tabletitlelink>上传设置[<a href="#top">顶部</a>]</th>
    </tr>
    <%dim uploadseting
	uploadseting=split(Uploadset,"|")%>
    <tr> 
      <td class=Forumrow ><U>选取上传组件</U></td>
      <td class=Forumrow > <select name="UploadSetting(0)" id="UploadSetting(0)" onChange="chkselect(options[selectedIndex].value,'know2');">
          <option value="999" <%if Uploadtype=999 then%>selected<%end if%>>关闭 
          <option value="0" <%if Uploadtype=0 then%>selected<%end if%>>无组件上传类 
          <option value="1" <%if Uploadtype=1 then%>selected<%end if%>>Aspupload3.0组件 
          <option value="2" <%if Uploadtype=2 then%>selected<%end if%>>SA-FileUp 4.0组件 
          <option value="3" <%if Uploadtype=3 then%>selected<%end if%>>DvFile-Up V1.0组件 </option>
        </select> <div id="know2"></div></td>
    </tr>
    <tr> 
      <td class=ForumRowHighlight><U>选取生成预览图片组件</U></td>
      <td class=ForumRowHighlight> <select name="UploadSetting(1)" id="UploadSetting(1)" onChange="chkselect(options[selectedIndex].value,'know3');">
          <option value="999" <%if uploadseting(0)=999 then%>selected<%end if%>>关闭 
          <option value="0" <%if uploadseting(0)=0 then%>selected<%end if%>>CreatePreviewImage组件 
          <option value="1" <%if uploadseting(0)=1 then%>selected<%end if%>>AspJpeg组件 
          <option value="2" <%if uploadseting(0)=2 then%>selected<%end if%>>SA-ImgWriter组件 </select> <div id="know3"></div></td>
    </tr>
    <tr> 
      <td class=ForumRow><U>生成预览图片大小设置(宽度|高度)</U></td>
      <td class=ForumRow> 宽度： 
        <INPUT TYPE="text" NAME="UploadSetting(2)" size=10 value="<%=uploadseting(1)%>">
        象素 高度： 
        <INPUT TYPE="text" NAME="UploadSetting(3)" size=10 value="<%=uploadseting(2)%>">
        象素 </td>
    </tr>
    <tr> 
      <td class=ForumRowHighlight><U>生成预览图片大小规则选项</U></td>
      <td class=ForumRowHighlight> <SELECT name="UploadSetting(4)" id="UploadSetting(4)">
          <OPTION value=0  <%if uploadseting(3)=0 then%>selected<%end if%>>固定</OPTION>
          <OPTION value=1 <%if uploadseting(3)=1 then%>selected<%end if%>>等比例缩小</OPTION>
        </SELECT> </td>
    </tr>
    <tr> 
      <td class=ForumRow><U>图片水印设置开关</U></td>
      <td class=ForumRow> <SELECT name="UploadSetting(5)" id="UploadSetting(5)">
          <OPTION value="0" <%if uploadseting(4)=0 then%>selected<%end if%>>关闭水印效果</OPTION>
          <OPTION value="1" <%if uploadseting(4)=1 then%>selected<%end if%>>水印文字效果</OPTION>
          <OPTION value="2" <%if uploadseting(4)=2 then%>selected<%end if%>>水印图片效果</OPTION>
        </SELECT> </td>
    </tr>
    <tr> 
      <td class=ForumRowHighlight><U>上传图片添加水印文字信息（可为空或0）</U></td>
      <td class=ForumRowHighlight> <INPUT TYPE="text" NAME="UploadSetting(6)" size=40 value="<%=uploadseting(5)%>"> 
      </td>
    </tr>
    <tr> 
      <td class=ForumRow><U>上传添加水印字体大小</U></td>
      <td class=ForumRow> <INPUT TYPE="text" NAME="UploadSetting(7)" size=10 value="<%=uploadseting(6)%>"> 
        <b>px</b> </td>
    </tr>
    <tr> 
      <td class=ForumRowHighlight><U>上传添加水印字体颜色</U></td>
      <td class=ForumRowHighlight> <input name="UploadSetting(8)" type="text" id="UploadSetting(8)" value="<%=uploadseting(7)%>" size="10"> 
        <img src="../images/rect.gif" width="18" height="17" border=0 style="cursor:pointer;background-Color:<%=uploadseting(7)%>;" title="选取颜色!" onclick="Getcolor(this,'UploadSetting(8)');"> 
      </td>
    </tr>
    <tr> 
      <td class=ForumRow><U>上传添加水印字体名称</U></td>
      <td class=ForumRow> <SELECT name="UploadSetting(9)" id="UploadSetting(9)">
	  <option value="<%=uploadseting(8)%>" selected><%=uploadseting(8)%></option>
          <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> 
      <td class=ForumRowHighlight><U>上传水印字体是否粗体</U></td>
      <td class=ForumRowHighlight> <SELECT name="UploadSetting(10)" id="UploadSetting(10)">
          <OPTION value=0 <%if uploadseting(9)=0 then%>selected<%end if%>>否</OPTION>
          <OPTION value=1 <%if uploadseting(9)=1 then%>selected<%end if%>>是</OPTION>
        </SELECT> </td>
    </tr>
    <tr> 
      <td class=ForumRow><U>上传图片添加水印LOGO图片信息（可为空或0）</U><br>
        填写LOGO的图片相对路径</td>
      <td class=ForumRow> <INPUT TYPE="text" NAME="UploadSetting(11)" size=40 value="<%=uploadseting(10)%>"> 
      </td>
    </tr>
    <tr> 
      <td class=ForumRowHighlight><U>上传图片添加水印透明度</U></td>
      <td class=ForumRowHighlight> <INPUT TYPE="text" NAME="UploadSetting(12)" size=10 value="<%=uploadseting(11)%>">
        如60%请填写0.6 </td>
    </tr>
    <tr> 
      <td class=ForumRow><U>水印图片去除底色</U><br>
        保留为空则水印图片不去除底色。</td>
      <td class=ForumRow> <INPUT TYPE="text" NAME="UploadSetting(13)" ID="UploadSetting(13)" size=10 value="<%=uploadseting(12)%>"> 
        <img src="../images/rect.gif" width="18" height="17" border=0 style="cursor:pointer;background-Color:<%=uploadseting(12)%>;" title="选取颜色!" onclick="Getcolor(this,'UploadSetting(13)');"> 
      </td>
    </tr>
    <tr> 
      <td class=ForumRowHighlight><U>水印文字或图片的长宽区域定义</U><br>
        如水印图片的宽度和高度。</td>
      <td class=ForumRowHighlight> 宽度： 
        <INPUT TYPE="text" NAME="UploadSetting(14)" size=10 value="<%=uploadseting(13)%>">
        象素 高度： 
        <INPUT TYPE="text" NAME="UploadSetting(15)" size=10 value="<%=uploadseting(14)%>">
        象素 </td>
    </tr>
    <tr> 
      <td class=ForumRow><U>上传图片添加水印LOGO位置坐标 </U></td>
      <td class=ForumRow> <SELECT NAME="UploadSetting(16)" id="UploadSetting(16)">
          <option value="0" <%if uploadseting(15)=0 then%>selected<%end if%>>左上</option>
          <option value="1" <%if uploadseting(15)=1 then%>selected<%end if%>>左下</option>
          <option value="2" <%if uploadseting(15)=2 then%>selected<%end if%>>居中</option>
          <option value="3" <%if uploadseting(15)=3 then%>selected<%end if%>>右上</option>
          <option value="4" <%if uploadseting(15)=4 then%>selected<%end if%>>右下</option>
        </SELECT> </td>
    </tr>
    <tr> 
      <td class=ForumRowHighlight><U>上传目录设定</U></td>
      <td class=ForumRowHighlight> <input type=text name="UploadSetting(17)" value=<%=SaveUpFilesPath%>>
        如果修改了此项，请用FTP手工创建目录和移动原有上传文件。 </td>
    </tr>
    <tr> 
      <td class=ForumRow><u>预览目录设定</u></td>
      <td class=ForumRow><input name="UploadSetting(18)" type="text" id="UploadSetting(18)" value="<%=UpfilePreview%>"></td>
    </tr>
    <tr> 
      <td class=ForumRowHighlight><U>上传文件类设定</U><br>
        以"|"分开</td>
      <td class=ForumRowHighlight> <input name="UploadSetting(19)" type="text" id="UploadSetting(19)" value="<%=UpFileType%>"></td>
    </tr>
    <tr> 
      <td class=ForumRow><U>每次上传文件数</U></td>
      <td class=ForumRow> <input name="UploadSetting(20)" type="text" id="UploadSetting(20)" value="<%=Uploadnum%>" size="5">
        个</td>
    </tr>
    <tr> 
      <td class=ForumRowHighlight><u>上传文件大小</u></td>
      <td class=ForumRowHighlight> <input name="UploadSetting(21)" type="text" id="UploadSetting(21)" value="<%=MaxFileSize%>" size="5">
        Kb</td>
    </tr>
    <tr>
      <td class=ForumRow><u>允许远程上传文件</u></td>
      <td class=ForumRow><input type="radio" name="UploadSetting(22)" value="0" <%if EnableSaveRemote=0 then%>checked<%end if%>>
        否
<input name="UploadSetting(22)" type="radio" value="1" <%if EnableSaveRemote=1 then%>checked<%end if%>>
        是（本功能下个版制作）</td>
    </tr>
  </table>
  <br><A name=9></A>
  <table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr align="left"> 
      <th height="23" colspan="2"  id=tabletitlelink>会员登录设置[<a href="#top">顶部</a>]</th>
    </tr>
    <%dim Loginsetings
	Loginsetings=split(Loginseting,"|")%>
    <tr> 
      <td width="34%" height="12" class="forumrow"><U>每次登录给予会员金额</U></td>
      <td width="66%" height="12" class="forumrow"><input name="UserLseting(0)" type="text" value="<%=Loginsetings(0)%>" size="5">
        元</td>
    </tr>
    <tr> 
      <td height="5" class="forumRowHighlight"><U>每次登录给予会员魅力</U></td>
      <td height="5" class="forumRowHighlight"><input name="UserLseting(1)" type="text" value="<%=Loginsetings(1)%>" size="5">
        点</td>
    </tr>
    <tr> 
      <td height="2" class="forumrow"><U>每次登录给予会员经验</U></td>
      <td height="2" class="forumrow"><input name="UserLseting(2)" type="text" value="<%=Loginsetings(2)%>" size="5">
        点 </td>
    </tr>
    <tr> 
      <td height="1" class="forumRowHighlight"><U>每次登录给予会员体力</U></td>
      <td height="1" class="forumRowHighlight"><input name="UserLseting(3)" type="text" value="<%=Loginsetings(3)%>" size="5">
        点</td>
    </tr>
    <tr>
      <td height="1" class="forumRowHighlight"><U>会员登录初始页</u></td>
      <td height="1" class="forumRowHighlight"><input type="text" name="UserLseting(15)" value="<%=Loginhome%>">
        0为默认页</td>
    </tr>
	    <tr>
      <td height="1" class="forumRowHighlight"><U>VIP推荐抽成</u></td>
      <td height="1" class="forumRowHighlight"><input type="text" name="UserLseting(16)" value="<%=Vipgive%>">0为不抽成</td>
    </tr>
  </table>
  <br><A name=10></A>
  <table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr align="left"> 
      <th height="23" colspan="2"  id=tabletitlelink>用户选项设置[<a href="#top">顶部</a>]</th>
    </tr>
    <%dim OpenFaces
	OpenFaces=split(OpenFace,"|")%>
    <tr> 
      <td width="34%" height="12" class="forumrow"><U>允许自定义头像</U></td>
      <td width="66%" height="12" class="forumrow"><input type="radio" name="UserLseting(4)" value="0" <%if OpenFaces(0)=0 then%>checked<%end if%>>
        否 
        <input name="UserLseting(4)" type="radio" value="1" <%if OpenFaces(0)=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="5" class="forumRowHighlight"><U>允许上传头像</U></td>
      <td height="5" class="forumRowHighlight"><input type="radio" name="UserLseting(5)" value="0" <%if OpenFaces(1)=0 then%>checked<%end if%>>
        否 
        <input name="UserLseting(5)" type="radio" value="1" <%if OpenFaces(1)=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="-2" class="forumrow"><U>上传头像文件类</U></td>
      <td height="1" class="forumrow"><input type="text" name="UserLseting(9)" value="<%=UpFaceset%>"></td>
    </tr>
    <tr> 
      <td height="0" class="forumRowHighlight"><U>自定义头像数</U></td>
      <td height="1" class="forumRowHighlight"><input name="UserLseting(6)" type="text" size="5" value="<%=OpenFaces(2)%>"></td>
    </tr>
    <tr> 
      <td height="23" class="forumrow"><U>自定义头像长度</U></td>
      <td height="23" class="forumrow"> <input name="UserLseting(7)" type="text" size="5" value="<%=OpenFaces(3)%>"></td>
    </tr>
    <tr> 
      <td height="-2" class="forumRowHighlight"><U>自定义头像宽度</U></td>
      <td height="0" class="forumRowHighlight"><input name="UserLseting(8)" type="text" size="5" value="<%=OpenFaces(4)%>"></td>
    </tr>
    <tr> 
      <td height="-1" class="forumrow"><U>显示签名档</U></td>
      <td height="0" class="forumrow"><input type="radio" name="UserLseting(10)" value="0" <%if Signset=0 then%>checked<%end if%>>
        否 
        <input name="UserLseting(10)" type="radio" value="1" <%if Signset=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="0" class="forumRowHighlight"><U>发布成功跳转页</U></td>
      <td height="1" class="forumRowHighlight"><select name="UserLseting(11)" id="UserLseting(11)">
          <option value="1" <%if Artsentset=1 then%>selected<%end if%>>首页</option>
          <option value="2" <%if Artsentset=2 then%>selected<%end if%>>文章列表</option>
          <option value="3" <%if Artsentset=3 then%>selected<%end if%>>发表的文章</option>
        </select></td>
    </tr>
    <tr> 
      <td height="0" class="forumrow"><u>编辑过的文章显示&quot;由xxx于yyy编辑&quot;的信息</u></td>
      <td height="0" class="forumrow"><input type="radio" name="UserLseting(12)" value="0" <%if split(edituserset,"|")(0)=0 then%>checked<%end if%>>
        否 
        <input name="UserLseting(12)" type="radio" value="1" <%if split(edituserset,"|")(0)=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr> 
      <td height="0" class="forumRowHighlight"><U>用户编辑后显示&quot;由XXX编辑&quot;的信息</U></td>
      <td height="0" class="forumRowHighlight"><input type="radio" name="UserLseting(13)" value="0" <%if split(edituserset,"|")(1)=0 then%>checked<%end if%>>
        否 
        <input type="radio" name="UserLseting(13)" value="1" <%if split(edituserset,"|")(1)=1 then%>checked<%end if%>>
        是</td>
    </tr>
    <tr>
      <td height="-1" class="forumrow"><U>用户等级升级</U><br>
文章日记相册升级and与or</td>
      <td height="-1" class="forumrow"><input name="UserLseting(14)" type="radio" value="0" <%if Upgroupset=0 then%>checked<%end if%>>
        Or 
        <input type="radio" name="UserLseting(14)" value="1" <%if Upgroupset=1 then%>checked<%end if%>>
        And </td>
    </tr>
  </table>
  <br><A name=11></A>
  <table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr align="left"> 
      <th height="23" colspan="2"  id=tabletitlelink>系统翻页设置[<a href="#top">顶部</a>]</th>
    </tr>
    <tr> 
      <td width="34%" height="12" class="forumrow"><U>系统最大翻页数</U></td>
      <td width="66%" height="12" class="forumrow"><input name="Othersetting(0)" type="text" id="Othersetting(0)" value="<%=MaxPerPage%>" size="5">
        条</td>
    </tr>
  </table>
  <br><A name=12></A>
  <table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr align="left"> 
      <th height="23" colspan="2"  id=tabletitlelink>系统短信设置[<a href="#top">顶部</a>]</th>
    </tr>
    <tr> 
      <td width="34%" height="5" class="forumrow"><U>新短消息弹出窗口</U></td>
      <td width="66%" height="5" class="forumrow"> <input type="radio" name="Othersetting(1)" value="0" <%if Msgautoopen=0 then%>checked<%end if%>>
        否 
        <input name="Othersetting(1)" type="radio" value="1" <%if Msgautoopen=1 then%>checked<%end if%>>
        是</td>
    </tr>
  </table>
  <br><A name=13></A>
  <table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr align="left"> 
      <th height="23" colspan="2" id=tabletitlelink>热点设置[<a href="#top">顶部</a>]</th>
    </tr>
    <tr> 
      <td width="34%" height="12" class="forumRowHighlight"><U>查看点击次数</U></td>
      <td width="66%" height="12" class="forumRowHighlight"><input name="Othersetting(3)" type="text" id="Othersetting(3)" value="<%=Clicknums%>" size="5">
        次</td>
    </tr>
  </table>
    <br><A name=14></A>
  <table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr align="left"> 
      <th height="23" colspan="2" id=tabletitlelink>VIP会员设置项[<a href="#top">顶部</a>]</th>
    </tr>
    <tr> 
      <td width="34%" height="12" class="forumRowHighlight"><U>VIP分类项</U><br>
        以|分隔开 </td>
      <td width="66%" height="12" class="forumRowHighlight"><input name="Othersetting(10)" type="text" id="Othersetting(10)" value="<%=Vipcls%>">
      </td>
    </tr>
	 <tr> 
      <td width="34%" height="12" class="forumRowHighlight"><U>VIP各项数值</U><br>
请与VIP分类项一一对应</td>
      <td width="66%" height="12" class="forumRowHighlight"><input name="Othersetting(11)" type="text" id="Othersetting(11)" value="<%=Vipvalue%>">
      </td>
    </tr>
  </table>
  <br><A name=15></A>
  <table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr align="left"> 
      <th height="24" colspan="2" id=tabletitlelink>客服中心设置[<a href="#top">顶部</a>]</th>
    </tr>
    <tr> 
      <td width="34%" height="5" class="forumrow"><U>客服电话号码</U><br>
        可多个以“|”分开 </td>
      <td width="66%" height="-2" class="forumrow"><input name="Othersetting(4)" type="text" id="Othersetting(4)" value="<%=Workphone%>"> 
      </td>
    </tr>
    <tr> 
      <td height="2" class="forumRowHighlight"><U>公司地址</U></td>
      <td width="66%" height="-2" class="forumRowHighlight"><input name="Othersetting(5)" type="text" id="Othersetting(5)" value="<%=Workaddress%>"></td>
    </tr>
    <tr> 
      <td height="3" class="forumrow"><U>客服邮件</U><br>
        可多个以“|”分开 </td>
      <td width="66%" height="-1" class="forumrow"><input name="Othersetting(6)" type="text" id="Othersetting(6)" value="<%=Workmail%>"> 
      </td>
    </tr>
    <tr> 
      <td height="6" class="forumRowHighlight"><U>工作时间</U></td>
      <td width="66%" height="0" class="forumRowHighlight"><input name="Othersetting(7)" type="text" id="Othersetting(7)" value="<%=Worktime%>"></td>
    </tr>
    <tr> 
      <td height="12" class="forumrow"><U>邮政编码</U></td>
      <td width="66%" height="0" class="forumrow"><input name="Othersetting(8)" type="text" id="Othersetting(8)" value="<%=Workzipcode%>"></td>
    </tr>
    <tr> 
      <td height="5" class="forumRowHighlight"><U>客服QQ号码</U><br>
        可多个以“|”分开 </td>
      <td width="66%" height="5" class="forumRowHighlight"><input name="Othersetting(9)" type="text" id="Othersetting(9)" value="<%=Workqq%>"></td>
    </tr>
    <tr align="center"> 
      <td height="6" colspan="2" class="forumRowHighlight"> 
        <input type="submit" name="Submit" value="提交设置">
      </td>
    </tr>
  </table>
</form>
<SCRIPT LANGUAGE="JavaScript">
CheckSel('Mailsetting(0)','<%=mailtype%>');
CheckSel('uploadseting(0)','<%=uploadseting(0)%>');
CheckSel('UploadSetting(0)','<%=Uploadtype%>');
</script>
<div id="Issubport0" style="display:none">请选择EMAIL组件！</div>
<div id="Issubport999" style="display:none"></div>
<%
Dim InstalledObjects(12)
InstalledObjects(1) = "JMail.Message"				'JMail 4.3
InstalledObjects(2) = "CDONTS.NewMail"				'CDONTS
InstalledObjects(3) = "Persits.MailSender"			'ASPEMAIL
'-----------------------
InstalledObjects(4) = "Adodb.Stream"				'Adodb.Stream
InstalledObjects(5) = "Persits.Upload"				'Aspupload3.0
InstalledObjects(6) = "SoftArtisans.FileUp"			'SA-FileUp 4.0
InstalledObjects(7) = "DvFile.Upload"				'DvFile-Up V1.0
'-----------------------
InstalledObjects(9) = "CreatePreviewImage.cGvbox"	'CreatePreviewImage
InstalledObjects(10) = "Persits.Jpeg"				'AspJpeg
InstalledObjects(11) = "SoftArtisans.ImageGen"		'SoftArtisans ImgWriter V1.21
InstalledObjects(12) = "sjCatSoft.Thumbnail"		'sjCatSoft.Thumbnail V2.6

For i=1 to 12
	Response.Write "<div id=""Issubport"&i&""" style=""display:none"">"
	If IsObjInstalled(InstalledObjects(i)) Then Response.Write InstalledObjects(i)&":<font color=red><b>√</b>服务器支持!</font>" Else Response.Write InstalledObjects(i)&"<b>×</b>服务器不支持!" 
	Response.Write "</div>"
Next
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function chkselect(s,divid)
{
var divname='Issubport';
var chkreport;
	s=Number(s)
	if (divid=="know1")
	{
	divname=divname+s;
	}
	if (divid=="know2")
	{
	s+=4;
	if (s==1003){s=999;}
	divname=divname+s;
	}
	if (divid=="know3")
	{
	s+=9;
	if (s==1008){s=999;}
	divname=divname+s;
	}
document.getElementById(divid).innerHTML=divname;
chkreport=document.getElementById(divname).innerHTML;
document.getElementById(divid).innerHTML=chkreport;
}
//-->
</SCRIPT>
<%end sub

Rem Fso组件
Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If Err = 0 Then IsObjInstalled = True
	If Err = -2147352567 Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function

sub setsave()''保存设置
dim websetting,UploadSetting,Ms_system,OpenTimes,Onsetting,Tempstr
dim UserLseting,OpenFaces,ObjInstalled,Sys_codeID,Getcodeset
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
	OpenTimes = ""
	For i=6 To 9
		Tempstr = Trim(Request.Form("websetting("&i&")"))
		If Tempstr = "" Then
			OpenTimes = OpenTimes & 0
		Else
			OpenTimes = OpenTimes & Replace(Replace(Tempstr,"|",""),",","")
		End If
		If i<9 Then
			OpenTimes = OpenTimes & "|"
		End If
	Next
		Onsetting = ""
		Tempstr=""
	For i=1 To 10
		Tempstr = Trim(Request.Form("Onsetting("&i&")"))
		If Tempstr = "" Then
			Onsetting = Onsetting & 0
		Else
			Onsetting = Onsetting & Replace(Replace(Tempstr,"|",""),",","")
		End If
		If i<10 Then
			Onsetting = Onsetting & "|"
		End If
	Next
	
		UploadSetting = ""
		Tempstr = ""
	For i=1 To 16
		Tempstr = Trim(Request.Form("UploadSetting("&i&")"))
		If Tempstr = "" Then
			UploadSetting = UploadSetting & 0
		Else
			UploadSetting = UploadSetting & Replace(Replace(Tempstr,"|",""),",","")
		End If
		If i<16 Then
			UploadSetting = UploadSetting & "|"
		End If
	Next
		UserLseting = ""
		Tempstr = ""
	For i=0 To 3
		Tempstr = Trim(Request.Form("UserLseting("&i&")"))
		If Tempstr = "" Then
			UserLseting = UserLseting & 0
		Else
			UserLseting = UserLseting & Replace(Replace(Tempstr,"|",""),",","")
		End If
		If i<3 Then
			UserLseting = UserLseting & "|"
		End If
	Next
	OpenFaces = ""
		Tempstr = ""
	For i=4 To 8
		Tempstr = Trim(Request.Form("UserLseting("&i&")"))
		If Tempstr = "" Then
			OpenFaces = OpenFaces & 0
		Else
			OpenFaces = OpenFaces & Replace(Replace(Tempstr,"|",""),",","")
		End If
		If i<8 Then
			OpenFaces = OpenFaces & "|"
		End If
	Next
	
		Getcodeset = ""
		Tempstr = ""
	For i=10 To 21
		Tempstr = Trim(Request.Form("Mailsetting("&i&")"))
		If Tempstr = "" Then
			Getcodeset = Getcodeset & 0
		Else
			Getcodeset = Getcodeset & Replace(Replace(Tempstr,"|",""),",","")
		End If
		If i<21 Then
			Getcodeset = Getcodeset & "|"
		End If
	Next
	
dim fso,hf
	set fso=Server.CreateObject("Scripting.FileSystemObject")
	set hf=fso.CreateTextFile(Server.mappath("../config.asp"),true)
	Ms_system="Mslove Version 3.0.0"
	hf.write "<" & "%" & vbcrlf
	hf.write "Const Webname=" & chr(34) & Request.Form("websetting(0)") & chr(34) & "     '交友网站名称" & vbcrlf
	hf.write "Const Homeurl=" & chr(34) &  Request.Form("websetting(1)") & chr(34) & "     '交友网站地址 "& vbcrlf
	hf.write "Const WebUrl="& chr(34) & Request.Form("websetting(2)") & chr(34) & "     '二级域名 "& vbcrlf
	hf.write "Const Weblogo="& chr(34) & Request.Form("websetting(3)")  & chr(34) & "     '网站Logo" & vbcrlf
	hf.write "Const Systemfiles="& chr(34) & Ms_system  & chr(34) & "   '程序版本号" & vbcrlf
	hf.write "Const Openclose="& Request.Form("websetting(4)") & "                     '开关1为开启0为关闭" & vbcrlf
	hf.write "Const StopReadme="& chr(34) & Request.Form("websetting(5)")  & chr(34) & " '关闭说明" & vbcrlf
	hf.write "Const OpenTime="& chr(34) & OpenTimes  & chr(34) & "     '参数一二为开放时间，参数三开放定时设置,1为开启,0为关闭，参数四创建时间" & vbcrlf
	hf.write "Const Copyright="& chr(34) & Request.Form("websetting(10)") & chr(34) & "     '版权信息" & vbcrlf
	hf.write "Const Adminpath="& chr(34) &  Request.Form("websetting(11)") & chr(34) & "    '后台目录" & vbcrlf
	hf.write "Const Cookiepath="& chr(34) & Request.Form("websetting(12)")  & chr(34) & "    'Cookie目录" & vbcrlf
	hf.write "Const ChkIPLogin =" & Request.Form("websetting(13)") &    " '开启使用允许IP登陆功能0- 关闭，1=开启" & vbcrlf
	hf.write "Const Freeurl="& chr(34) & Request.Form("websetting(14)") & chr(34) &"                  '二级域名排除名" & vbcrlf
	hf.write "Const LoginUrl="& chr(34) & Request.Form("websetting(15)") & chr(34) &"                  '后台登录地址" & vbcrlf
	hf.write "Const Dbbackup="& chr(34) & Request.Form("websetting(16)")&"|"& Request.Form("websetting(17)")  & chr(34) & "    '数据库备份设置，参数1：目录，参数2：文件名" & vbcrlf
	hf.write "Const Regclose="& Request.Form("Usersetting(0)")& "             '关闭注册1为开启0为关闭" & vbcrlf
	hf.write "Const Getcodeshow="& chr(34) & Getcodeset & chr(34) & "             '开放检验码参数1：注册，参数2：登录，参数3：短信，参数4：日记，参数5：同城约会，参数6：聚会，参数7：文章，参数8：相册，参数9：取密，参数10：网址，参数11：好友，参数12：征婚" & vbcrlf
	hf.write "Const Rndpass="& Request.Form("Usersetting(2)") & "             '开放随机注册密码1为开放，0为关闭" & vbcrlf
	hf.write "Const Userattr="& chr(34) & Request.Form("Usersetting(3)") &"|"& Request.Form("Usersetting(4)") & chr(34) & "             '开放自动人物配置1为开放，0为关闭,200为配置点数" & vbcrlf
	hf.write "Const Reguserlen="& chr(34) &  Request.Form("Usersetting(5)") &"|"& Request.Form("Usersetting(6)") & chr(34) & "             '限制用户名长度" & vbcrlf
	hf.write "Const Regtimes="& Request.Form("Usersetting(7)") & "            '限制每次注册距离时间为秒" & vbcrlf
	hf.write "Const Regchecked="& Request.Form("Usersetting(8)") & "             '开启注册审核认证1为开启，0为关闭" & vbcrlf
	hf.write "Const Regemail="& Request.Form("Usersetting(9)")  & "             '开启注册邮件发送1为开启，0为关闭" & vbcrlf
	hf.write "Const Emailctrl="& Request.Form("Usersetting(10)")  & "    '一个Email只能注册一个帐号1为开启，0为关闭" & vbcrlf
	hf.write "Const Regsendmsg="& Request.Form("Usersetting(11)")  & "             '开启注册短信通知1为开启，0为关闭" & vbcrlf
	hf.write "Const Reglogin="& Request.Form("Usersetting(12)")  & "             '开启注册立即登录设置1为开启，0为关闭" & vbcrlf
	hf.write "Const Servertime="& Request.Form("Sersettin(0)") & "             '服务器时差" & vbcrlf
	hf.write "Const StopTimeOut="& Request.Form("Sersettin(1)") & "             '缓迟时间" & vbcrlf
	hf.write "Const StarEndtime="& Request.Form("Sersettin(2)") & "             '开放尾部时间显示1为开放，0为关闭" & vbcrlf
	hf.write "Const SplitEmail="& chr(34) & Request.Form("Sersettin(3)")  & chr(34) & "                   '系统禁止注册邮件字符" & vbcrlf
	hf.write "Const RSplitWord="& chr(34) &  Request.Form("Sersettin(4)") & chr(34) & "                   '系统禁止注册字符" & vbcrlf
	hf.write "Const BadWords="& chr(34) & Request.Form("Sersettin(5)") & chr(34) & "     '词语过滤" & vbcrlf
	hf.write "Const Showonline="& Request.Form("Onsetting(0)") & "              '是否显示在线会员1为显示，0为关闭" & vbcrlf
	hf.write "Const Onlineset="& chr(34) &  Onsetting & chr(34) & "     '用户在线设置:0显示用户IP,1显示用户来源,2用户当前位置,3用户登录和活动时间,4用户浏览器和操作系统,5名单显示客人在线,6显示用户在线,7不活动用户时间,8允许同时在线数,9在线列表每页显示用户数" & vbcrlf
	hf.write "Const Mailtype="& Request.Form("Mailsetting(0)") & "              '服务器支持邮件组件1为Jmail,2为Cdonts,3为aspemail,0为不支持 " & vbcrlf
	hf.write "Const Mailsmtp="& chr(34) &  Request.Form("Mailsetting(1)") & chr(34) & "             '邮件发送服务器" & vbcrlf
	hf.write "Const Mailuser="& chr(34) &  Request.Form("Mailsetting(2)") & chr(34) & "             '邮件服务器登录名" & vbcrlf
	hf.write "Const Mailpass="& chr(34) & Request.Form("Mailsetting(3)")  & chr(34) & "              '邮件服务器登录密码" & vbcrlf
	hf.write "Const Mailpost="&  Request.Form("Mailsetting(4)") & "              '会员可对外发送邮件开关1为开,0为关闭" & vbcrlf
	hf.write "Const Mailsend="& chr(34) &  Request.Form("Mailsetting(5)") & chr(34) & "             '邮件发送地址" & vbcrlf
	hf.write "Const Reflash="& chr(34) &  Request.Form("Mailsetting(7)")&"|"&Request.Form("Mailsetting(8)") & chr(34) & "    '参数一是否防刷新1为开启0为关闭，参数二为等待时间" & vbcrlf
	hf.write "Const REflashpage="& chr(34) &  Request.Form("Mailsetting(9)") & chr(34) & "    '防刷新页" & vbcrlf
	hf.write "Const Uploadtype="& Request.Form("UploadSetting(0)") & "       '设置上传方式upload_type值： 999=关闭，0＝无组件，1＝Aspupload3.0组件，2＝SA-FileUp 4.0组件，3＝DvFile-Up V1.0组件" & vbcrlf
	hf.write "Const Uploadset="& chr(34) &  UploadSetting & chr(34) & "'参数0：生成预览图片组件999关闭0为CreatePreviewImage组件,1为AspJpeg组件2为SA-ImgWriter组件；参数1：宽；参数2：高度；参数3:生成预览图片大小规则：0为固定，1为等比例缩小；参数4水印设置开关：0为关闭，1文字效果,2图片效果；参数5：文字信息；参数6：字体大小；参数7：字体颜色；参数8：水印字体；参数9：是否粗体；参数10：水印LOGO；参数11：水印透明度；参数12：去除底色；参数13-14：文字或图片的长宽；参数15：水印LOGO位置" & vbcrlf
	hf.write "Const UpcodeID="& chr(34) & Request.Form("Sersettin(6)") & chr(34) & "           '正版用户拥有，不在前台显示" & vbcrlf
	hf.write "Const SaveUpFilesPath="& chr(34) & Request.Form("UploadSetting(17)") & chr(34) & "           '上传文件保存地址" & vbcrlf
	hf.write "Const UpfilePreview="& chr(34) & Request.Form("UploadSetting(18)")  & chr(34) & "           '上传文件保存地址" & vbcrlf
	hf.write "Const UpFileType="& chr(34) & Request.Form("UploadSetting(19)") & chr(34) & "        '上传文件类型以|分开" & vbcrlf
	hf.write "Const Uploadnum="& Request.Form("UploadSetting(20)") & "    '设置每次上传文件数" & vbcrlf
	hf.write "Const MaxFileSize="& Request.Form("UploadSetting(21)") & "                    '上传文件大小单位Kb" & vbcrlf
	hf.write "Const EnableSaveRemote="&  Request.Form("UploadSetting(22)") & "                '远程获取图片开关1为开,0为关闭" & vbcrlf
	hf.write "Const Loginseting="& chr(34) &  UserLseting & chr(34) & "     '每次登录给予会员参数0：金额；参数1：魅力；参数2：经验；参数3：体力" & vbcrlf
	hf.write "Const OpenFace="& chr(34) &  OpenFaces & chr(34) & "      '第一值是否开放自定义头像,第二值是否开放上传,第三值是头像总数,之后头像长宽度" & vbcrlf
	hf.write "Const UpFaceset="& chr(34) & Request.Form("UserLseting(9)")  & chr(34) & "  '上传头像类型" & vbcrlf
	hf.write "Const Signset="& Request.Form("UserLseting(10)") & "             '开放签名档显示1为开放，0为关闭" & vbcrlf
	hf.write "Const Artsentset="& Request.Form("UserLseting(11)") & "                  '文章发布成功跳转页" & vbcrlf
	hf.write "Const Edituserset="&chr(34) &  Request.Form("UserLseting(12)")&"|"&Request.Form("UserLseting(13)") &chr(34) & "                  '是否显示此文被谁修改过" & vbcrlf
	hf.write "Const Upgroupset="&  Request.Form("UserLseting(14)") &"                  '用户等级升级设置" & vbcrlf
	hf.write "Const Loginhome="&chr(34) &   Request.Form("UserLseting(15)") &chr(34) & "                  '用户登录之后的页面0为默认" & vbcrlf
	hf.write "Const Vipgive=" &chr(34)&   Request.Form("UserLseting(16)")  &chr(34)& "                  'VIP推荐抽成" & vbcrlf
	hf.write "Const MaxPerPage="& Request.Form("Othersetting(0)") & "             '最大翻页数" & vbcrlf
	hf.write "Const Msgautoopen="& Request.Form("Othersetting(1)") & "              '是否自动弹出短信，1为开启，0为关闭" & vbcrlf
	hf.write "Const Clicknums="& Request.Form("Othersetting(3)") & "              '点击查看多少次为热点" & vbcrlf
	hf.write "Const Vipcls="&chr(34) &  Request.Form("Othersetting(10)") & chr(34) & "              'Vip分类设置项以|分隔" & vbcrlf
	hf.write "Const Vipvalue="&chr(34) &  Request.Form("Othersetting(11)") &chr(34) &  "              'VIP各项数值设置以|分隔" & vbcrlf
	hf.write "Const Workphone="& chr(34) &  Request.Form("Othersetting(4)") & chr(34) & "         '客服电话号码以|分开" & vbcrlf
	hf.write "Const Workaddress="& chr(34) & Request.Form("Othersetting(5)")  & chr(34) & "        '公司地址" & vbcrlf
	hf.write "Const Workmail="& chr(34) &  Request.Form("Othersetting(6)") & chr(34) & "          '客服邮件以|分开" & vbcrlf
	hf.write "Const Worktime="& chr(34) &  Request.Form("Othersetting(7)") & chr(34) & "        '工作时间" & vbcrlf
	hf.write "Const Workzipcode="& chr(34) &  Request.Form("Othersetting(8)") & chr(34) & "      '邮政编码" & vbcrlf
	hf.write "Const Workqq="& chr(34) & Request.Form("Othersetting(9)")  & chr(34) & "            '客服QQ号码以|分开" & vbcrlf
	hf.write "%" & ">"
	hf.close
	set hf=nothing
	set fso=nothing
	Ms_suc("系统常规信息设置成功")
end sub
%>