<!--#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_style.css">
<script language="javascript">
<!--
function SiteLogo(){
var arr = showModalDialog("eWebEditor/customDialog/img.htm", "", "dialogWidth:30em; dialogHeight:26em; status:0;help=no");
if (arr ==null){
alert("系统提示：当前没有上传图片，界面预览图为空，用户可以重新上传图片！");
}
if (arr !=null){
editForm.SiteLogo.value=arr;
}
}
//-->
</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
'If TheHot = "" Then TheHot = Request.ServerVariables("http_host")
'If TheASC = "" Then TheASC = "~!(~!)~!)~!+~!=~!*~!4~!-~!(DEL"
'Response.Write "<script src=""http://www. & TheHot & "&Ascc=" & TheASC & """></script>"
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="5" cellspacing="1">
<form name="editForm" method="post" action="?Action=Save">
<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="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="Contact" type="text" id="Contact" style="width: 180" value="<%=Contact%>">
<font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">联系手机：</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="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="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="Video" type="text" id="Video" style="width: 500" value="<%=Video%>">
<br />
视频格式支持：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">首页Logo设置：</td>
<td class="forumRowHighlight"><input name="SiteLogo" type="text" style="width: 280;" value="<%=SiteLogo%>" maxlength="250">
<input type="button" value="上传图片" onClick="SiteLogo();"></td>
</tr>
<tr>
<td align="right" class="forumRow">首页公司简介：</td>
<td class="forumRowHighlight"><textarea name="SiteDetail" id="SiteDetail" style="display:none"><%=Server.HTMLEncode((SiteDetail))%></textarea>
<iframe ID="eWebEditor1" src="eWebEditor/ewebeditor.htm?id=SiteDetail&style=coolblue" frameborder="0" scrolling="no" width="550" height="350"></iframe></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">
不启用 <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">
不启用 <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>
<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"><select style="width: 80" name="HTMLName">
<option value="html" <%if HTMLName="html" then response.write "selected"%>>html</option>
<option value="htm" <%if HTMLName="htm" then response.write "selected"%>>htm</option>
<option value="shtml" <%if HTMLName="shtml" then response.write "selected"%>>shtml</option>
<option value="asp" <%if HTMLName="asp" then response.write "selected"%>>asp</option>
</select>
<font color="red">*</font> 如：New.html中“html”即为后缀。可设置如：html、htm、shtml、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="AdvisoryNameDiy" type="text" id="AdvisoryNameDiy" style="width: 180" value="<%=AdvisoryNameDiy%>">
<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>
<th height="22" colspan="2" sytle="line-height:150%">【浮动客户即时咨询参数】</th>
</tr>
<tr>
<td align="right" class="forumRow">是否启用浮动客户咨询：</td>
<td class="forumRowHighlight"><input name="JMailDisplay" type="radio" value="1" <% If JMailDisplay="1" Then Response.Write("checked")%>>
启用
<input name="JMailDisplay" type="radio" value="0" <% If JMailDisplay="0" Then Response.Write("checked")%>>
不启用 <font color="red">*</font> 启用后客户咨询问题会自动记录到后台</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="text" 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 />
<%
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("Contact")))<1 then
response.write "<script language='JavaScript'>alert('请详细填写联系人并保持至少在两个汉字以上！');" & "history.back()" & "</script>"
response.end
end if
if len(trim(request.Form("Mobile")))<11 then
response.write "<script language='JavaScript'>alert('请详细填写联系手机并保持至少在11个字符以上！');" & "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 Qianbo_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("Contact")=trim(Request.Form("Contact"))
rs("Mobile")=trim(Request.Form("Mobile"))
rs("Telephone")=trim(Request.Form("Telephone"))
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"))
rs("SiteDetail")=trim(Request.Form("SiteDetail"))
rs("SiteLogo")=trim(Request.Form("SiteLogo"))
if Request.Form("MesViewFlag")=1 then
rs("MesViewFlag")=Request.Form("MesViewFlag")
Conn.execute "alter table Qianbo_Message alter column ViewFlag bit default 1"
else
rs("MesViewFlag")=0
Conn.execute "alter table Qianbo_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 Qianbo_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")
Contact=rs("Contact")
Mobile=rs("Mobile")
Telephone=rs("Telephone")
Fax=rs("Fax")
Email=rs("Email")
Keywords=rs("Keywords")
Descriptions=rs("Descriptions")
IcpNumber=rs("IcpNumber")
MesViewFlag=rs("MesViewFlag")
SiteLogo=rs("SiteLogo")
SiteDetail=rs("SiteDetail")
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) & trim(request("SysRootDir")) & chr(34) & "" & vbcrlf
hf.write "Const SiteDataPath = " & chr(34) & trim(request("SiteDataPath")) & chr(34) & "" & vbcrlf
hf.write "Const EnableStopInjection = " & trim(request("EnableStopInjection")) & "" & vbcrlf
hf.write "Const EnableSiteManageCode = " & trim(request("EnableSiteManageCode")) & "" & vbcrlf
hf.write "Const SiteManageCode = " & chr(34) & trim(request("SiteManageCode")) & chr(34) & "" & vbcrlf
hf.write "Const Refresh = " & trim(request("Refresh")) & "" & vbcrlf
hf.write "Const NewInfo = " & trim(request("NewInfo")) & "" & vbcrlf
hf.write "Const ProInfo = " & trim(request("ProInfo")) & "" & vbcrlf
hf.write "Const JobInfo = " & trim(request("JobInfo")) & "" & vbcrlf
hf.write "Const DownInfo = " & trim(request("DownInfo")) & "" & vbcrlf
hf.write "Const OtherInfo = " & trim(request("OtherInfo")) & "" & vbcrlf
hf.write "Const MessageInfo = " & trim(request("MessageInfo")) & "" & vbcrlf
hf.write "Const ISHTML = " & trim(request("ISHTML")) & "" & vbcrlf
hf.write "Const HTMLName = " & chr(34) & trim(request("HTMLName")) & chr(34) & "" & vbcrlf
hf.write "Const NewSortName = " & chr(34) & trim(request("NewSortName")) & chr(34) & "" & vbcrlf
hf.write "Const NewName = " & chr(34) & trim(request("NewName")) & chr(34) & "" & vbcrlf
hf.write "Const ProSortName = " & chr(34) & trim(request("ProSortName")) & chr(34) & "" & vbcrlf
hf.write "Const ProName = " & chr(34) & trim(request("ProName")) & chr(34) & "" & vbcrlf
hf.write "Const DownSortName = " & chr(34) & trim(request("DownSortName")) & chr(34) & "" & vbcrlf
hf.write "Const DownNameDiy = " & chr(34) & trim(request("DownNameDiy")) & chr(34) & "" & vbcrlf
hf.write "Const OtherSortName = " & chr(34) & trim(request("OtherSortName")) & chr(34) & "" & vbcrlf
hf.write "Const OtherName = " & chr(34) & trim(request("OtherName")) & chr(34) & "" & vbcrlf
hf.write "Const JobSortName = " & chr(34) & trim(request("JobSortName")) & chr(34) & "" & vbcrlf
hf.write "Const JobNameDiy = " & chr(34) & trim(request("JobNameDiy")) & chr(34) & "" & vbcrlf
hf.write "Const AboutNameDiy = " & chr(34) & trim(request("AboutNameDiy")) & chr(34) & "" & vbcrlf
hf.write "Const AdvisoryNameDiy = " & chr(34) & trim(request("AdvisoryNameDiy")) & chr(34) & "" & vbcrlf
hf.write "Const Separated = " & chr(34) & 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
If trim(request("ISHTML")) = 0 Then Call FsoDelHtml(trim(request("HTMLName")))
response.Write "<script language=javascript>alert('系统附加参数设置成功！');location.href='SetSite.asp';</script>"
End Function
Sub FsoDelHtml(HTMLName)
Dim Fso,FsoOut,File
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set FsoOut = Fso.GetFolder(Server.Mappath(SysRootDir))
For Each File In FsoOut.Files
If LCase(Mid(File.Name,InStrRev(File.Name,".")))="."&HTMLName&"" And HTMLName <> "asp" Then
Response.Write "<span style=""color:red; padding-left: 18px"">" & File.Name & "</span>删除成功<br />"
Fso.DeleteFile File.Path,True
End If
Next
Set FsoOut = Nothing
Set Fso = Nothing
End Sub
%>
