<%@ LANGUAGE = VBScript.Encode %>
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312" />
<TITLE>网站标签函数</TITLE>
<link rel="stylesheet" href="Images/Admin.css">

<!--#include file="../Include/conn.asp" -->
<!--#include file="../Include/ConnDatabase.asp" -->
<!--#include file="../Include/Version.asp" -->
<!--#include file="CheckAdmin.asp"-->
<%
'=====================================
'天天企业网站管理系统  TianTianCMS
'天天网络科技工作室版权所有
'官方客服中心 http://www.ip126.com
'微信公众号 ip126com
'QQ:530051328 mail:bbfhq@163.com
'=====================================
%>
<script language="javascript" src="../Script/Admin.js"></script>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
<script language="javascript">
function changedbtype(dbtype){
  var accesstr=document.getElementById("accesstr");
  var sqltr=document.getElementById("sqltr");
  if(dbtype==0){
  	accesstr.style.display = '';
	sqltr.style.display = 'none';
  }else{
  	accesstr.style.display = 'none';
	sqltr.style.display = '';
  }
}
</script>
<SCRIPT language="javascript" src="admin.js"></SCRIPT>
<IFRAME width="260" height="165" id="colourPalette" src="nc_selcolor.htm" style="visibility:hidden; position: absolute; left: 0px; top: 0px;border:1px gray solid" frameborder="0" scrolling="no" ></IFRAME>
</HEAD>
<BODY>
<%
if Instr(session("AdminPurview"),"|1,")=0 then
  response.write ("<br><br><div align=""center""><font style=""color:red; font-size:9pt; "")>您没有管理该模块的权限！</font></div>")
  response.end
end If
dim rsscode
select case request.QueryString("Action")
  case "Save"
    SaveSiteInfo
  case "SaveConst"
    SaveConstInfo
  case else
    ViewSiteInfo
end select
%>
<br>
<table class="tableborder" width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
<form name="editForm" method="post" action="?Action=Save">
  <tr>
    <th height="22" colspan="2">【系统主参数设置】</th>
  </tr>
  <tr>
    <td width="20%" align="right" class="forumRow">网站名称：</td>
    <td width="80%" class="forumRowHighlight"><input name="SiteTitleCH" type="text" id="SiteTitleCH" style="width: 280" value="<%=SiteTitleCH%>">      
       中文 <font color="red">*</font></td>
  </tr>
  <%if chinato=1 then%>
  <tr>
    <td width="20%" align="right" class="forumRow">网站名称：</td>
    <td width="80%" class="forumRowHighlight"><input name="SiteTitleEN" type="text" id="SiteTitleEN" style="width: 280" value="<%=SiteTitleEN%>">
      英文 <font color="red">*</font></td>
  </tr>
  <%End if%>
    <tr>
    <td align="right" class="forumRow">公司网址：</td>
    <td class="forumRowHighlight"><input name="SiteUrl" type="text" id="SiteUrl" style="width: 280" value="<%=SiteUrl%>"> 
      域名<font color="red"> *(前不要加http://，后不要带/)</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">公司名称：</td>
    <td class="forumRowHighlight"><input name="ComNameCH" type="text" id="ComNameCH" style="width: 280" value="<%=ComNameCH%>">      
       中文 <font color="red">*</font></td>
  </tr>
  <%if chinato=1 then%>
  <tr>
    <td align="right" class="forumRow">公司名称：</td>
    <td class="forumRowHighlight"><input name="ComNameEN" type="text" id="ComNameEN" style="width: 280" value="<%=ComNameEN%>">      
       英文 <font color="red">*</font></td>
  </tr>
  <%End if%>
    <tr>
    <td align="right" class="forumRow">详细地址：</td>
    <td class="forumRowHighlight"><input name="AddressCH" type="text" id="AddressCH" style="width: 280" value="<%=AddressCH%>">      
       中文 <font color="red">*</font></td>
  </tr>
  <%if chinato=1 then%>
    <tr>
    <td align="right" class="forumRow">详细地址：</td>
    <td class="forumRowHighlight"><input name="AddressEN" type="text" id="AddressEN" style="width: 280" value="<%=AddressEN%>">      
       英文 <font color="red">*</font></td>
  </tr>
<%End if%>
<tr>
    <td align="right" class="forumRow">邮政编码：</td>
    <td class="forumRowHighlight"><input name="ZipCode" type="text" id="ZipCode" style="width: 180" value="<%=ZipCode%>" maxlength="6" onKeyUp="if(isNaN(value)){alert('只允许输入数字');value='';}" onafterpaste="this.value=this.value.replace(/\D/g,'')"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">固定电话：</td>
    <td class="forumRowHighlight"><input name="Telephone" type="text" id="Telephone" style="width: 180" value="<%=Telephone%>"> <font color="red">*</font></td>
  </tr>
    <tr>
    <td align="right" class="forumRow">手&nbsp;&nbsp;&nbsp;&nbsp;机：</td>
    <td class="forumRowHighlight"><input name="Mobile" type="text" id="Mobile" style="width: 180" value="<%=Mobile%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">传真号码：</td>
    <td class="forumRowHighlight"><input name="Fax" type="text" id="Fax" style="width: 180" value="<%=Fax%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">电子邮箱：</td>
    <td class="forumRowHighlight"><input name="Email" type="text" id="Email" style="width: 180" value="<%=Email%>"> <font color="red">*</font></td>
  </tr>
    <tr><td align="right" class="forumRow">地图标注：</td>
    <td class="forumRowHighlight"><input name="Emap" type="text" id="Emap" style="width: 180" value="<%=Emap%>"> <a href=javascript:ShowDialog("Map.asp?Action=Admin&xy="+document.editForm.Emap.value+"&Input=Emap",500,350)><font color="red">*</font><font color="#0000FF">获取经纬度</font></span></a></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">网站运行是否开启：</td>
    <td class="forumRowHighlight"><input name="SiteRun" type="radio" value="True" <%if SiteRun=True then%> checked<%end if%>>启用 <input name="SiteRun" type="radio" value="False" <%if SiteRun=False then%> checked<%end if%>>停止 <font color="red">*</font></td>
  </tr>
    <tr>
    <td align="right" class="forumRow">中文网站停止运行说明：</td>
    <td class="forumRowHighlight"><input name="SiteRunHelpCH" type="text" id="SiteRunHelpCH" style="width: 400" value="<%=SiteRunHelpCH%>" maxlength="100"> <font color="red">*</font> 100字符内</td>
  </tr>
  <%if chinato=1 then%>
    <tr>
    <td align="right" class="forumRow">英文网站停止运行说明：</td>
    <td class="forumRowHighlight"><input name="SiteRunHelpEN" type="text" id="SiteRunHelpEN" style="width: 400" value="<%=SiteRunHelpEN%>" maxlength="100"> <font color="red">*</font> 100字符内</td>
  </tr>
  <%End if%>
    <tr>
    <td align="right" class="forumRow">中文产品单位名称：</td>
    <td class="forumRowHighlight"><input name="unitCH" type="text" id="unitCH" style="width: 400" value="<%=unitCH%>" maxlength="100"> <font color="red">*</font> 用英文“,”号间隔，总字符250个内</td>
  </tr>
  <%if chinato=1 then%>
    <tr>
    <td align="right" class="forumRow">英文产品单位名称：</td>
    <td class="forumRowHighlight"><input name="unitEN" type="text" id="unitEN" style="width: 400" value="<%=unitEN%>" maxlength="100"> <font color="red">*</font> 用英文“,”号间隔，总字符250个内</td>
  </tr>
<%End if%>
  <tr>
    <td align="right" class="forumRow">中文Keywords优化：</td>
    <td class="forumRowHighlight"><textarea name="KeywordsCH" rows="4"  id="KeywordsCH" style="width: 500"><%=KeywordsCH%></textarea> 网站关键词</td>
  </tr>  
  <tr>
    <td align="right" class="forumRow">中文Description优化：</td>
    <td class="forumRowHighlight"><textarea name="DescriptionsCH" rows="4" id="DescriptionsCH" style="width: 500"><%=DescriptionsCH%></textarea> 网站描述</td>
  </tr>
  <%if chinato=1 then%>
  <tr>
    <td align="right" class="forumRow">英文Keywords优化：</td>
    <td class="forumRowHighlight"><textarea name="KeywordsEN" rows="4"  id="KeywordsEN" style="width: 500"><%=KeywordsEN%></textarea> 网站关键词</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">英文Description优化：</td>
    <td class="forumRowHighlight"><textarea name="DescriptionsEN" rows="4" id="DescriptionsEN" style="width: 500"><%=DescriptionsEN%></textarea> 网站描述</td>
  </tr>
  <%End if%>
  <tr>
    <td align="right" class="forumRow">网站流量统计代码：</td>
    <td class="forumRowHighlight"><textarea name="tongji" rows="4" id="tongji" style="width: 500"><%=tongji%></textarea><br>到流量统计服务站申请统计帐号并得到的代码</td>
  </tr>

  <tr>
    <td align="right" class="forumRow">公安机关备案号：</td>
    <td class="forumRowHighlight"><input name="beiana" type="text" id="beiana" style="width: 180" value="<%=beiana%>"> 如：京公网安备11010102002019号</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">公安机关备案号编码：</td>
    <td class="forumRowHighlight"><input name="beianb" type="text" id="beianb" style="width: 180" value="<%=beianb%>"> 如：11010102002019</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">ICP备案号：</td>
    <td class="forumRowHighlight"><input name="IcpNumber" type="text" id="IcpNumber" style="width: 180" value="<%=IcpNumber%>"></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">是否开放注册：</td>
    <td class="forumRowHighlight"><input name="userzc" type="radio" value="True" <%if userzc=True then%> checked<%end if%>>开放注册 <input name="userzc" type="radio" value="False" <%if userzc=False then%> checked<%end if%>>关闭注册 <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">会员注册是否审核：</td>
    <td class="forumRowHighlight"><input name="usersh" type="radio" value="True" <%if usersh=True then%> checked<%end if%>>需要审核 <input name="usersh" type="radio" value="False" <%if usersh=False then%> checked<%end if%>>无需审核 <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">是否开放留言：</td>
    <td class="forumRowHighlight"><input name="message" type="radio" value="True" <%if message=True then%> checked<%end if%>>开放 <input name="message" type="radio" value="False" <%if message=False then%> checked<%end if%>>关闭 <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">访客留言是否审核：</td>
    <td class="forumRowHighlight"><input name="MesViewFlag" type="radio" value="True" <%if MesViewFlag=True then%> checked<%end if%>>需要审核 <input name="MesViewFlag" type="radio" value="False" <%if MesViewFlag=False then%> checked<%end if%>>无需审核 <font color="red">*</font></td>
  </tr>

    <tr>
    <td align="right" class="forumRow">RSS设置：</td>
    <td class="forumRowHighlight">
    <input name="rssnews" type="checkbox" id="rssnews" value="1"  <% if instr(rsscode,"n") > 0   then response.write ("checked") %>>读取新闻
    <input name="rssporodute" type="checkbox" id="rssporodute" value="1"  <% if instr(rsscode,"p") > 0 then response.write ("checked") %>>读取产品
    <input name="rssdown" type="checkbox" id="rssdown" value="1"  <% if instr(rsscode,"d") > 0 then response.write ("checked") %>>读取下载    </td>
  </tr>
  <tr>
    <td align="right" class="forumRow">首页FLV视频广告/企业LOGO选择：</td>
    <td class="forumRowHighlight"><input name="ssp" type="radio" value="1" <%if ssp=1 then%> checked<%end if%>>显示FLV视频广告 <input name="ssp" type="radio" value="2" <%if ssp=2 then%> checked<%end if%>>显示企业LOGO  <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow"></td>
    <td class="forumRowHighlight"><input name="submitSaveEdit" type="submit" id="submitSaveEdit" value="保存主参数设置"></td>
  </tr>
  </form>
</table>
<br>
<table class="tableborder" width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
<form name="ConstForm" method="post" action="?Action=SaveConst">
  <tr>
    <th height="22" colspan="2">【附加参数设置】</th>
  </tr>
  <tr>
    <td width="20%" align="right" class="forumRow">系统安装目录：</td>
    <td width="80%" class="forumRowHighlight"><input name="SysRootDir" type="text" id="SysRootDir" style="width: 280" value="<%=SysRootDir%>"> 
      <font color="red">*</font>使用绝对根路径,比方您的系统在网站空间根目录下的<font color="red">abc</font>目录下,这里应该填<font color="red">/abc/</font>必须以<font color="red">/</font>开头和结尾</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">网站数据库类型：</td>
    <td class="forumRowHighlight">
	<input name="SystemDatabaseType" onClick="javascript:changedbtype(0);" type="radio" value="0" <%if SystemDatabaseType=0 then%> checked<%end if%>>ACCESS
<input type="radio" onClick="javascript:changedbtype('1');" name="SystemDatabaseType" value="1" <%if SystemDatabaseType="1" then%> checked<%end if%>>SQL（仅限企业版）采用SQL存储过程会有更好的性能表现。<font color="red">如果未安装SQL数据库请勿选择！	
	 *</font></td>
  </tr>
    <tr  id="accesstr" name="accesstr">
    <td align="right" class="forumRow" style="border-bottom-style: none; border-bottom-width: medium; border-top-style:none; border-top-width:medium">ACCSS数据库文件路径：</td>
    <td class="forumRowHighlight"><input name="SiteDataPath" type="text" id="SiteDataPath" style="width: 280" value="<%=SiteDataPath%>"> <font color="red">*</font>数据库后缀必须为asp防下载！ </td>
  </tr>
    <tr  id="sqltr" name="sqltr">
    <td align="right" class="forumRow" style="border-bottom-style: none; border-bottom-width: medium; border-top-style:none; border-top-width:medium">MS SQL数据库设置：</td>
    <td class="forumRowHighlight"><p style="margin-left: 20"><table  height="80" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><input name="SqlDatabaseName" type="text" id="SqlDatabaseName" value="<%=SqlDatabaseName%>" size="23" maxlength="50"> <font color="red">*</font> SQL数据库名&nbsp;&nbsp;<input name="Sqla" type="text" id="Sqla" value="" size="1" disabled="true"><input name="Sqla" type="text" id="Sqla" value="" size="1" disabled="true"></td>
  </tr>
  <tr>
    <td><input name="SqlUsername" type="password" id="SqlUsername" value="<%=SqlUsername%>" size="25" maxlength="50"> <font color="red">*</font> 登录数据库用户名</td>
  </tr>
  <tr>
    <td><input name="SqlPassword" type="password" id="SqlPassword" value="<%=SqlPassword%>" size="25" maxlength="50"> <font color="red">*</font> 登录数据库密码</td>
  </tr>
  <tr>
    <td><input name="SqlHostIP" type="text" id="SqlLocalName" value="<%=SqlHostIP%>" size="23" maxlength="50"> <font color="red">*</font> 连接数据源[站库同机用(local)，站库异机用IP或数据源域名]</td>
  </tr>
</p></table></td>
  </tr>
<script language="javascript">changedbtype(<%=SystemDatabaseType%>);</script>

  <tr>
    <td align="right" class="forumRow">是否启用防注入系统：</td>
    <td class="forumRowHighlight"><input name="EnableStopInjection" type="radio" value="True" <%if EnableStopInjection=True then%> checked<%end if%>>启用 <input name="EnableStopInjection" type="radio" value="False" <%if EnableStopInjection=False then%> checked<%end if%>>不启用 <font color="red">*</font></td>
  </tr>
    <tr>
    <td align="right" class="forumRow">是否自动锁定注入的IP：</td>
    <td class="forumRowHighlight"><input name="Kill_IP" type="radio" value="True" <%if Kill_IP=True then%> checked<%end if%>>启用 <input name="Kill_IP" type="radio" value="False" <%if Kill_IP=False then%> checked<%end if%>>不启用 <font color="red">*</font></td>
  </tr>
    <tr>
    <td align="right" class="forumRow">是否启用管理员后台认证码：</td>
    <td class="forumRowHighlight"><input name="EnableSiteManageCode" type="radio" value="True" <%if EnableSiteManageCode=True then%> checked<%end if%>>启用 <input name="EnableSiteManageCode" type="radio" value="False" <%if EnableSiteManageCode=False then%> checked<%end if%>>不启用 <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">管理员后台认证码：</td>
    <td class="forumRowHighlight"><input name="AdminLoginCode" type="text" id="Refresh" style="width: 80" value="<%=AdminLoginCode%>"> 登录后台时要的 <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">页面防刷新时间：</td>
    <td class="forumRowHighlight"><input name="Refresh" type="text" id="Refresh" style="width: 80" value="<%=Refresh%>" onKeyUp="if(isNaN(value)){alert('只允许输入数字');value='';}" onafterpaste="this.value=this.value.replace(/\D/g,'')"> 秒 <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">发信人邮箱：</td>
    <td class="forumRowHighlight"><input name="mailform" type="text" id="mailform" style="width: 180" value="<%=mailform%>"> <font color="red">*</font> 建议与上面电子信箱相同</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">邮箱帐号：邮箱的登录密码</td>
    <td class="forumRowHighlight"><input name="mailname" type="text" id="mailname" style="width: 180" value="<%=mailname%>"> <font color="red">*</font> 邮箱帐号一般为@前面部分</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">登录密码：</td>
    <td class="forumRowHighlight"><input name="mailpass" type="password" id="mailpass" style="width: 180" value="<%=mailpass%>"> <font color="red">*</font> </td>
  </tr>
  <tr>
    <td align="right" class="forumRow">Smtp服务器地址：</td>
    <td class="forumRowHighlight"><input name="mailsmtp" type="text" id="mailsmtp" style="width: 180" value="<%=mailsmtp%>"> <font color="red">*</font> 根据邮箱的smtp服务器格式填写<br>（如网易的163邮箱为smtp.163.com，搜狐邮箱为smtp.sohu.com）</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">新闻模块单页调用条数：</td>
    <td class="forumRowHighlight"><input name="NewInfo" type="text" id="NewInfo" style="width: 80" value="<%=NewInfo%>" onKeyUp="if(isNaN(value)){alert('只允许输入数字');value='';}" onafterpaste="this.value=this.value.replace(/\D/g,'')"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">产品模块单页调用条数：</td>
    <td class="forumRowHighlight"><input name="ProInfo" type="text" id="ProInfo" style="width: 80" value="<%=ProInfo%>" onKeyUp="if(isNaN(value)){alert('只允许输入数字');value='';}" onafterpaste="this.value=this.value.replace(/\D/g,'')"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">人才模块单页调用条数：</td>
    <td class="forumRowHighlight"><input name="JobInfo" type="text" id="JobInfo" style="width: 80" value="<%=JobInfo%>" onKeyUp="if(isNaN(value)){alert('只允许输入数字');value='';}" onafterpaste="this.value=this.value.replace(/\D/g,'')"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">下载模块单页调用条数：</td>
    <td class="forumRowHighlight"><input name="DownInfo" type="text" id="DownInfo" style="width: 80" value="<%=DownInfo%>" onKeyUp="if(isNaN(value)){alert('只允许输入数字');value='';}" onafterpaste="this.value=this.value.replace(/\D/g,'')"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">视频模块单页调用条数：</td>
    <td class="forumRowHighlight"><input name="VideoInfo" type="text" id="VideoInfo" style="width: 80" value="<%=VideoInfo%>" onKeyUp="if(isNaN(value)){alert('只允许输入数字');value='';}" onafterpaste="this.value=this.value.replace(/\D/g,'')"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">企业服务单页调用条数：</td>
    <td class="forumRowHighlight"><input name="OtherInfo" type="text" id="OtherInfo" style="width: 80" value="<%=OtherInfo%>" onKeyUp="if(isNaN(value)){alert('只允许输入数字');value='';}" onafterpaste="this.value=this.value.replace(/\D/g,'')"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">留言模块单页调用条数：</td>
    <td class="forumRowHighlight"><input name="MessageInfo" type="text" id="MessageInfo" style="width: 80" value="<%=MessageInfo%>" onKeyUp="if(isNaN(value)){alert('只允许输入数字');value='';}" onafterpaste="this.value=this.value.replace(/\D/g,'')"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">是否生成静态页面：</td>
    <td class="forumRowHighlight"><input name="ISHTML" type="radio" value="1" <%if ISHTML=1 then%> checked<%end if%>>生成静态HTML <input name="ISHTML" type="radio" value="0" <%if ISHTML=0 then%> checked<%end if%>>不生成 <font color="red">*</font></td>
  </tr>
    <tr>
    <td align="right" class="forumRow">是否同时使用英文语言：</td>
    <td class="forumRowHighlight"><input name="chinato" type="radio" value="1" <%if chinato=1 then%> checked<%end if%>>使用 <input name="chinato" type="radio" value="0" <%if chinato=0 then%> checked<%end if%>>关闭 <font color="red"> 选定后不轻易改动</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">默认首页语言：</td>
    <td class="forumRowHighlight"><input name="Default_language" type="radio" value="Ch" <%if Default_language="Ch" then%> checked<%end if%>>简体中文 <input name="Default_language" type="radio" value="En" <%if Default_language="En" then%> checked<%end if%>>英文 <font color="red"> 要上面选择英文板块后选择英文才有意义</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">购物车总开关：</td>
    <td class="forumRowHighlight"><input name="shopping" type="radio" value="1" <%if shopping=1 then%> checked<%end if%>>开放 <input name="shopping" type="radio" value="0" <%if shopping=0 then%> checked<%end if%>>关闭 （购物车总开关，相关板块详细页模板和每个商品有独立开关）</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">购物发票税率：</td>
    <td class="forumRowHighlight"><input name="taxrate" type="text" id="taxrate" style="width: 80" value="<%=taxrate%>" onKeyUp="if(isNaN(value)){alert('只允许输入数字');value='';}" onafterpaste="this.value=this.value.replace(/\D/g,'')"> <font color="red">*</font> (化为小数如0.06)</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">是否开启QQ登录：</td>
    <td class="forumRowHighlight"><input name="API_QQEnable" type="radio" value="true" <%if API_QQEnable=true then%> checked<%end if%>>开启 <input name="API_QQEnable" type="radio" value="false" <%if API_QQEnable=false then%> checked<%end if%>>关闭 </td>
  </tr>
  <tr>
    <td align="right" class="forumRow">首次QQ登录自动创建账号：</td>
    <td class="forumRowHighlight"><input name="API_QuickLogin" type="radio" value="true" <%if API_QuickLogin=true then%> checked<%end if%>>开启 <input name="API_QuickLogin" type="radio" value="false" <%if API_QuickLogin=false then%> checked<%end if%>>关闭  （目前自动创建帐号功能未开通，此项选择无效）</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">QQ登录AppID：</td>
    <td class="forumRowHighlight"><input name="AppId" type="password" id="AppId" style="width: 250" value="<%=AppId%>"> <font color="red">腾讯opensns.qq.com 申请到的appid,<a href="http://connect.qq.com/" target="_blank"><font color="#0000FF">点此申请</font></a></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">QQ登录AppKey：</td>
    <td class="forumRowHighlight"><input name="AppKey" type="password" id="AppKey" style="width: 250" value="<%=AppKey%>">  <font color="red">腾讯opensns.qq.com 申请到的appkey</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">QQ登录后跳转的地址：</td>
    <td class="forumRowHighlight"><input name="API_QQCallBack" type="text" id="API_QQCallBack" readonly style="width: 350" value="<%="http://"&SiteUrl&SysRootDir&"api/qq/user.asp"%>"> QQ登录成功后跳转的地址,不可改</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">水印类型：</td>
    <td class="forumRowHighlight"><input type="radio" name="Watermark_Type" value="0" <%if Watermark_Type=0 then%>checked<%end if%>>不加水印	<input type="radio" name="Watermark_Type" value="1" <%if Watermark_Type=1 then%>checked<%end if%>>文字水印	<input type="radio" name="Watermark_Type" value="2" <%if Watermark_Type=2 then%>checked<%end if%>>图片水印</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">时间限制：</td>
    <td class="forumRowHighlight"><input type="text" name="Watermark_interval" value="<%=Watermark_interval%>" size="10" <%=onKeyUp%>>  分钟（修改内容时距当前时间之前旧图片不重复加水印，时间太短太长都不适宜）</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">水印位置坐标：</td>
    <td class="forumRowHighlight">X：<input name='Watermark_X' type='text' value='<%=Watermark_X%>' size='10' maxlength='10' <%=onKeyUp%>> 像素<br>Y：<input name='Watermark_Y' type='text' value='<%=Watermark_Y%>' size='10' maxlength='10' <%=onKeyUp%>> 像素</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">文字水印：</td>
    <td class="forumRowHighlight"><input type="text" name="Watermark_Text" value="<%=Watermark_Text%>" size="30"> 文字字数不宜超过15个字符，不支持任何WEB编码标记</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">文字字体：</td>
    <td class="forumRowHighlight">
			<SELECT name="Watermark_FontName" >
            <option value="宋体"  <% if Watermark_FontName="宋体" Then Response.write("Selected") %>>宋体</option>
            <option value="楷体_GB2312" <% if Watermark_FontName="楷体_GB2312" Then Response.write("Selected") %>>楷体</option>
            <option value="仿宋_GB2312" <% if Watermark_FontName="仿宋_GB2312" Then Response.write("Selected") %>>仿宋体</option>
            <option value="黑体" <% if Watermark_FontName="黑体" Then Response.write("Selected") %>>黑体</option>
            <option value="隶书" <% if Watermark_FontName="隶书" Then Response.write("Selected") %>>隶书</option>
            <option value="幼圆" <% if Watermark_FontName="幼圆" Then Response.write("Selected") %>>幼圆</option>
            <option value="Andale Mono" <% if Watermark_FontName="Andale Mono" Then Response.write("Selected") %>>Andale Mono</OPTION> 
            <option value="Arial"  <% if Watermark_FontName="Arial" Then Response.write("Selected") %>>Arial</OPTION> 
            <option value="Arial Black"  <% if Watermark_FontName="Arial Black" Then Response.write("Selected") %>>Arial Black</OPTION> 
            <option value="Book Antiqua"  <% if Watermark_FontName="Book Antiqua" Then Response.write("Selected") %>>Book Antiqua</OPTION>

        </SELECT></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">文字大小：</td>
    <td class="forumRowHighlight"><input type="text" name="Watermark_FontSize" value="<%=Watermark_FontSize%>" size="10" <%=onKeyUp%>>  像素</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">文字颜色：</td>
    <td class="forumRowHighlight"><INPUT name="Watermark_FontColor" type="text" style="background:<%=Watermark_FontColor%>" onClick="Getcolor(this)" value="<%=Watermark_FontColor%>" size="7" maxlength="7"></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">是否粗体：</td>
    <td class="forumRowHighlight"><SELECT name='Watermark_Bold' >
				  <OPTION value='1' <% if Watermark_Bold=1 Then Response.write("Selected") %>>是</OPTION>
                  <OPTION value='0' <% if Watermark_Bold=0 Then Response.write("Selected") %>>否</OPTION></SELECT></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">图片水印文件名：</td>
    <td class="forumRowHighlight"><input name='Watermark_FileName' type='text' value='<%=Watermark_FileName%>' size='35' maxlength='40'> 里请填写图片文件的相对路径，以“\”开头</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">图片水印宽度：</td>
    <td class="forumRowHighlight"><input type="text" name="Watermark_Width" value="<%=Watermark_Width%>" size="10" <%=onKeyUp%>> 像素（会根据宽度自动调整高度,建议150*60透明）</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">图片水印透明度：</td>
    <td class="forumRowHighlight"><input type="text" name="Watermark_Transparence" value="<%=Watermark_Transparence%>" size="10" <%=onKeyUp%>> 0－1范围，1表示不透明</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">图片水印底色：</td>
    <td class="forumRowHighlight"><INPUT name="Watermark_BackgroundColor" type="text" style="background:<%=Watermark_BackgroundColor%>" onClick="Getcolor(this)" value="<%=Watermark_BackgroundColor%>" size="7" maxlength="7"> 若想去除水印图片的底色，请在此填入底色的RGB值</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">图片水印坐标起点：</td>
    <td class="forumRowHighlight"><select name="Watermark_coordinates" size="1">
	  <option value="0" <%if Watermark_coordinates=0 then%>selected="selected"<%end if%>>左上</option>
	  <option value="1" <%if Watermark_coordinates=1 then%>selected="selected"<%end if%>>左下</option>
	  <option value="2" <%if Watermark_coordinates=2 then%>selected="selected"<%end if%>>居中</option>
	  <option value="3" <%if Watermark_coordinates=3 then%>selected="selected"<%end if%>>右上</option>
	  <option value="4" <%if Watermark_coordinates=4 then%>selected="selected"<%end if%>>右下</option>
	  </select></td>
  </tr>


  <tr>
    <td align="center" class="forumRow" colspan="2"> <font color="red"><b>以下参数不可修改，否则出错！！！</b></font> </td>
  </tr>
  <tr>
    <td align="right" class="forumRow">生成静态页面后缀：</td>
    <td class="forumRowHighlight"><%=HTMLName%><input name="HTMLName" type="hidden" id="HTMLName" style="width: 80" value="<%=HTMLName%>"> <font color="red">*</font> 如：New.html中“html”即为后缀。可设置如：html、htm</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">新闻分类生成前缀：</td>
    <td class="forumRowHighlight"><%=NewSortName%><input name="NewSortName" type="hidden" id="NewSortName" style="width: 180" value="<%=NewSortName%>"> <font color="red">*</font> 如：Article_1.html中“Article”即为前缀</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">新闻详细页生成前缀：</td>
    <td class="forumRowHighlight"><%=NewName%><input name="NewName" type="hidden" id="NewName" style="width: 180" value="<%=NewName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">产品分类生成前缀：</td>
    <td class="forumRowHighlight"><%=ProSortName%><input name="ProSortName" type="hidden" id="ProSortName" style="width: 180" value="<%=ProSortName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">推荐产品分类生成前缀：</td>
    <td class="forumRowHighlight"><%=ProrecName%><input name="ProrecName" type="hidden" id="ProrecName" style="width: 180" value="<%=ProrecName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">产品详细页生成前缀：</td>
    <td class="forumRowHighlight"><%=ProName%><input name="ProName" type="hidden" id="ProName" style="width: 180" value="<%=ProName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">下载分类生成前缀：</td>
    <td class="forumRowHighlight"><%=DownSortName%><input name="DownSortName" type="hidden" id="DownSortName" style="width: 180" value="<%=DownSortName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">下载详细页生成前缀：</td>
    <td class="forumRowHighlight"><%=DownName%><input name="DownName" type="hidden" id="DownName" style="width: 180" value="<%=DownName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">视频分类生成前缀：</td>
    <td class="forumRowHighlight"><%=videoSortName%><input name="videoSortName" type="hidden" id="videoSortName" style="width: 180" value="<%=videoSortName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">视频详细页生成前缀：</td>
    <td class="forumRowHighlight"><%=videoName%><input name="videoName" type="hidden" id="videoName" style="width: 180" value="<%=videoName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">企业服务分类生成前缀：</td>
    <td class="forumRowHighlight"><%=OtherSortName%><input name="OtherSortName" type="hidden" id="OtherSortName" style="width: 180" value="<%=OtherSortName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">企业服务详细页生成前缀：</td>
    <td class="forumRowHighlight"><%=OtherName%><input name="OtherName" type="hidden" id="OtherName" style="width: 180" value="<%=OtherName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">人才招聘分类生成前缀：</td>
    <td class="forumRowHighlight"><%=JobSortName%><input name="JobSortName" type="hidden" id="JobSortName" style="width: 180" value="<%=JobSortName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">人才招聘详细页生成前缀：</td>
    <td class="forumRowHighlight"><%=JobName%><input name="JobName" type="hidden" id="JobName" style="width: 180" value="<%=JobName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">关于我们生成前缀：</td>
    <td class="forumRowHighlight"><%=AboutName%><input name="AboutName" type="hidden" id="AboutName" style="width: 180" value="<%=AboutName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">分隔符：</td>
    <td class="forumRowHighlight"><%=Separated%><input name="Separated" type="hidden" id="Separated" style="width: 80" value="<%=Separated%>"> <font color="red">*</font> 如：Article_1.html中的“_”即为分隔符</td>
  </tr>
  <tr>
  <input type="hidden" name="SiteTitleCH" value="<%=SiteTitleCH%>">
  <input type="hidden" name="SiteTitleEN" value="<%=SiteTitleEN%>">
  <input type="hidden" name="ComNameCH" value="<%=ComNameCH%>">
  <input type="hidden" name="ComNameEN" value="<%=ComNameEN%>">
  
    <td align="right" class="forumRow"></td><input type="hidden" name="SiteUrl" value="<%=SiteUrl%>">
    <td class="forumRowHighlight"><input name="submitSaveEdit" type="submit" id="submitSaveEdit" value="保存附加参数设置">
      </td>
  </tr>
  </form>
</table>
</BODY>
</HTML>
<%
function SaveSiteInfo()
  if len(trim(request.Form("SiteTitleCh")))<1 or (len(trim(request.Form("SiteTitleEn")))<1 And chinato=1) then
    response.write ("<script language=javascript> alert('""中文，英文""网站标题不能少于1个字符！');history.back(-1);</script>")
    response.end
  end if
   if len(trim(request.Form("SiteUrl")))<10 then
    response.write ("<script language=javascript> alert('网站网址不能为空，具不少于10个字符！');history.back(-1);</script>")
    response.end
  end if 
  if len(trim(request.Form("SiteUrl")))<9 then
	response.write "<script language='JavaScript'>alert('请详细填写您的公司网址！');" & "history.back()" & "</script>"
    response.end
  end if
  if len(trim(request.Form("ComNameCh")))<1 or (len(trim(request.Form("ComNameEn")))<1 And chinato=1) then
    response.write ("<script language=javascript> alert('""中文，英文""公司名称不能少于1个字符！');history.back(-1);</script>")
    response.end
  end if 
  if len(trim(request.Form("AddressCh")))<1 or (len(trim(request.Form("AddressEn")))<1 And chinato=1) then
    response.write ("<script language=javascript> alert('""中文，英文""公司地址不能少于3个字符！');history.back(-1);</script>")
    response.end
  end if
  if len(trim(request.Form("ZipCode")))<6 then
	response.write "<script language='JavaScript'>alert('请详细填写邮政编码并保持至少在6个字符以上！');" & "history.back()" & "</script>"
    response.end
  end if
  if len(trim(request.Form("Telephone")))<7 then
	response.write "<script language='JavaScript'>alert('请详细填写联系电话并保持至少在7个字符以上！');" & "history.back()" & "</script>"
    response.end
  end If
  if len(trim(request.Form("Mobile")))<7 then
	response.write "<script language='JavaScript'>alert('请详细填写手机并保持至少在11个字符以上！');" & "history.back()" & "</script>"
    response.end
  end if  
  if len(trim(request.Form("Fax")))<11 then
	response.write "<script language='JavaScript'>alert('请详细填写传真号码并保持至少在11个字符以上！');" & "history.back()" & "</script>"
    response.end
  end if
  if len(trim(request.Form("Email")))<6 then
	response.write "<script language='JavaScript'>alert('请详细填写电子邮箱地址并保持至少在6个字符以上！');" & "history.back()" & "</script>"
    response.end
  end if
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select top 1 * from TianTianCMS_Config"
  rs.open sql,conn,1,3
  rs("SiteTitleCH")=trim(Request.Form("SiteTitleCH"))
  if chinato=1 then rs("SiteTitleEN")=trim(Request.Form("SiteTitleEN"))
  rs("SiteUrl")=trim(Request.Form("SiteUrl"))
  rs("ComNameCH")=trim(Request.Form("ComNameCH"))
  if chinato=1 then rs("ComNameEN")=trim(Request.Form("ComNameEN"))
  rs("AddressCH")=trim(Request.Form("AddressCH"))
  if chinato=1 then rs("AddressEN")=trim(Request.Form("AddressEN"))
  rs("ZipCode")=trim(Request.Form("ZipCode"))
  rs("Telephone")=trim(Request.Form("Telephone"))
  rs("Mobile")=trim(Request.Form("Mobile")) 
  rs("Fax")=trim(Request.Form("Fax"))
  rs("Email")=trim(Request.Form("Email"))
  rs("Emap")=trim(Request.Form("Emap"))
  rs("KeywordsCH")=trim(Request.Form("KeywordsCH"))
  if chinato=1 then rs("KeywordsEN")=trim(Request.Form("KeywordsEN"))
  rs("DescriptionsCH")=trim(Request.Form("DescriptionsCH"))
  if chinato=1 then rs("DescriptionsEN")=trim(Request.Form("DescriptionsEN"))
  rs("tongji")=trim(Request.Form("tongji"))
  rs("beiana")=trim(Request.Form("beiana"))
  rs("beianb")=trim(Request.Form("beianb"))
  rs("IcpNumber")=trim(Request.Form("IcpNumber"))
  rs("userzc")=trim(Request.Form("userzc"))
  rs("usersh")=trim(Request.Form("usersh"))
  rs("message")=trim(Request.Form("message"))
  rs("MesViewFlag")=trim(Request.Form("MesViewFlag"))
  rs("ssp")=trim(Request.Form("ssp"))
  rs("SiteRun")=trim(Request.Form("SiteRun"))  
  rs("SiteRunHelpCH")=trim(Request.Form("SiteRunHelpCH")) 
  if chinato=1 then rs("SiteRunHelpEN")=trim(Request.Form("SiteRunHelpEN"))
  rs("unitCH")=trim(Request.Form("unitCH")) 
  if chinato=1 then rs("unitEN")=trim(Request.Form("unitEN"))
  dim rsssite
  if  request.form("rssnews") = 1 then
       rsssite = rsssite + "n"
  end if
  
    if  request.form("rssporodute") = 1 then
       rsssite = rsssite + "p"
  end if
  
    if  request.form("rssdown") = 1 then
       rsssite = rsssite + "d"
  end if
	rs("rsssite") = rsssite

  rs.update
  rs.close
  set rs=nothing
  response.write "<script language='javascript'>alert('系统主参数设置成功！');location.replace('SetSite.asp');</script>"
end function

function ViewSiteInfo()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select top 1 * from TianTianCMS_Config"
  rs.open sql,conn,1,1
  'if rs.bof and rs.eof then
	'response.write ("<br><br><div align=""center""><font style=""color:red;font-size:9pt; "")>数据库没有记录！</font></div>")
   ' response.end
  'else
    SiteUrl=rs("SiteUrl")
    SiteTitleCH=rs("SiteTitleCH")
    SiteTitleEN=rs("SiteTitleEN")
    SiteUrl=rs("SiteUrl")
    ComNameCH=rs("ComNameCH")
    ComNameEN=rs("ComNameEN")
    AddressCH=rs("AddressCH") 
    AddressEN=rs("AddressEN")
    ZipCode=rs("ZipCode")
    Telephone=rs("Telephone")
    Mobile=rs("Mobile")
	Fax=rs("Fax")
    Email=rs("Email")
	Emap=rs("Emap")
    KeywordsCH=rs("KeywordsCH")
    KeywordsEN=rs("KeywordsEN")
    DescriptionsCH=rs("DescriptionsCH")
    DescriptionsEN=rs("DescriptionsEN")
	tongji=rs("tongji")
    beiana=rs("beiana")
    beianb=rs("beianb")
    IcpNumber=rs("IcpNumber")
	message=rs("message")
	MesViewFlag=rs("MesViewFlag")
	userzc=rs("userzc")
	usersh=rs("usersh")
	SiteRun=rs("SiteRun")
	SiteRunHelpCH=rs("SiteRunHelpCH")
	SiteRunHelpEN=rs("SiteRunHelpEN")
	unitCH=rs("unitCH")
	unitEN=rs("unitEN")	
	ssp=rs("ssp")
	rsscode=rs("rssSite")
    rs.close
    set rs=nothing
 ' end if
End Function

Function SaveConstInfo()
 set fso=Server.CreateObject("Scripting.FileSystemObject")
 set hf=fso.CreateTextFile(Server.mappath("../Include/conn.asp"),true)
 
 hf.write "<" & "%" & vbcrlf
 hf.write "'=====以下参数由系统生成,可直接修改==www.ip126.com===" & vbcrlf
 hf.write vbcrlf
 hf.write "'----------数据库类型-----------" & vbcrlf
 hf.write "Const SystemDatabaseType=" & ReplaceConstChar(trim(request("SystemDatabaseType"))) & " 'ACCESS数据库设为0 SQL数据库设为1 " & vbcrlf
 hf.write vbcrlf
 hf.write "'----------Access数据库路径及名称-----------" & vbcrlf
 hf.write "Const SiteDataPath = " & chr(34) & ReplaceConstChar(trim(request("SiteDataPath"))) & chr(34) & "" & vbcrlf
 hf.write vbcrlf
 hf.write "'------------MS SQL数据库连接参数------------" & vbcrlf
 hf.write "Const SqlDatabaseName=" & chr(34) & trim(request("SqlDatabaseName")) & chr(34) & " 'MS SQL数据库名(SqlDatabaseName)" & vbcrlf
 hf.write "Const SqlUsername=" & chr(34) & trim(request("SqlUsername")) & chr(34) & " 'MS SQL数据库登录用户名(SqlUsername)" & vbcrlf
 hf.write "Const SqlPassword=" & chr(34) & trim(request("SqlPassword")) & chr(34) & "'MS SQL数据库用户登录密码(SqlPassword)" & vbcrlf
 hf.write "Const SqlHostIP=" & chr(34) & trim(request("SqlHostIP")) & chr(34) & "'MS SQL主机地址(SqlHostIP)[程序与数据库同机用(local)，远程用IP]" & vbcrlf
 hf.write vbcrlf
 SysRootDirs=ReplaceConstChar(trim(request("SysRootDir")))
 If left(request("SysRootDir"),1)<>"/" Then SysRootDirs="/"
  hf.write "'------------网站安装路径------------" & vbcrlf
 hf.write "Const SysRootDir = " & chr(34) & SysRootDirs & chr(34) & " '如果网站在根目录就用Const SysRootDir =""/""，如果网站在abc目录下就用Const SysRootDir =""/abc/""" & vbcrlf
  hf.write vbcrlf
 hf.write "'=====================================================================" & vbcrlf
 hf.write vbcrlf
  hf.write vbcrlf
 hf.write "'=====以下参数由系统生成,一般情况下不要直接修改======" & vbcrlf
 hf.write "SiteUrl = " & chr(34) & ReplaceConstChar(trim(request("SiteUrl"))) & chr(34) & "" & vbcrlf
 hf.write "site_name_ch = " & chr(34) & chinese2unicode(ReplaceConstChar(trim(request("SiteTitleCH")))) & chr(34) & "" & vbcrlf
 hf.write "site_name_en = " & chr(34) & chinese2unicode(ReplaceConstChar(trim(request("SiteTitleEN")))) & chr(34) & "" & vbcrlf
 hf.write "ComName_CH = " & chr(34) & chinese2unicode(ReplaceConstChar(trim(request("ComNameCH")))) & chr(34) & "" & vbcrlf 
 hf.write "ComName_EN = " & chr(34) & ReplaceConstChar(trim(request("ComNameEN"))) & chr(34) & "" & vbcrlf
 hf.write "Const SiteDataBakPath = " & chr(34) & ReplaceConstChar(trim(request("SiteDataBakPath"))) & chr(34) & "" & vbcrlf
 hf.write "Const StatDataPath = " & chr(34) & ReplaceConstChar(trim(request("StatDataPath"))) & chr(34) & "" & vbcrlf
 hf.write "Const StatDataBakPath = " & chr(34) & ReplaceConstChar(trim(request("StatDataBakPath"))) & chr(34) & "" & vbcrlf
 hf.write "Const EnableSiteManageCode = " & ReplaceConstChar(trim(request("EnableSiteManageCode"))) & "" & vbcrlf
 hf.write "Const AdminLoginCode = " & chr(34) & ReplaceConstChar(trim(request("AdminLoginCode"))) & chr(34) & "" & vbcrlf
 hf.write "Const EnableStopInjection = " & ReplaceConstChar(trim(request("EnableStopInjection"))) & "" & vbcrlf
 hf.write "Const Kill_ip = " & ReplaceConstChar(trim(request("Kill_ip"))) & "" & vbcrlf
 hf.write "Const Refresh = " & ReplaceConstChar(trim(request("Refresh"))) & "" & vbcrlf
 hf.write "Const NewInfo = " & ReplaceConstChar(trim(request("NewInfo"))) & "" & vbcrlf
 hf.write "Const ProInfo = " & ReplaceConstChar(trim(request("ProInfo"))) & "" & vbcrlf
 hf.write "Const JobInfo = " & ReplaceConstChar(trim(request("JobInfo"))) & "" & vbcrlf
 hf.write "Const DownInfo = " & ReplaceConstChar(trim(request("DownInfo"))) & "" & vbcrlf
 hf.write "Const VideoInfo = " & ReplaceConstChar(trim(request("VideoInfo"))) & "" & vbcrlf
 hf.write "Const OtherInfo = " & ReplaceConstChar(trim(request("OtherInfo"))) & "" & vbcrlf
 hf.write "Const MessageInfo = " & ReplaceConstChar(trim(request("MessageInfo"))) & "" & vbcrlf
 hf.write "Const chinato = " & ReplaceConstChar(trim(request("chinato"))) & "" & vbcrlf
 hf.write "Const ISHTML = " & ReplaceConstChar(trim(request("ISHTML"))) & "" & vbcrlf
 hf.write "Const shopping = " & ReplaceConstChar(trim(request("shopping"))) & "" & vbcrlf
 hf.write "Const taxrate = " & ReplaceConstChar(trim(request("taxrate"))) & "" & vbcrlf
 hf.write "Const Default_language = " & chr(34) & ReplaceConstChar(trim(request("Default_language"))) & chr(34) & "" & vbcrlf 
 hf.write "Const HTMLName = " & chr(34) & ReplaceConstChar(trim(request("HTMLName"))) & chr(34) & "" & vbcrlf
 hf.write "Const NewSortName = " & chr(34) & ReplaceConstChar(trim(request("NewSortName"))) & chr(34) & "" & vbcrlf
 hf.write "Const NewName = " & chr(34) & ReplaceConstChar(trim(request("NewName"))) & chr(34) & "" & vbcrlf
 hf.write "Const ProSortName = " & chr(34) & ReplaceConstChar(trim(request("ProSortName"))) & chr(34) & "" & vbcrlf
 hf.write "Const ProrecName = " & chr(34) & ReplaceConstChar(trim(request("ProrecName"))) & chr(34) & "" & vbcrlf
 hf.write "Const ProName = " & chr(34) & ReplaceConstChar(trim(request("ProName"))) & chr(34) & "" & vbcrlf
 hf.write "Const DownSortName = " & chr(34) & ReplaceConstChar(trim(request("DownSortName"))) & chr(34) & "" & vbcrlf
 hf.write "Const DownName = " & chr(34) & ReplaceConstChar(trim(request("DownName"))) & chr(34) & "" & vbcrlf
 hf.write "Const videoSortName = " & chr(34) & ReplaceConstChar(trim(request("videoSortName"))) & chr(34) & "" & vbcrlf
 hf.write "Const videoName = " & chr(34) & ReplaceConstChar(trim(request("videoName"))) & chr(34) & "" & vbcrlf
 hf.write "Const OtherSortName = " & chr(34) & ReplaceConstChar(trim(request("OtherSortName"))) & chr(34) & "" & vbcrlf
 hf.write "Const OtherName = " & chr(34) & ReplaceConstChar(trim(request("OtherName"))) & chr(34) & "" & vbcrlf
 hf.write "Const JobSortName = " & chr(34) & ReplaceConstChar(trim(request("JobSortName"))) & chr(34) & "" & vbcrlf
 hf.write "Const JobName = " & chr(34) & ReplaceConstChar(trim(request("JobName"))) & chr(34) & "" & vbcrlf
 hf.write "Const AboutName = " & chr(34) & ReplaceConstChar(trim(request("AboutName"))) & chr(34) & "" & vbcrlf
 hf.write "Const Separated = " & chr(34) & ReplaceConstChar(trim(request("Separated"))) & chr(34) & "" & vbcrlf
 hf.write "Const mailform = " & chr(34) & ReplaceConstChar(trim(request("mailform"))) & chr(34) & "" & vbcrlf
 hf.write "Const mailname = " & chr(34) & ReplaceConstChar(trim(request("mailname"))) & chr(34) & "" & vbcrlf
 hf.write "Const mailpass = " & chr(34) & ReplaceConstChar(trim(request("mailpass"))) & chr(34) & "" & vbcrlf
 hf.write "Const mailsmtp = " & chr(34) & ReplaceConstChar(trim(request("mailsmtp"))) & chr(34) & "" & vbcrlf 
 hf.write "Const API_QuickLogin = " & ReplaceConstChar(trim(request("API_QuickLogin"))) & "" & vbcrlf
 hf.write "Const API_QQEnable = " & ReplaceConstChar(trim(request("API_QQEnable")))  & "" & vbcrlf
 hf.write "Const appid = " & chr(34) & ReplaceConstChar(trim(request("appid"))) & chr(34) & "" & vbcrlf
 hf.write "Const appkey = " & chr(34) & ReplaceConstChar(trim(request("appkey"))) & chr(34) & "" & vbcrlf
 hf.write "Const API_QQCallBack = " & chr(34) & ReplaceConstChar(trim(request("API_QQCallBack"))) & chr(34) & "" & vbcrlf 
hf.write "Const Watermark_Type = " & ReplaceConstChar(trim(request("Watermark_Type")))& "" & vbcrlf
hf.write "Const Watermark_interval = " & ReplaceConstChar(trim(request("Watermark_interval")))& "" & vbcrlf
hf.write "Const Watermark_X = " &ReplaceConstChar(trim(request("Watermark_X")))& "" & vbcrlf
hf.write "Const Watermark_Y = "& ReplaceConstChar(trim(request("Watermark_Y")))& "" & vbcrlf
hf.write "Const Watermark_Text = " & chr(34) & ReplaceConstChar(trim(request("Watermark_Text"))) & chr(34) & "" & vbcrlf
hf.write "Const Watermark_FontName = " & chr(34) & ReplaceConstChar(trim(request("Watermark_FontName"))) & chr(34) & "" & vbcrlf
hf.write "Const Watermark_FontSize = " &ReplaceConstChar(trim(request("Watermark_FontSize")))& "" & vbcrlf
hf.write "Const Watermark_FontColor = " & chr(34) & ReplaceConstChar(trim(request("Watermark_FontColor"))) & chr(34) & "" & vbcrlf
hf.write "Const Watermark_Bold = " &ReplaceConstChar(trim(request("Watermark_Bold"))) & "" & vbcrlf
hf.write "Const Watermark_FileName = " & chr(34) & ReplaceConstChar(trim(request("Watermark_FileName"))) & chr(34) & "" & vbcrlf
hf.write "Const Watermark_Width = " &ReplaceConstChar(trim(request("Watermark_Width")))& "" & vbcrlf
hf.write "Const Watermark_Transparence = "&ReplaceConstChar(trim(request("Watermark_Transparence")))& "" & vbcrlf
hf.write "Const Watermark_BackgroundColor = " & chr(34) & ReplaceConstChar(trim(request("Watermark_BackgroundColor"))) & chr(34) & "" & vbcrlf
hf.write "Const Watermark_coordinates = "& ReplaceConstChar(trim(request("Watermark_coordinates")))  & "" & vbcrlf

 hf.write "%" & ">"

 hf.close
 set hf=nothing
 set fso=Nothing
If trim(request("ISHTML"))=0 then
 Call DoDelslhtml("ch/index."&HTMLName&"")
 Call DoDelslhtml("en/index."&HTMLName&"")
 End if
 response.Write "<script language=javascript>alert('系统附加参数设置成功！');location.href='SetSite.asp';</script>"
End Function
%>