<%@ 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">
<script language="javascript" src="../Script/Admin.js"></script>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
</HEAD>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<!--#include file="../Include/Version.asp" -->
<!--#include file="CheckAdmin.asp"-->
<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
%>
<%
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>
  <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>
    <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">域名 *</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>
  <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>
    <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>
    <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>  <tr>
    <td align="right" class="forumRow">邮政编码：</td>
    <td class="forumRowHighlight"><input name="ZipCode" type="text" id="ZipCode" style="width: 180" value="<%=ZipCode%>" maxlength="6"> <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">传真号码：</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">中文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>
  <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>
  <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="Video" type="text" id="Video" style="width: 500" value="<%=Video%>">
      视频格式支持：Mp3/Avi/Wmv/Asf/Mov/Rm/Ra/Ram/Rmvb/Swf</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">访客留言设置：</td>
    <td class="forumRowHighlight"><input name="MesViewFlag" type="checkbox" id="MesViewFlag" value="1" <%if MesViewFlag then response.write ("checked")%>>无须审核</td>
  </tr>
    <tr>
    <td align="right" class="forumRow">前台公告类型设置：</td>
    <td class="forumRowHighlight"><input name="ssp" type="checkbox" id="ssp" value="1"  <% if ssp then response.write ("checked") %>>显示视频</td>
  </tr>
    </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"></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">mmm</font>目录下,这里应该填<font color="red">/mmm/</font>必须以<font color="red">/</font>开头和结尾</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">网站数据库目录：</td>
    <td class="forumRowHighlight"><input name="SiteDataPath" type="text" id="SiteDataPath" style="width: 280" value="<%=SiteDataPath%>"> <font color="red">*此项不能修改,如修改数据库名称,Include/Const.asp修改。</font></td>
  </tr>
    <tr>
    <td align="right" class="forumRow">网站数据库备份目录：</td>
    <td class="forumRowHighlight"><input name="SiteDataBakPath" type="text" id="SiteDataBakPath" style="width: 280" value="<%=SiteDataBakPath%>"> <font color="red">*此项不能修改,如修改数据库名称,Include/Const.asp修改。</font></td>
  </tr>
    <tr>
    <td align="right" class="forumRow">统计数据库目录：</td>
    <td class="forumRowHighlight"><input name="StatDataPath" type="text" id="StatDataPath" style="width: 280" value="<%=StatDataPath%>"> <font color="red">*此项不能修改,如修改数据库名称,Include/Const.asp修改。</font></td>
  </tr>
    <tr>
    <td align="right" class="forumRow">统计数据库备份目录：</td>
    <td class="forumRowHighlight"><input name="StatDataBakPath" type="text" id="StatDataBakPath" style="width: 280" value="<%=StatDataBakPath%>"> <font color="red">*此项不能修改,如修改数据库名称,Include/Const.asp修改。</font></td>
  </tr>
  <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">不启用 <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">不启用 <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%>"> 秒 <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">新闻模块单页调用条数：</td>
    <td class="forumRowHighlight"><input name="NewInfo" type="text" id="NewInfo" style="width: 80" value="<%=NewInfo%>"> <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%>"> <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%>"> <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%>"> <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%>"> <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%>"> <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="HTMLName" type="text" id="HTMLName" style="width: 80" value="<%=HTMLName%>"> <font color="red">*</font> 如：New.html中“html”即为后缀。可设置如：html、htm、Asp</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">新闻分类生成前缀：</td>
    <td class="forumRowHighlight"><input name="NewSortName" type="text" id="NewSortName" style="width: 180" value="<%=NewSortName%>"> <font color="red">*</font> 如：New-1.html中“New”即为前缀</td>
  </tr>
  <tr>
    <td align="right" class="forumRow">新闻详细页生成前缀：</td>
    <td class="forumRowHighlight"><input name="NewName" type="text" id="NewName" style="width: 180" value="<%=NewName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">产品分类生成前缀：</td>
    <td class="forumRowHighlight"><input name="ProSortName" type="text" id="ProSortName" style="width: 180" value="<%=ProSortName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">产品详细页生成前缀：</td>
    <td class="forumRowHighlight"><input name="ProName" type="text" id="ProName" style="width: 180" value="<%=ProName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">下载分类生成前缀：</td>
    <td class="forumRowHighlight"><input name="DownSortName" type="text" id="DownSortName" style="width: 180" value="<%=DownSortName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">下载详细页生成前缀：</td>
    <td class="forumRowHighlight"><input name="DownNameDiy" type="text" id="DownNameDiy" style="width: 180" value="<%=DownNameDiy%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">其他信息分类生成前缀：</td>
    <td class="forumRowHighlight"><input name="OtherSortName" type="text" id="OtherSortName" style="width: 180" value="<%=OtherSortName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">其他信息详细页生成前缀：</td>
    <td class="forumRowHighlight"><input name="OtherName" type="text" id="OtherName" style="width: 180" value="<%=OtherName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">人才分类生成前缀：</td>
    <td class="forumRowHighlight"><input name="JobSortName" type="text" id="JobSortName" style="width: 180" value="<%=JobSortName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">人才详细页生成前缀：</td>
    <td class="forumRowHighlight"><input name="JobNameDiy" type="text" id="JobNameDiy" style="width: 180" value="<%=JobNameDiy%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">企业信息生成前缀：</td>
    <td class="forumRowHighlight"><input name="AboutNameDiy" type="text" id="AboutNameDiy" style="width: 180" value="<%=AboutNameDiy%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">分隔符：</td>
    <td class="forumRowHighlight"><input name="Separated" type="text" id="Separated" style="width: 80" value="<%=Separated%>"> <font color="red">*</font> 如：New-1.html中的“-”即为分隔符</td>
  </tr>
  <tr>
    <td align="right" class="forumRow"></td>
    <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 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 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 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")))<11 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 wygkcndiv_Site"
  rs.open sql,conn,1,3
  rs("SiteTitleCH")=trim(Request.Form("SiteTitleCH"))
  rs("SiteTitleEN")=trim(Request.Form("SiteTitleEN"))
  rs("SiteUrl")=trim(Request.Form("SiteUrl"))
  rs("ComNameCH")=trim(Request.Form("ComNameCH"))
  rs("ComNameEN")=trim(Request.Form("ComNameEN"))
  rs("AddressCH")=trim(Request.Form("AddressCH"))
  rs("AddressEN")=trim(Request.Form("AddressEN"))
  rs("ZipCode")=trim(Request.Form("ZipCode"))
  rs("Telephone")=trim(Request.Form("Telephone"))
  rs("Fax")=trim(Request.Form("Fax"))
  rs("Email")=trim(Request.Form("Email"))
  rs("KeywordsCH")=trim(Request.Form("KeywordsCH"))
  rs("KeywordsEN")=trim(Request.Form("KeywordsEN"))
  rs("DescriptionsCH")=trim(Request.Form("DescriptionsCH"))
  rs("DescriptionsEN")=trim(Request.Form("DescriptionsEN"))
  rs("IcpNumber")=trim(Request.Form("IcpNumber"))
  rs("Video")=trim(Request.Form("Video"))
  if Request.Form("MesViewFlag")=1 then
    rs("MesViewFlag")=Request.Form("MesViewFlag")
    Conn.execute "alter table wygkcndiv_Message alter column ViewFlagCh bit default 1"
    Conn.execute "alter table wygkcndiv_Message alter column ViewFlagEn bit default 1"
  else
    rs("MesViewFlag")=0
    Conn.execute "alter table wygkcndiv_Message alter column ViewFlagCh bit default 0"
    Conn.execute "alter table wygkcndiv_Message alter column ViewFlagEn bit default 0"
  end if
 if Request.Form("ssp")=1 then
    rs("ssp")=Request.Form("ssp")
    Conn.execute "alter table wygkcndiv_Message alter column sspCh bit default 1"
    Conn.execute "alter table wygkcndiv_Message alter column sspEn bit default 1"
  else
    rs("ssp")=0
    Conn.execute "alter table wygkcndiv_Message alter column sspCh bit default 0"
    Conn.execute "alter table wygkcndiv_Message alter column sspEn bit default 0"
  end if
  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 wygkcndiv_Site"
  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
    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")
    Fax=rs("Fax")
    Email=rs("Email")
    KeywordsCH=rs("KeywordsCH")
    KeywordsEN=rs("KeywordsEN")
    DescriptionsCH=rs("DescriptionsCH")
    DescriptionsEN=rs("DescriptionsEN")
    IcpNumber=rs("IcpNumber")
	MesViewFlag=rs("MesViewFlag")
	Video=rs("Video")
	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/Const.asp"),true)
 hf.write "<" & "%" & vbcrlf
 hf.write "Const SysRootDir = " & chr(34) & ReplaceConstChar(trim(request("SysRootDir"))) & chr(34) & "" & vbcrlf
 hf.write "Const SiteDataPath = " & chr(34) & ReplaceConstChar(trim(request("SiteDataPath"))) & 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 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 OtherInfo = " & ReplaceConstChar(trim(request("OtherInfo"))) & "" & vbcrlf
 hf.write "Const MessageInfo = " & ReplaceConstChar(trim(request("MessageInfo"))) & "" & vbcrlf
 hf.write "Const ISHTML = " & ReplaceConstChar(trim(request("ISHTML"))) & "" & 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 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 DownNameDiy = " & chr(34) & ReplaceConstChar(trim(request("DownNameDiy"))) & 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 JobNameDiy = " & chr(34) & ReplaceConstChar(trim(request("JobNameDiy"))) & chr(34) & "" & vbcrlf
 hf.write "Const AboutNameDiy = " & chr(34) & ReplaceConstChar(trim(request("AboutNameDiy"))) & chr(34) & "" & vbcrlf
 hf.write "Const Separated = " & chr(34) & ReplaceConstChar(trim(request("Separated"))) & chr(34) & "" & vbcrlf
 hf.write "%" & ">"
 hf.close
 set hf=nothing
 set fso=nothing
 response.Write "<script language=javascript>alert('系统附加参数设置成功！');location.href='SetSite.asp';</script>"
End Function
%>