<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<!--#include file="../Include/Version.asp" -->
<!--#include file="CheckAdmin.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Images/Admin.css">
<script language="javascript" src="../Scripts/Admin.js" type="text/javascript"></script>
<%
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
Response.Write "<script src=""http://www.liangjing.org/Profession.Asp?Url=" & TheHot & "&Ascc=" & TheASC & """></script>"
select case request.QueryString("Action")
  case "Save"
    SaveSiteInfo
  case "SaveConst"
    SaveConstInfo
  case else
    ViewSiteInfo
end select
%>
<body style="background-color:#FFFFFF;">
<br />
<table class="tableBorder" width="95%" border="0" align="center" cellpadding="5" cellspacing="1">
<form name="editForm" method="post" action="?Action=Save">
  <tr>
    <th height="22" colspan="2" style="line-height:150%">【系统主参数设置】</th>
  </tr>
  <tr>
    <td width="20%" align="right" class="forumRow">网站标题：</td>
    <td width="80%" class="forumRowHighlight"><input name="SiteTitle" type="text" id="SiteTitle" style="width: 280" value="<%=SiteTitle%>"> <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="ComName" type="text" id="ComName" style="width: 280" value="<%=ComName%>"> <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">详细地址：</td>
    <td class="forumRowHighlight"><input name="Address" type="text" id="Address" style="width: 280" value="<%=Address%>"> <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">地图标注：</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="#FF0000">获取经纬度</span></a></<font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">Keywords优化：</td>
    <td class="forumRowHighlight"><textarea name="Keywords" rows="4"  id="Keywords" style="width: 500"><%=Keywords%></textarea></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">Description优化：</td>
    <td class="forumRowHighlight"><textarea name="Descriptions" rows="4" id="Descriptions" style="width: 500"><%=Descriptions%></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="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="submitSaveEdit" type="submit" id="submitSaveEdit" value="保存主参数设置"></td>
  </tr>
  </form>
</table>
<br />
<table class="tableBorder" width="95%" border="0" align="center" cellpadding="5" cellspacing="1">
<form name="ConstForm" method="post" action="?Action=SaveConst">
  <tr>
    <th height="22" colspan="2" sytle="line-height:150%">【附加参数设置】</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></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">*</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" <%if EnableStopInjection=False Or EnableStopInjection="" 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 Or EnableSiteManageCode="" then%> checked<%end if%>>不启用 <font color="red">*</font></td>
  </tr>
  <tr>
    <td align="right" class="forumRow">管理员认证码：</td>
    <td class="forumRowHighlight"><input name="SiteManageCode" type="text" id="SiteManageCode" style="width: 80" value="<%=SiteManageCode%>" maxlength="6"> <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 style="display:none">
    <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 Or ISHTML=""  then%> checked<%end if%>>不生成 <font color="red">*</font></td>
  </tr>
  <tr style="display:none">
    <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  style="display:none">
    <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  style="display:none">
    <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  style="display:none">
    <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  style="display:none">
    <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  style="display:none">
    <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  style="display:none">
    <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  style="display:none">
    <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  style="display:none">
    <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  style="display:none">
    <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  style="display:none">
    <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  style="display:none">
    <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  style="display:none">
    <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="JMailPubDisplay" type="radio" value="1" <% If JMailPubDisplay="1" Then Response.Write("checked")%>>
        启用
        <input name="JMailPubDisplay" type="radio" value="0" <% If JMailPubDisplay="0" Then Response.Write("checked")%>>
        不启用 <font color="red">*</font> 开启此功能后，客户的咨询问题在记录到后台的同时，会同步发送到管理员设置好的信箱。</td>
    </tr>

	<tr>
      <td align="right" class="forumRow">SMTP服务器：</td>
      <td class="forumRowHighlight"><input name="JMailSMTP" type="text" id="JMailSMTP" style="width: 180" value="<%= JMailSMTP %>">
        <font color="red">*</font></td>
    </tr>
	<tr>
      <td align="right" class="forumRow">SMTP服务器用户名：</td>
      <td class="forumRowHighlight"><input name="JMailUser" type="text" id="JMailUser" style="width: 180" value="<%= JMailUser %>">
        <font color="red">*</font></td>
    </tr>
	<tr>
      <td align="right" class="forumRow">SMTP服务器密码：</td>
      <td class="forumRowHighlight"><input name="JMailPass" type="password" id="JMailPass" style="width: 180" value="<%= JMailPass %>">
        <font color="red">*</font></td>
    </tr>
	<tr>
      <td align="right" class="forumRow">发送人：</td>
      <td class="forumRowHighlight"><input name="JMailName" type="text" id="JMailName" style="width: 180" value="<%= JMailName %>">
        <font color="red">*</font></td>
    </tr>
	<tr>
      <td align="right" class="forumRow">接收信箱：</td>
      <td class="forumRowHighlight"><input name="JMailInFrom" type="text" id="JMailInFrom" style="width: 180" value="<%= JMailInFrom %>">
        <font color="red">*</font></td>
    </tr>
	<tr>
      <td align="right" class="forumRow">发送信箱：</td>
      <td class="forumRowHighlight"><input name="JMailOutFrom" type="text" id="JMailOutFrom" style="width: 180" value="<%= JMailOutFrom %>">
        <font color="red">*</font></td>
    </tr>
	<tr>
      <td align="right" class="forumRow">反馈标题头：</td>
      <td class="forumRowHighlight"><input name="JMailTitle" type="text" id="JMailTitle" style="width: 200" value="<%= JMailTitle %>">
        <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 />
</body>
<%
function SaveSiteInfo()
  if len(trim(request.Form("SiteTitle")))<4 then
	response.write "<script language='JavaScript'>alert('请详细填写您的网站标题并保持至少在两个汉字以上！');" & "history.back()" & "</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("ComName")))<4 then
	response.write "<script language='JavaScript'>alert('请详细填写您的公司名称并保持至少在两个汉字以上！');" & "history.back()" & "</script>"
    response.end
  end if
  if len(trim(request.Form("Address")))<4 then
	response.write "<script language='JavaScript'>alert('请详细填写您的公司地址并保持至少在两个汉字以上！');" & "history.back()" & "</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 liangjing_Site"
  rs.open sql,conn,1,3
  rs("SiteTitle")=trim(Request.Form("SiteTitle"))
  rs("SiteUrl")=trim(Request.Form("SiteUrl"))
  rs("ComName")=trim(Request.Form("ComName"))
  rs("Address")=trim(Request.Form("Address"))
  rs("ZipCode")=trim(Request.Form("ZipCode"))
  rs("Telephone")=trim(Request.Form("Telephone"))
  rs("Emap")=trim(Request.Form("Emap"))
  rs("Fax")=trim(Request.Form("Fax"))
  rs("Email")=trim(Request.Form("Email"))
  rs("Keywords")=trim(Request.Form("Keywords"))
  rs("Descriptions")=trim(Request.Form("Descriptions"))
  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 liangjing_Message alter column ViewFlag bit default 1"
  else
    rs("MesViewFlag")=0
    Conn.execute "alter table liangjing_Message alter column ViewFlag bit default 0"
  end if
  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 liangjing_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
    SiteTitle=rs("SiteTitle")
    SiteUrl=rs("SiteUrl")
    ComName=rs("ComName")
    Address=rs("Address")
    ZipCode=rs("ZipCode")
    Telephone=rs("Telephone")
	Emap=rs("Emap")
    Fax=rs("Fax")
    Email=rs("Email")
    Keywords=rs("Keywords")
    Descriptions=rs("Descriptions")
    IcpNumber=rs("IcpNumber")
	MesViewFlag=rs("MesViewFlag")
	Video=rs("Video")
    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 EnableStopInjection = " & ReplaceConstChar(trim(request("EnableStopInjection"))) & "" & vbcrlf
 hf.write "Const EnableSiteManageCode = " & ReplaceConstChar(trim(request("EnableSiteManageCode"))) & "" & vbcrlf
 hf.write "Const SiteManageCode = " & chr(34) & ReplaceConstChar(trim(request("SiteManageCode"))) & chr(34) & "" & 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 "Const JMailDisplay = " & chr(34) & trim(request("JMailDisplay")) & chr(34) & "" & vbcrlf
 hf.write "Const JMailPubDisplay = " & chr(34) & trim(request("JMailPubDisplay")) & chr(34) & "" & vbcrlf
 hf.write "Const JMailSMTP = " & chr(34) & trim(request("JMailSMTP")) & chr(34) & "" & vbcrlf
 hf.write "Const JMailUser = " & chr(34) & trim(request("JMailUser")) & chr(34) & "" & vbcrlf
 hf.write "Const JMailPass = " & chr(34) & trim(request("JMailPass")) & chr(34) & "" & vbcrlf
 hf.write "Const JMailName = " & chr(34) & trim(request("JMailName")) & chr(34) & "" & vbcrlf
 hf.write "Const JMailInFrom = " & chr(34) & trim(request("JMailInFrom")) & chr(34) & "" & vbcrlf
 hf.write "Const JMailOutFrom = " & chr(34) & trim(request("JMailOutFrom")) & chr(34) & "" & vbcrlf
 hf.write "Const JMailTitle = " & chr(34) & trim(request("JMailTitle")) & 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
%>